continuations.tests: test case for #1187

core/continuations/continuations-tests.factor

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