steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

continuations.tests: test case for #1187

db4
Björn Lindqvist 2014-12-04 19:19:41 +01:00 committed by John Benediktsson
parent 378f208025
commit 5dc7cce253
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
core/continuations/continuations-tests.factor
View File

@ -1,6 +1,6 @@
USING: kernel math namespaces io tools.test sequences vectors USING: kernel math namespaces io tools.test sequences vectors
continuations debugger parser memory arrays words continuations debugger parser memory arrays words
kernel.private accessors eval ; kernel.private accessors eval splitting ;
IN: continuations.tests IN: continuations.tests
: (callcc1-test) ( n obj -- n' obj ) : (callcc1-test) ( n obj -- n' obj )
@ -33,6 +33,11 @@ IN: continuations.tests
"Hello" = "Hello" =
] unit-test ] unit-test
! #1187
[ ] [
minor-gc [ split-slice ] ignore-errors minor-gc
] unit-test
"!!! The following error is part of the test" print "!!! The following error is part of the test" print
[ ] [ [ 6 [ 12 [ "2 car" ] ] ] print-error ] unit-test [ ] [ [ 6 [ 12 [ "2 car" ] ] ] print-error ] unit-test