Revision
1933
Author
vincent.isambart@gmail.com
Date
2009-06-26 05:56:34 -0700 (Fri, 26 Jun 2009)

Log Message

added failing tests

Modified Paths

Diff

Modified: MacRuby/branches/experimental/test_vm/block.rb (1932 => 1933)


--- MacRuby/branches/experimental/test_vm/block.rb	2009-06-26 12:26:00 UTC (rev 1932)
+++ MacRuby/branches/experimental/test_vm/block.rb	2009-06-26 12:56:34 UTC (rev 1933)
@@ -537,3 +537,33 @@
   b = proc { |x| if x then p x else b.call(42) end }
   b.call(nil)
 }
+
+assert '42', %{
+  b = nil
+  1.times {
+    x = 42
+    b = proc { p x }
+  }
+  x = 1
+  b.call
+}
+
+assert "42\n42", %{
+  a = b = c = nil
+  1.times {
+    1.times {
+      x = 42
+      1.times {
+        1.times {
+          c = proc {
+            a = proc { p x }
+            b = proc { p x }
+          }
+        }
+        c.call
+      }
+    }
+  }
+  b.call
+  a.call
+}