1 files changed, 82 insertions, 0 deletions
diff --git a/trunk/test/ruby/test_whileuntil.rb b/trunk/test/ruby/test_whileuntil.rb
new file mode 100644
index 0000000000..df5bda450d
--- /dev/null
+++ b/trunk/test/ruby/test_whileuntil.rb
@@ -0,0 +1,82 @@
+require 'test/unit'
+require 'tmpdir'
+
+class TestWhileuntil < Test::Unit::TestCase
+  def test_while
+    Dir.mktmpdir("ruby_while_tmp") {|tmpdir|
+      tmpfilename = "#{tmpdir}/ruby_while_tmp.#{$$}"
+
+      tmp = open(tmpfilename, "w")
+      tmp.print "tvi925\n";
+      tmp.print "tvi920\n";
+      tmp.print "vt100\n";
+      tmp.print "Amiga\n";
+      tmp.print "paper\n";
+      tmp.close
+
+      tmp = open(tmpfilename, "r")
+      assert_instance_of(File, tmp)
+      
+      while line = tmp.gets()
+        break if /vt100/ =~ line
+      end
+
+      assert(!tmp.eof?)
+      assert_match(/vt100/, line)
+      tmp.close
+
+      tmp = open(tmpfilename, "r")
+      while line = tmp.gets()
+        next if /vt100/ =~ line
+        assert_no_match(/vt100/, line)
+      end
+      assert(tmp.eof?)
+      assert_no_match(/vt100/, line)
+      tmp.close
+
+      tmp = open(tmpfilename, "r")
+      while line = tmp.gets()
+        lastline = line
+        line = line.gsub(/vt100/, 'VT100')
+        if lastline != line
+          line.gsub!('VT100', 'Vt100')
+          redo
+        end
+        assert_no_match(/vt100/, line)
+        assert_no_match(/VT100/, line)
+      end
+      assert(tmp.eof?)
+      tmp.close
+
+      sum=0
+      for i in 1..10
+        sum += i
+        i -= 1
+        if i > 0
+          redo
+        end
+      end
+      assert_equal(220, sum)
+
+      tmp = open(tmpfilename, "r")
+      while line = tmp.gets()
+        break if 3
+        assert_no_match(/vt100/, line)
+        assert_no_match(/Amiga/, line)
+        assert_no_match(/paper/, line)
+      end
+      tmp.close
+
+      File.unlink tmpfilename or `/bin/rm -f "#{tmpfilename}"`
+      assert(!File.exist?(tmpfilename))
+    }
+  end
+
+  def test_until
+    i = 0
+    until i>4
+      i+=1
+    end
+    assert(i>4)
+  end
+end