From: Björn Lindqvist <bjourne@gmail.com>
Date: Thu, 4 Dec 2014 18:19:41 +0000 (+0100)
Subject: continuations.tests: test case for #1187
X-Git-Tag: unmaintained~3161
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=5dc7cce25353427f95ec463e09efb77d8cc9690c

continuations.tests: test case for #1187
---

diff --git a/core/continuations/continuations-tests.factor b/core/continuations/continuations-tests.factor
index 988be0dd88..cb24f7886e 100644
--- a/core/continuations/continuations-tests.factor
+++ b/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