Add dictionary code and tests

1 files changed, 13 insertions, 21 deletions

diff --git a/prime/prime-test.scm b/prime/prime-test.scm
index a1c7562..7c9d557 100644
--- a/prime/prime-test.scm
+++ b/prime/prime-test.scm
@@ -4,39 +4,31 @@
 (test-begin "harness")
 
 
-(test-equal "test-not-prime-0"
-  #f
-  (prime? 12))
+(test-assert "test-not-prime-0"
+  (not (prime? 12)))
 
-(test-equal "test-not-prime-1"
-  #f
-  (prime? 21))
+(test-assert "test-not-prime-1"
+  (not (prime? 21)))
 
-(test-equal "test-prime"
-  #t
+(test-assert "test-prime"
   (prime? 13))
 
-(test-equal "test-prime-large"
-  #t
+(test-assert "test-prime-large"
   (prime? 1000033))
 
-(test-equal "test-two"
-  #t
+(test-assert "test-two"
   (prime? 2))
 
 ;; one is NOT considered prime!
-(test-equal "test-one"
-  #f
-  (prime? 1))
+(test-assert "test-one"
+  (not (prime? 1)))
 
 ;; zero is NOT considered prime!
-(test-equal "test-zero"
-  #f
-  (prime? 0))
+(test-assert "test-zero"
+  (not (prime? 0)))
 
-(test-equal "test-negative"
-  #f
-  (prime? -13))
+(test-assert "test-negative"
+  (not (prime? -13)))
 
 
 (test-end "harness")