poule test failures added by mario-goulart on Tue May 28 23:15:25 2024
=== poule test: [FAIL]
'/home/mario/local/chicken-5.3.0/bin/csi' -script run.scm poule < /dev/null 2>&1
-- testing create errors -----------------------------------------------------
invalid fn ........................................................... [ PASS]
not a number ......................................................... [ PASS]
negative number ...................................................... [ PASS]
3 tests completed in 0.0 seconds.
3 out of 3 (100%) tests passed.
-- done testing create errors ------------------------------------------------
-- testing lifetime ----------------------------------------------------------
poule-destroy w/ implicit wait ....................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 4
(poule-destroy (poule-create sleepy-worker 2))
poule-destroy w/ explicit wait ....................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 6
(poule-destroy (poule-create sleepy-worker 2) #t)
poule-destroy w/ explicit no-wait .................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 7
(poule-destroy (poule-create sleepy-worker 2) #t)
poule-destroy w/ explicit no-wait .................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 5
(poule-destroy (poule-create sleepy-worker 2))
poule-destroy w/ explicit wait ....................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 6
(poule-destroy (poule-create sleepy-worker 2) #t)
poule-destroy w/ explicit no-wait .................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 7
(poule-destroy (poule-create sleepy-worker 2) #t)
poule-destroy w/ explicit no-wait .................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 8
(poule-destroy (poule-create sleepy-worker 2) #f)
3 tests completed in 0.002 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing lifetime -----------------------------------------------------
-- testing submission --------------------------------------------------------
1 process ............................................................ [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 10
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 1)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
on 5 process ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 8
(poule-destroy (poule-create sleepy-worker 2) #f)
3 tests completed in 0.011 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing lifetime -----------------------------------------------------
-- testing submission --------------------------------------------------------
1 process ............................................................ [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 11
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 1)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
on 5 process ......................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 9
(poule-destroy (poule-create sleepy-worker 2) #f)
3 tests completed in 0.028 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing lifetime -----------------------------------------------------
-- testing submission --------------------------------------------------------
1 process ............................................................ [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 9
(poule-destroy (poule-create sleepy-worker 2) #f)
3 tests completed in 0.007 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing lifetime -----------------------------------------------------
-- testing submission --------------------------------------------------------
1 process ............................................................ [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 10
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 1)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
on 5 process ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 8
(poule-destroy (poule-create sleepy-worker 2) #f)
3 tests completed in 0.014 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing lifetime -----------------------------------------------------
-- testing submission --------------------------------------------------------
1 process ............................................................ [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 8
(poule-destroy (poule-create sleepy-worker 2) #f)
3 tests completed in 0.019 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing lifetime -----------------------------------------------------
-- testing submission --------------------------------------------------------
1 process ............................................................ [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 9
(poule-destroy (poule-create sleepy-worker 2) #f)
3 tests completed in 0.022 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing lifetime -----------------------------------------------------
-- testing submission --------------------------------------------------------
1 process ............................................................ [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 10
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 1)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
on 5 process ......................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 11
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 1)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
on 5 process ......................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 9
(poule-destroy (poule-create sleepy-worker 2) #f)
3 tests completed in 0.03 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing lifetime -----------------------------------------------------
-- testing submission --------------------------------------------------------
1 process ............................................................ [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 10
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 1)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
on 5 process ......................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 11
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 1)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
on 5 process ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 10
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 1)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
on 5 process ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 10
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 1)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
on 5 process ......................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 11
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 1)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
on 5 process ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 10
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 1)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
on 5 process ......................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 11
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 1)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
on 5 process ......................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 11
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 1)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
on 5 process ......................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 13
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.029 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 11
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 1)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
on 5 process ......................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 11
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 1)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
on 5 process ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 10
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 1)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
on 5 process ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 12
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.015 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 12
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.036 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 12
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.039 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 13
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.051 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 13
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.045 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 12
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.111 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 13
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.094 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 12
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.063 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 13
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.074 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 13
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.073 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 12
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.035 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 13
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.106 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 12
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.044 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 12
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.103 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 13
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.105 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 12
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.12 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 12
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.117 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 13
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.135 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 12
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.055 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 13
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.141 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 13
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.151 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 12
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.026 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 12
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.076 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 13
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.151 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 13
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.154 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 12
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.09 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 13
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.131 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.265 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 13
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.101 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 12
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.063 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.058 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.069 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.049 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 12
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.088 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.055 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 13
(begin
(let* ((d (create-temporary-directory))
(p (poule-create (make-temporary-directory-worker d) 5)))
(for-each (cut poule-submit p <>) data)
(poule-destroy p #t)
(let ((entries (length (glob (sprintf "~A/*" d)))))
(delete-directory d #t)
entries)))
2 tests completed in 0.209 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing submission ---------------------------------------------------
-- testing result ------------------------------------------------------------
wrong number ......................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.159 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.181 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.204 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.074 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.186 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.087 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.178 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.137 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.179 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.145 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.03 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.076 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.152 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.237 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.193 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.138 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.1 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.157 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.234 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.132 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.106 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.27 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.159 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.243 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.229 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.285 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.15 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.226 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.209 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.283 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.234 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.098 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.24 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 14
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.091 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.148 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.144 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.52 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.413 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.287 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.229 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.28 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.519 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.217 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.224 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.351 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.246 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.167 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.253 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.246 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.383 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.252 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.393 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.208 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.277 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.273 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.273 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.147 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.309 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.365 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.337 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.218 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 15
(let* ((p (poule-create (lambda (x) x) 1)) (r (poule-result p 12)))
(poule-destroy p)
r)
math ................................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.236 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.598 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.416 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.418 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.247 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.395 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.353 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.365 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.214 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.177 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.633 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.347 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.431 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.803 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.693 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.374 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.428 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.667 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.506 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.42 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.406 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.302 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.367 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.449 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.406 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.704 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.654 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.437 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.226 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.403 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.768 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.182 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.393 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.301 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.469 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.644 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.312 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.799 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.754 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.498 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.4 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.527 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.407 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.583 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.584 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.821 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.32 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.381 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.832 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.528 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.513 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.219 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.536 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.402 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.964 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.818 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.561 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.501 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.45 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.236 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.544 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.839 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.637 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.733 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.12 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.523 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.46 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.657 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.603 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.847 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.584 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.494 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.621 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.813 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.858 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.553 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.596 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.355 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.558 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.786 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.045 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.455 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.529 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.679 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.72 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.639 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.644 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.956 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.644 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.074 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.077 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.613 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.364 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.827 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.499 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.224 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.935 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.634 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.57 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.472 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.677 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.954 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.598 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.976 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.6 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.282 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.596 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.573 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.715 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.76 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.623 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.035 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.835 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.724 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.607 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.493 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.167 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.026 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.618 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.771 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.408 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.016 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.387 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.866 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.781 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.981 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.598 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.598 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.59 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.582 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.066 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.959 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.727 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.793 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.074 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.687 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.392 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.74 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.764 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.839 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.98 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.855 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.845 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.733 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.903 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.848 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.786 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.61 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.665 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.281 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.865 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.056 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.264 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.733 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.314 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.332 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.709 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.17 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.839 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.483 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.76 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.667 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.086 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.296 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.707 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.093 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.784 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.406 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.305 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.511 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.113 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.788 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.752 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.679 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.664 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.848 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.669 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.0 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.901 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.094 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.816 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.471 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.935 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.768 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.669 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.973 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.566 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.646 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.888 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.891 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.792 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.991 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.798 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.007 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.388 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.959 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.86 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.751 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.737 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.852 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.873 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.674 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.833 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.72 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.872 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.792 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.896 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.139 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.775 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.019 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.051 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.514 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.61 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.94 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.431 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.925 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.229 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.93 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.233 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.174 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.976 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.283 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.91 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.91 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.71 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.981 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.132 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.862 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.264 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.915 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.877 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.118 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.686 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.191 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.283 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.114 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.004 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.659 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.034 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.036 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.049 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.905 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.907 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.066 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.025 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.09 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.813 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.94 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.04 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.974 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.141 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.948 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.101 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.494 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.191 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.982 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.483 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.72 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.115 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.012 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.39 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.075 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.94 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.07 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.285 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.398 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.936 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.93 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.94 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.507 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.091 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.169 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.274 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.333 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.477 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.337 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.149 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.82 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.296 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.275 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.009 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.156 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.174 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.145 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.132 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.103 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.395 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.656 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.221 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.308 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 1.005 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.374 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.073 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.975 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.716 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.206 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.107 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.195 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.112 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.098 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.299 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.423 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.256 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.321 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.97 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.106 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.206 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.355 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.108 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.329 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.111 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.201 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.802 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.105 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.035 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.276 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.169 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.122 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.105 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.155 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.285 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.34 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.472 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.629 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.36 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.15 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.985 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.239 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.117 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.419 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.782 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.176 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.405 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.556 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.999 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.286 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.289 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.137 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.368 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.521 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.268 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.143 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.179 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.377 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.071 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.67 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.572 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.126 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.161 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.663 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.302 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.327 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.942 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.791 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.57 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.369 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.594 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.596 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.884 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.205 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.35 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.076 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.201 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.317 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.5 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.318 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.283 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.448 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.057 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.129 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.998 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.389 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.15 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.064 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.391 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.21 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.053 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.456 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.379 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.094 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.039 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.207 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.5 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.802 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.322 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.486 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.488 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.489 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.493 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.2 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.944 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.041 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.137 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.167 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.319 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.239 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.235 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.949 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.217 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.486 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.336 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.219 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.933 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.087 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.359 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.643 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.296 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.089 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.076 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.248 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.5 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.214 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.33 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.856 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.185 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.246 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.93 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.06 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.076 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.053 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.864 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.105 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.646 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.359 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.207 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.959 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.479 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.382 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.233 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.479 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.965 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.341 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.345 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.017 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.919 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.146 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.006 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.231 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.992 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.379 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.321 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.541 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.279 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.545 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.119 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.386 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.253 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.156 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.892 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.559 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.503 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.98 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.109 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.592 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.358 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.204 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.557 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.967 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.334 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.263 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.284 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.035 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.766 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.418 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.989 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.239 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.169 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.301 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.112 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.279 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.907 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.737 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.244 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.02 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.967 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.911 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.912 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.918 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.959 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.96 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.92 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.003 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.442 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.443 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.546 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.352 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.669 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.401 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.599 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.803 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.596 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.598 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.6 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.602 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.659 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.661 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.646 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.297 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.298 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.604 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.606 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.758 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.613 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.904 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.394 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.559 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.561 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.024 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.602 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.604 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.116 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.118 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.432 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.731 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.732 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 1.156 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.913 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.306 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.226 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.147 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.838 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.181 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.797 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.395 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.008 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.128 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.347 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.561 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.048 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.157 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.516 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.797 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.134 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.44 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.513 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.522 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.068 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.944 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.407 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.072 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.472 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.61 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.532 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.552 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.558 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.56 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.404 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.061 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.063 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.275 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.277 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.34 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.341 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.429 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.655 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.084 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.707 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.34 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.334 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.585 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.085 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.549 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.316 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.289 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.655 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.428 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.263 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.291 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.162 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.342 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.184 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.483 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.223 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.0 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.327 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.314 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.731 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.074 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.941 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.507 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.376 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.937 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.08 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.178 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.199 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.2 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.284 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.302 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.317 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.087 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.241 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.418 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.211 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.725 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.564 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.043 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 1.136 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.474 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.926 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.72 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.301 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.137 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.22 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.861 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.631 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.666 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.029 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.195 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.281 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.102 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.693 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.75 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.633 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.385 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.362 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.649 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.953 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.666 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.785 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.956 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.3 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.258 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.955 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.347 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.677 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.262 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.104 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.24 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.938 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.954 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.183 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.222 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.508 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.393 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.618 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.885 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.238 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.697 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.324 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.926 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.859 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.862 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.494 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.321 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.803 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.791 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.792 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.302 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.528 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.963 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.297 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.216 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.106 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.165 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.358 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.919 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.704 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.312 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.102 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.313 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.065 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.552 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.419 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.748 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.44 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.346 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.177 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.226 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.198 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.267 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.896 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.433 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.478 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.589 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.089 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.091 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.049 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.26 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.261 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.599 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.301 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.768 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.77 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.133 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.774 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.699 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.7 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.782 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.783 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.782 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.206 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.733 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.734 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.871 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.873 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.794 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.336 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.005 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.817 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 1.506 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.929 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.831 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.956 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.834 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.333 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.903 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.905 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.41 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.246 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.558 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.976 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.75 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.619 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.18 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.445 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.542 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.961 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.558 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.207 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.025 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.996 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.574 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.396 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.481 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.866 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.191 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.385 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.985 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.167 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.254 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.126 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.205 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.261 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.362 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.476 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.116 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.557 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.682 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.43 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.022 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.001 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.004 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.671 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.125 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.033 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.615 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.809 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 1.463 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.886 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.19 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.984 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.4 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.401 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.125 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.003 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.93 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.931 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.458 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.543 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.011 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.894 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.002 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.79 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.07 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.852 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.855 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.927 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.43 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.431 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.469 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.754 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 1.516 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.774 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.859 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.724 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.551 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.553 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.022 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.023 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.759 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.76 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.447 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.103 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.47 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.534 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.544 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.783 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.65 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.984 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.163 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.695 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.093 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.915 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.171 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.998 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.613 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.209 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.635 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.209 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.864 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.248 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.353 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.212 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.793 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.825 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.606 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.668 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.673 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.246 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.495 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.451 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.305 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.162 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.197 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.365 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.242 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.542 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.997 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.295 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.106 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.657 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.776 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.133 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.243 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.452 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.215 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.0 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.026 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.177 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.111 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.612 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.037 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.265 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.374 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.595 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.386 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.544 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.659 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.301 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.742 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.869 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.276 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.16 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.334 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.583 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.166 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.193 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.093 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.078 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.2 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 1.192 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.689 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.027 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.857 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.433 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.929 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.174 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.513 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.018 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.179 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.826 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.44 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.609 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.131 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.612 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.267 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.096 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.078 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.619 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 17
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 1.439 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.763 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.25 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.346 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.957 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.44 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.139 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.621 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.784 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.54 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.231 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.338 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.459 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.461 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.938 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.59 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.738 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.214 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.502 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.347 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.992 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.582 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.583 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.244 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.319 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.533 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.535 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.395 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.009 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.428 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.376 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.42 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.173 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.28 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.606 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.41 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.687 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.688 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.071 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.125 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.153 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.212 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.923 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.2 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.206 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.203 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.305 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.907 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.179 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.645 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.898 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.023 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.213 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.826 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.648 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.649 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.786 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.701 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.906 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.816 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.419 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.667 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.865 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.339 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.341 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 16
(let* ((p (poule-create math-worker 10))
(n (list-tabulate
100
(lambda _
(list (pseudo-random-integer 100) (pseudo-random-integer 100)))))
(adds (map (lambda (pair) (poule-submit p `(add ,@pair))) n))
(subs (map (lambda (pair) (poule-submit p `(sub ,@pair))) n))
(res (every (lambda (in add sub)
(and (eq? (apply + in) (poule-result p add))
(eq? (apply - in) (poule-result p sub))))
n
adds
subs)))
(poule-destroy p)
res)
2 tests completed in 0.919 seconds.
2 errors (100%).
0 out of 2 (0%) tests passed.
-- done testing result -------------------------------------------------------
-- testing failure -----------------------------------------------------------
signal simple object ................................................. [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.21 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.309 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.817 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.234 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.447 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.07 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.193 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.194 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.924 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.794 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.034 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.318 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.22 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.38 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.74 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.882 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.074 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.254 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.449 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.569 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.571 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.572 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.49 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.491 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.848 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.221 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.28 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.099 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.989 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.272 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.286 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.959 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.231 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.491 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.714 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.377 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.858 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.116 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.216 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.509 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.487 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.102 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.293 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.31 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.873 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.662 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.131 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.089 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.231 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.317 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.136 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.294 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.391 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.379 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.6 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.193 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.303 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.907 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.159 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.339 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.163 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.164 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.162 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.919 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.944 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 18
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.293 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.266 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.336 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.894 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.439 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.735 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.156 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.344 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.035 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.579 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.271 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.843 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.668 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.745 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.935 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 19
(handle-failure (lambda _ (signal 'bar)))
signal condition ..................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.468 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.198 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.462 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.432 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.089 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.76 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.948 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.209 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.362 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.574 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.769 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.969 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.893 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.58 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.452 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.244 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.584 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.31 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 2.488 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.27 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.784 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.231 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.275 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.231 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.278 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.389 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.991 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.238 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.604 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.516 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.608 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.29 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.804 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.611 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.293 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.341 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.813 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 20
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.344 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.013 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.928 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.536 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.003 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.819 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.419 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.825 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.502 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.825 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.829 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.828 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.028 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.364 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.511 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.835 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 21
(handle-failure
(lambda _ (signal (condition '(exn location foo message "bar")))))
unreadable object .................................................... [ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.439 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.842 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.522 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.377 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.378 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.527 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.825 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.638 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.985 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 1.451 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.574 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.575 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.389 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.391 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.58 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-input-file*) cannot open file - Invalid argument: 23
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.583 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.484 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
[ERROR]
Error: (open-output-file*) cannot open file - Invalid argument: 22
(let ((res (handle-failure (lambda _ (current-output-port)))))
(cons (car res) (take-right (string-split (cdr res)) 2)))
3 tests completed in 0.589 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing failure ------------------------------------------------------
###
### Environment information
###
salmonella 3.0.1 -- a tool for testing CHICKEN eggs (http://wiki.call-cc.org/egg/salmonella)
Started on Tue May 28 20:45:22 2024
Command line: /home/mario/local/chicken-5.3.0//bin/salmonella
Options:
chicken-install: /home/mario/local/chicken-5.3.0/bin/chicken-install
repo-dir: /tmp/tempb603.338294/poule/0.1.0/salmonella-tmp-89e03/repo
chicken-install-args: (-v -test)
C compiler: gcc
gcc (Debian 10.2.1-6) 10.2.1 20210110
Copyright (C) 2020 Free Software Foundation, Inc.
This is free software; see the source for copying conditions. There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
C++ compiler: g++
g++ (Debian 10.2.1-6) 10.2.1 20210110
Copyright (C) 2020 Free Software Foundation, Inc.
This is free software; see the source for copying conditions. There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
C compiler flags: -fno-strict-aliasing -fwrapv -DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer -I/home/mario/local/chicken-5.3.0//include/chicken -I'/tmp/tempb603.338294/poule/0.1.0/salmonella-tmp-89e03/repo/include/chicken'
Linker: gcc
Linker flags: -L/home/mario/local/chicken-5.3.0//lib -Wl,-rpath=/home/mario/local/chicken-5.3.0//lib
Libraries: -lchicken -lm -ldl
CHICKEN banner:
CHICKEN
(c) 2008-2021, The CHICKEN Team
(c) 2000-2007, Felix L. Winkelmann
Version 5.3.0 (rev e31bbee5)
linux-unix-gnu-x86-64 [ 64bit dload ptables ]
Environment variables:
SALMONELLA_RUNNING: 1
CHICKEN_INSTALL_REPOSITORY: /tmp/tempb603.338294/poule/0.1.0/salmonella-tmp-89e03/repo/lib/chicken/11
CHICKEN_REPOSITORY_PATH: /tmp/tempb603.338294/poule/0.1.0/salmonella-tmp-89e03/repo/lib/chicken/11
CHICKEN_EGG_CACHE: /tmp/tempb603.338294/poule/0.1.0/salmonella-tmp-89e03/repo/cache
CHICKEN_INCLUDE_PATH: /tmp/tempb603.338294/poule/0.1.0/salmonella-tmp-89e03/repo/share/chicken
CHICKEN_C_INCLUDE_PATH: /tmp/tempb603.338294/poule/0.1.0/salmonella-tmp-89e03/repo/include/chicken
CHICKEN_HOME: (not set)
CSC_OPTIONS: (not set)
PATH: /tmp/tempb603.338294/poule/0.1.0/salmonella-tmp-89e03/repo/bin:/usr/local/bin:/usr/bin:/bin:/usr/local/games:/usr/games