From 3324327b80a50e94843dedbb704683ee9b3a9955 Mon Sep 17 00:00:00 2001 From: bd Date: Sun, 4 Aug 2024 21:01:32 -0600 Subject: Cleanup prime? --- prime/prime-test.scm | 34 ---------------------------------- 1 file changed, 34 deletions(-) delete mode 100644 prime/prime-test.scm (limited to 'prime/prime-test.scm') diff --git a/prime/prime-test.scm b/prime/prime-test.scm deleted file mode 100644 index 7c9d557..0000000 --- a/prime/prime-test.scm +++ /dev/null @@ -1,34 +0,0 @@ -(use-modules (srfi srfi-64) - (prime)) - -(test-begin "harness") - - -(test-assert "test-not-prime-0" - (not (prime? 12))) - -(test-assert "test-not-prime-1" - (not (prime? 21))) - -(test-assert "test-prime" - (prime? 13)) - -(test-assert "test-prime-large" - (prime? 1000033)) - -(test-assert "test-two" - (prime? 2)) - -;; one is NOT considered prime! -(test-assert "test-one" - (not (prime? 1))) - -;; zero is NOT considered prime! -(test-assert "test-zero" - (not (prime? 0))) - -(test-assert "test-negative" - (not (prime? -13))) - - -(test-end "harness") -- cgit v1.2.3