From e1ffc98c53e86f482fefa4f9b1f2f836903f459d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Thu, 16 Mar 2023 22:36:43 +0100
Subject: [PATCH] Streamline 4-digit primes tests.

---
 primes.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/primes.scm b/primes.scm
index 4385463..02ba028 100644
--- a/primes.scm
+++ b/primes.scm
@@ -79,10 +79,13 @@
  (define (primes-tests!)
    (run-tests
     primes
+    (test-true check-prime (check-prime primes<100 67))
+    (test-true is-4digit-prime? (is-4digit-prime? 2803))
+    (test-false is-4digit-prime? (is-4digit-prime? 666))
+    (test-false is-4digit-prime? (is-4digit-prime? 997))
+    (test-false is-4digit-prime? (is-4digit-prime? 6666))
+    (test-false is-4digit-prime? (is-4digit-prime? 66666))
+    (test-false is-4digit-prime? (is-4digit-prime? 10007))
     ))
 
  )
-
-(import primes)
-
-(primes-tests!)