diff options
| author | bd <bdunahu@operationnull.com> | 2024-08-04 21:01:32 -0600 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2024-08-04 21:01:32 -0600 |
| commit | 3324327b80a50e94843dedbb704683ee9b3a9955 (patch) | |
| tree | 333f24d8de37c480a101f100a5ca539cc34552fe /prime/prime-test.scm | |
| parent | c04ceb5f29e965bb2d9b37bf38f10f7a12a0cab0 (diff) | |
Cleanup prime?
Diffstat (limited to 'prime/prime-test.scm')
| -rw-r--r-- | prime/prime-test.scm | 34 |
1 files changed, 0 insertions, 34 deletions
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") |