Commits

David Krentzlin committed fb74481

experiments with tests

  • Participants
  • Parent commits 6dbd3e9
  • Tags 0.0.1

Comments (0)

Files changed (2)

File test-generative.scm

 
 (define current-test-generative-iterations (make-parameter 100))
 
-
+;;TODO: currently test-group-filter/remove doesn't work with groups inside test-generative
+;; test-filter/remove does work however
 
 ;; just do the bare minimum to evaluate the expresion
 ;; this has been extracte from test's code

File tests/run.scm

 (use data-generators test test-generative)
 
+(test-group "group around"
+   (test-group "probably failing"
 
-(test-group "group around"
+       (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 "probably failing"
-                        (test-generative ((number (gen-fixnum))
-                                          (string (gen-string-of (gen-char #\a #\z))))
-                                         (test-assert (> (string-length string) 30))
-                                         (test-assert ((constantly #t)))))
-            (test-group "all passing"
-                        (test-generative ((number (gen-fixnum)))
-                           (test-assert (number? number)))))
+
+(test-group "other"
+            (test "foo" #t #t)
+            (test "bar" #t #t))
 
 
 (test-exit)