From b2b79ad10e1d7559f95db18af1a47f4725272aa6 Mon Sep 17 00:00:00 2001 From: bd Date: Sat, 18 May 2024 20:55:32 -0600 Subject: Add prime? code and tests --- prime/prime-test.scm | 42 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100644 prime/prime-test.scm (limited to 'prime/prime-test.scm') diff --git a/prime/prime-test.scm b/prime/prime-test.scm new file mode 100644 index 0000000..a1c7562 --- /dev/null +++ b/prime/prime-test.scm @@ -0,0 +1,42 @@ +(use-modules (srfi srfi-64) + (prime)) + +(test-begin "harness") + + +(test-equal "test-not-prime-0" + #f + (prime? 12)) + +(test-equal "test-not-prime-1" + #f + (prime? 21)) + +(test-equal "test-prime" + #t + (prime? 13)) + +(test-equal "test-prime-large" + #t + (prime? 1000033)) + +(test-equal "test-two" + #t + (prime? 2)) + +;; one is NOT considered prime! +(test-equal "test-one" + #f + (prime? 1)) + +;; zero is NOT considered prime! +(test-equal "test-zero" + #f + (prime? 0)) + +(test-equal "test-negative" + #f + (prime? -13)) + + +(test-end "harness") -- cgit v1.2.3