From 0ea2457db660abf2e0ccc586bd4b4315e0952a4e Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 14 Mar 2024 18:57:09 -0700 Subject: [PATCH] Issue #530 - Adding more tests --- tests/base.scm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/tests/base.scm b/tests/base.scm index c17615cb..32829b8b 100644 --- a/tests/base.scm +++ b/tests/base.scm @@ -107,9 +107,12 @@ "sqrt" (test 1i (sqrt -1)) (test 1i (sqrt -1.0)) + (test +i (sqrt -1.0)) (test 2 (sqrt 4)) (test 2.0 (sqrt 4.0)) (test 2i (sqrt -4.0)) + (test #t (complex? (sqrt -1))) + (test #t (complex? (sqrt -i))) ) (test-group