From 5df534c4e3893a9f7a4f528746eca98d7a012736 Mon Sep 17 00:00:00 2001 From: bd Date: Mon, 20 May 2024 01:07:13 -0600 Subject: Add dictionary code and tests --- prime/prime-test.scm | 34 +++++++++++++--------------------- 1 file changed, 13 insertions(+), 21 deletions(-) (limited to 'prime/prime-test.scm') 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") -- cgit v1.2.3