[macruby-changes] [2068] MacRuby/branches/experimental/test_vm/block.rb

[source_changes at macosforge.org]

Revision: 2068
          http://trac.macosforge.org/projects/ruby/changeset/2068
Author:   lsansonetti at apple.com
Date:     2009-07-23 22:23:19 -0700 (Thu, 23 Jul 2009)
Log Message:
-----------
more failing tests

Modified Paths:
--------------
    MacRuby/branches/experimental/test_vm/block.rb

Modified: MacRuby/branches/experimental/test_vm/block.rb
===================================================================
--- MacRuby/branches/experimental/test_vm/block.rb	2009-07-24 05:18:17 UTC (rev 2067)
+++ MacRuby/branches/experimental/test_vm/block.rb	2009-07-24 05:23:19 UTC (rev 2068)
@@ -179,11 +179,15 @@
 assert "42", "n = 0; 100.times { |i| next if i % 2 == 0; n += 1; }; p n - 8"
 assert "42", "p 100.times { break 42 }"
 assert "42", "p proc { next 42 }.call"
+assert "42", "i=0; while i<1; begin; i=2; next; ensure; p 42; end; end"
+
 assert "42", "begin p proc { break 24 }.call rescue LocalJumpError; p 42 end"
 assert "42", "def foo; yield; end; foo { break }; 1.times {p 42}"
 assert "42", "1.times { begin; break; ensure; p 42; end }"
-assert "42", "i=0; while i<1000; begin; break; ensure; p 42; end; end"
+assert "42", "i=0; while i<1; begin; break; ensure; p 42; end; end"
 
+assert "42\n42", "i=0; while true; begin; break if i>0; i=1; redo; ensure; p 42; end; end"
+
 assert "42", "p [42].map { |x| x }.map { |y| y }[0]"
 
 assert '1302', %q{
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macruby-changes/attachments/20090723/d25576c7/attachment.html>