From 4f391b2c7408d3c61d93553cf9e339cb08bb08d5 Mon Sep 17 00:00:00 2001
From: =?utf8?q?J=C3=A9r=C3=B4me=20Quelin?= <jquelin@gmail.com>
Date: Wed, 29 Oct 2008 20:32:35 +0100
Subject: [PATCH] fix sos test now that mycology revealed a bug

---
 t/5-befunge/i-sos.t | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/t/5-befunge/i-sos.t b/t/5-befunge/i-sos.t
index c6e43af..5835ee3 100644
--- a/t/5-befunge/i-sos.t
+++ b/t/5-befunge/i-sos.t
@@ -48,9 +48,9 @@ sub slurp () {
 # The big fat one.
 sel;
 $bef->store_code( <<'END_OF_CODE' );
-123 2 { ... 3 { .... 0 { 3 .. 987 01- { . 2 u .. 4 u .. v
-0u... 456 02- u 56 04- u 163 2 } .......   2 01-u 2 } v >
-..  4 01- u 0 } .. 004 03-u 02- } .. q                >
+123 2 { ... 3 { .... 0 { 3 .. 987 01- { . 3 u ... 4 u .. v
+0u... 456 02- u 56 04- u 163 2 } .......   2 01-u 2 }  v >
+..  4 01- u 0 } .. 004 03-u 02- } .. q                 >
 END_OF_CODE
 my $exp = "";
 # (6,0) { new, >0, enough
@@ -66,13 +66,13 @@ $exp .= "0 0 0 0 ";
 #   * aft: ( [] [15 0] [7 0] [1 0 0] )  Storage (24,0)
 $exp .= "3 0 ";
 # (37,0) { new, <0
-#   * bef: ( [9 8 7 -1] [15 0] [7 0] [1 0 0] )       Storage (24,0)
-#   * aft: ( [0] [9 8 7 24 0] [15 0] [7 0] [1 0 0] ) Storage (38,0)
+#   * bef: ( [9 8 7 -1] [15 0] [7 0] [1 0 0] )        Storage (24,0)
+#   * aft: ( [] [9 8 7 0 24 0] [15 0] [7 0] [1 0 0] ) Storage (38,0)
 $exp .= "0 ";
 # (44,0) u transfer, >0, enough
-#   * bef: ( [2] [9 8 7 24 0] [15 0] [7 0] [1 0 0] ) Storage (38,0)
-#   * aft: ( [0 24] [9 8 7] [15 0] [7 0] [1 0 0] )
-$exp .= "24 0 ";
+#   * bef: ( [3] [9 8 7 0 24 0] [15 0] [7 0] [1 0 0] ) Storage (38,0)
+#   * aft: ( [0 24 0] [9 8 7] [15 0] [7 0] [1 0 0] )
+$exp .= "0 24 0 ";
 # (51,0) u transfer, >0, not enough
 #   * bef: ( [6] [9 8 7] [15 0] [7 0] [1 0 0] )  Storage (38,0)
 #   * aft: ( [7 8 9 0] [] [15 0] [7 0] [1 0 0] )
-- 
2.11.4.GIT