Custom Query (1630 matches)

(match '(#:key 1) [(#:foo x) x]) matches and returns 1, whereas I would expect keywords to be self evaluating and therefore throw a match error.

And this throws a match error, not sure why: (match '(#:key #:key) [(#:foo #:foo) "here"]). Again the expected behavior would be a match error.

As a last example: (match '(#:key) [(#:foo) 1] [(#:key) 2]) should return 2 but returns 1.

I'd expect the example below to exit with code 1, instead it exits with code 0:

(use test)

(test-group "A"
  (abort "error"))

(test-group "B"
  (test-assert #t))

(test-exit)

$ csi -s run.scm 

Warning: error in group outside of tests

Error: error
1 test completed in 0.0 seconds.
1 error (100%).
0 out of 1 (0%) tests passed.
-- done testing A ------------------------------------------------------------


-- testing B -----------------------------------------------------------------
#t ................................................................... [ PASS]
1 test completed in 0.0 seconds.
1 out of 1 (100%) test passed.
-- done testing B ------------------------------------------------------------

$ echo $?
0

In the test egg, the duration of a test is given as an exact value, which should probably be an inexact. Here a simple patch:

--- test-support.scm	(revision 37545)
+++ test-support.scm	(working copy)
@@ -320,11 +320,12 @@
          (start-milliseconds
           (or (test-group-ref group 'start-milliseconds) 0))
          (duration
-          (if (and start-time (> (- end-time start-time) 60))
+          (exact->inexact
+           (if (and start-time (> (- end-time start-time) 60))
               (/ (- (+ (* end-time 1000) end-milliseconds)
                     (+ (* start-time 1000) start-milliseconds))
                  1000)
-              (/ (- end-milliseconds start-milliseconds) 1000)))
+              (/ (- end-milliseconds start-milliseconds) 1000))))
          (count (or (test-group-ref group 'count) 0))
          (pass (or (test-group-ref group 'PASS) 0))
          (fail (or (test-group-ref group 'FAIL) 0))