From 54d36ec03ff25b785714c1e2db40f43dabbc2683 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 7 Jul 2018 02:44:32 -0500
Subject: [PATCH] kernel: Test if one ``-1 f <array>`` hangs travisci.

Related to #2013.
---
 core/kernel/kernel-tests.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/core/kernel/kernel-tests.factor b/core/kernel/kernel-tests.factor
index a1942a4de8..2d1d044876 100644
--- a/core/kernel/kernel-tests.factor
+++ b/core/kernel/kernel-tests.factor
@@ -22,10 +22,12 @@ IN: kernel.tests
     }
 } [ 1 2 10 <iota> [ 3array ] 2with map ] unit-test
 
+
 ! Don't leak extra roots if error is thrown
 { } [ 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
 [ clear drop ] [