Skip to content

Instantly share code, notes, and snippets.

@dleslie
Created May 2, 2015 14:59
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dleslie/71cc934fbc9fc7fa2d86 to your computer and use it in GitHub Desktop.
Save dleslie/71cc934fbc9fc7fa2d86 to your computer and use it in GitHub Desktop.
-*- mode: compilation; default-directory: "~/Workspace/code/dleslie/monad-egg/" -*-
Compilation started at Sat May 2 07:58:01
chicken-install -test
retrieving ...
checking platform for `monad' ...
checking dependencies for `monad' ...
mapped (srfi-1 srfi-1) to ()
install order:
("monad")
installing monad: ...
changing current directory to .
'/usr/bin/csi' -bnq -setup-mode -e "(require-library setup-api)" -e "(import setup-api)" -e "(setup-error-handling)" -e "(extension-name-and-version '(\"monad\" \"\"))" 'monad.setup'
'/usr/bin/csc' -feature compiling-extension -setup-mode -s -d2 monad.scm -j funky
Warning: redefinition of imported syntax binding: do
Warning: redefinition of imported syntax binding: do
'/usr/bin/csc' -feature compiling-extension -setup-mode -s -d2 monad.import.scm
cp -r 'monad.so' '/var/lib/chicken/7/monad.so'
chmod a+r '/var/lib/chicken/7/monad.so'
cp -r 'monad.import.so' '/var/lib/chicken/7/monad.import.so'
chmod a+r '/var/lib/chicken/7/monad.import.so'
chmod a+r '/var/lib/chicken/7/monad.setup-info'
'/usr/bin/csi' -s run.scm monad
-- testing CSC ---------------------------------------------------------------
-- testing Identity ------------------------------------------------------
Unit ............................................................. [ERROR]
Error: unbound variable: monad#<id>-unit
(do <id> (return '()))
Bind ............................................................. [ERROR]
Error: unbound variable: monad#<id>-bind
(do <id> (x <- 'a) (return `(,x)))
Fail ............................................................. [ PASS]
3 tests completed in 0.0 seconds.
2 errors (66.7%).
1 out of 3 (33.3%) test passed.
-- done testing Identity -------------------------------------------------
-- testing Maybe ---------------------------------------------------------
Unit ............................................................. [ERROR]
Error: unbound variable: monad#<maybe>-bind
(do <maybe> (if #t (return 'First) (fail)) (return 'Second))
Bind ............................................................. [ERROR]
Error: unbound variable: monad#<maybe>-bind
(do <maybe> (x <- (fail)) (if #t x (return 'First)) (return 'Second))
Fail ............................................................. [ERROR]
Error: unbound variable: monad#<maybe>-fail
(do <maybe> (fail))
3 tests completed in 0.001 seconds.
3 errors (100%).
0 out of 3 (0%) tests passed.
-- done testing Maybe ----------------------------------------------------
-- testing List ----------------------------------------------------------
Unit ............................................................. [ERROR]
Error: unbound variable: monad#<list>-unit
(do <list> (return 1))
Bind ............................................................. [ERROR]
Error: unbound variable: monad#<list>-bind
(do <list> (x <- '(1 2)) (y <- '(a b)) (return `(,x ,y)))
Fail ............................................................. [ PASS]
3 tests completed in 0.0 seconds.
2 errors (66.7%).
1 out of 3 (33.3%) test passed.
-- done testing List -----------------------------------------------------
-- testing State ---------------------------------------------------------
Unit ............................................................. [ERROR]
Error: unbound variable: monad#<state>-unit
((do <state> (return 1)) #f)
Bind ............................................................. [ERROR]
Error: unbound variable: monad#<state>-bind
((do <state>
(x <- (/m get))
(if (> x 0) (return 'Positive) (return 'Negative)))
1)
Gets ............................................................. [ERROR]
Error: unbound variable: monad#<state>-bind
((do <state>
(x <- (/m! gets (lambda (value) (+ value 2))))
(if (> x 0) (return 'Positive) (return 'Negative)))
-1)
Modify ........................................................... [ERROR]
Error: unbound variable: monad#<state>-bind
((do <state>
(/m! modify (lambda (value) (+ value 2)))
(x <- (/m get))
(if (> x 0) (return 'Positive) (return 'Negative)))
-1)
Put .............................................................. [ERROR]
Error: unbound variable: monad#<state>-bind
((do <state>
(/m! put 99)
(x <- (/m get))
(if (> x 0) (return 'Positive) (return 'Negative)))
-1)
Fail ............................................................. [ PASS]
6 tests completed in 0.001 seconds.
5 errors (83.3%).
1 out of 6 (16.7%) test passed.
-- done testing State ----------------------------------------------------
4 subgroups completed in 1.449 seconds.
0 out of 4 (0%) subgroups passed.
-- done testing CSC ----------------------------------------------------------
-- testing CSI ---------------------------------------------------------------
-- testing Identity ------------------------------------------------------
Unit ............................................................. [ PASS]
Bind ............................................................. [ PASS]
Fail ............................................................. [ PASS]
3 tests completed in 0.0 seconds.
3 out of 3 (100%) tests passed.
-- done testing Identity -------------------------------------------------
-- testing Maybe ---------------------------------------------------------
Unit ............................................................. [ PASS]
Bind ............................................................. [ PASS]
Fail ............................................................. [ PASS]
3 tests completed in 0.001 seconds.
3 out of 3 (100%) tests passed.
-- done testing Maybe ----------------------------------------------------
-- testing List ----------------------------------------------------------
Unit ............................................................. [ PASS]
Bind ............................................................. [ PASS]
Fail ............................................................. [ PASS]
3 tests completed in 0.0 seconds.
3 out of 3 (100%) tests passed.
-- done testing List -----------------------------------------------------
-- testing State ---------------------------------------------------------
Unit ............................................................. [ PASS]
Bind ............................................................. [ PASS]
Gets ............................................................. [ PASS]
Modify ........................................................... [ PASS]
Put .............................................................. [ PASS]
Fail ............................................................. [ PASS]
6 tests completed in 0.0 seconds.
6 out of 6 (100%) tests passed.
-- done testing State ----------------------------------------------------
4 subgroups completed in 0.083 seconds.
4 out of 4 (100%) subgroups passed.
-- done testing CSI ----------------------------------------------------------
Compilation finished at Sat May 2 07:58:05
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment