1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
require 'test/unit'
$KCODE = 'none'
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
|