diff --git a/tests/base.scm b/tests/base.scm
index 980b0ece..c17615cb 100644
--- a/tests/base.scm
+++ b/tests/base.scm
@@ -105,9 +105,9 @@
 
 (test-group
   "sqrt"
-  (test #t (sqrt -1))
-  (test #t (sqrt -1.0))
-  ; TODO: (test 2 (sqrt 4))
+  (test 1i (sqrt -1))
+  (test 1i (sqrt -1.0))
+  (test 2 (sqrt 4))
   (test 2.0 (sqrt 4.0))
   (test 2i (sqrt -4.0))
 )