From: Adam Megacz <adam@megacz.com>
Date: Fri, 31 Jul 2009 18:53:19 +0000 (-0700)
Subject: new test: set-olc-resets-all-bits.fleet
X-Git-Url: http://git.megacz.com/?p=fleet.git;a=commitdiff_plain;h=964a30efe507a572c02e5be216eee6fc2bb6de8e

new test: set-olc-resets-all-bits.fleet
---

diff --git a/tests/dock/set-olc-resets-all-bits.fleet b/tests/dock/set-olc-resets-all-bits.fleet
new file mode 100644
index 0000000..c20cd12
--- /dev/null
+++ b/tests/dock/set-olc-resets-all-bits.fleet
@@ -0,0 +1,20 @@
+#expect 5
+#expect 5
+#expect 4
+
+#ship debug : Debug
+
+debug.in:
+  [*] set olc=1;
+  set word=-1;
+  set olc=word;
+  set olc=2;
+  set word=5;
+  head;
+  deliver;
+  set olc--;
+  [d] abort;
+  [d] set word=4;
+  [d] deliver;
+  tail;
+