Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: cd423cd8e3
Fetching contributors…

Cannot retrieve contributors at this time

14 lines (11 sloc) 0.368 kb
open Type
open Test
let _ =
test "(define f (delay (newline))) f (force f) f"
"#<promise>\n\n#<promise!#<void>>";
test "(define f (delay (+ 1 1))) f (force f) f"
"#<promise>\n2\n#<promise!2>";
test "(define f (delay (write 1))) (write 2) (force f)" "21";
test "(define f (delay (write 1))) (force f) (force f)" "1";
prerr_string "All passed!\n"
;;
Jump to Line
Something went wrong with that request. Please try again.