From 6175ca03be6d0d51359f9017123708987d0f5eb7 Mon Sep 17 00:00:00 2001
From: shyouhei <shyouhei@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 15 Aug 2007 23:23:39 +0000
Subject: add tag v1_8_5_91

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_8_5_91@13046 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ruby_1_8_5/test/ruby/test_whileuntil.rb | 77 +++++++++++++++++++++++++++++++++
 1 file changed, 77 insertions(+)
 create mode 100644 ruby_1_8_5/test/ruby/test_whileuntil.rb

(limited to 'ruby_1_8_5/test/ruby/test_whileuntil.rb')

diff --git a/ruby_1_8_5/test/ruby/test_whileuntil.rb b/ruby_1_8_5/test/ruby/test_whileuntil.rb
new file mode 100644
index 0000000000..6faed31160
--- /dev/null
+++ b/ruby_1_8_5/test/ruby/test_whileuntil.rb
@@ -0,0 +1,77 @@
+require 'test/unit'
+
+class TestWhileuntil < Test::Unit::TestCase
+  def test_while
+    tmp = open("while_tmp", "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("while_tmp", "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("while_tmp", "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("while_tmp", "r")
+    while tmp.gets()
+      line = $_
+      gsub(/vt100/, 'VT100')
+      if $_ != line
+        $_.gsub!('VT100', 'Vt100')
+        redo
+      end
+      assert_no_match(/vt100/, $_)
+      assert_no_match(/VT100/, $_)
+    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("while_tmp", "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 "while_tmp" or `/bin/rm -f "while_tmp"`
+    assert(!File.exist?("while_tmp"))
+  end
+
+  def test_until
+    i = 0
+    until i>4
+      i+=1
+    end
+    assert(i>4)
+  end
+end
-- 
cgit v1.2.3