From a670480a975e7bb4499fef179f249f57d70fcc4e Mon Sep 17 00:00:00 2001
From: =?utf8?q?J=C3=A9r=C3=B4me=20Quelin?= <jquelin@gmail.com>
Date: Thu, 30 Oct 2008 19:06:34 +0100
Subject: [PATCH] fixing flow test now that mycology revealed another bug

---
 t/5-befunge/e-flow.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/5-befunge/e-flow.t b/t/5-befunge/e-flow.t
index 894520f..12e7f61 100644
--- a/t/5-befunge/e-flow.t
+++ b/t/5-befunge/e-flow.t
@@ -158,11 +158,11 @@ $out = slurp;
 ok( $out, "1 " );
 sel; # repeat negative.
 $bef->store_code( <<'END_OF_CODE' );
-5-kq
+5-k43.q
 END_OF_CODE
 eval { $bef->run_code; };
 $out = slurp;
-ok( $@, qr/Attempt to repeat \('k'\) a negative number of times \(-5\)/ );
+ok( $out, "3 " );
 sel; # repeat forbidden char.
 $bef->store_code( <<'END_OF_CODE' );
 5k;q
-- 
2.11.4.GIT