summaryrefslogtreecommitdiff
path: root/prime/prime-test.scm
diff options
context:
space:
mode:
Diffstat (limited to 'prime/prime-test.scm')
-rw-r--r--prime/prime-test.scm34
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")