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

kernel: Test if one ``-1 f <array>`` hangs travisci. 

Related to #2013.
elevate-erg
Doug Coleman 2018-07-07 02:44:32 -05:00
parent dadf462661
commit 54d36ec03f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/kernel/kernel-tests.factor
View File

@ -22,10 +22,12 @@ IN: kernel.tests
} }
} [ 1 2 10 <iota> [ 3array ] 2with map ] unit-test } [ 1 2 10 <iota> [ 3array ] 2with map ] unit-test
! Don't leak extra roots if error is thrown ! Don't leak extra roots if error is thrown
{ } [ 1000 [ [ 3 throw ] ignore-errors ] times ] unit-test { } [ 1000 [ [ 3 throw ] ignore-errors ] times ] unit-test
{ } [ 1000 [ [ -1 f <array> ] ignore-errors ] times ] unit-test [ -1 f <array> ] must-fail
{ } [ 1000 [ [ -1 f <array> ] ignore-errors ] times ] unit-test ! Travis CI fails
! Make sure we report the correct error on stack underflow ! Make sure we report the correct error on stack underflow
[ clear drop ] [ [ clear drop ] [