Commits

David Krentzlin committed 1fb6eeb

readded tests

  • Participants
  • Parent commits 5690aa5

Comments (0)

Files changed (2)

File tests/examples.scm

-(use data-generators test test-generative)
-
-(test-group "group around"
-   (test-group "probably failing"
-
-       (test-generative ((number (gen-fixnum))
-                         (string (gen-string-of (gen-char #\a #\z))))
-           (test-assert "failing1" (> (string-length string) 30))
-           (test-assert ((constantly #t)))))
-
-       (test-group "all passing"
-           (test-generative ((number (gen-fixnum)))
-               (test-assert "passing1" (number? number)))))
-
-
-(test-group "other"
-            (test "foo" #t #t)
-            (test "bar" #t #t))
-
-
-(test-generative ((the-number (lambda () (random 100))))
-   (test-assert "it's numeric"  (number? the-number))
-   (test-assert "it's positive" (positive? the-number))
-   (test-assert "it's smaller that 50" (< the-number 50)))
-
-
-(test-exit)

File tests/run.scm

+(use test test-generative)
+
+(test-generative ((the-number (lambda () (random 100))))
+   (test-assert "it's numeric"  (number? the-number))
+   (test-assert "it's positive" (positive? the-number))
+   ;(test-assert "it's smaller that 50" (< the-number 50))
+   )
+
+
+(test-exit)