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!)