mirror of
https://github.com/zhigang1992/RubyMotion.git
synced 2026-04-05 22:40:25 +08:00
530 lines
12 KiB
Ruby
530 lines
12 KiB
Ruby
test_begin "test_flow"
|
|
|
|
assert_equal %q{[1, 2, 4, 5, 6, 7, 8]}, proc{$a = []; begin; ; $a << 1
|
|
[1,2].each{; $a << 2
|
|
break; $a << 3
|
|
}; $a << 4
|
|
begin; $a << 5
|
|
ensure; $a << 6
|
|
end; $a << 7
|
|
; $a << 8
|
|
; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{[1, 2, 3, 5, 6, 7, 8]}, proc{$a = []; begin; ; $a << 1
|
|
begin; $a << 2
|
|
[1,2].each do; $a << 3
|
|
break; $a << 4
|
|
end; $a << 5
|
|
ensure; $a << 6
|
|
end; $a << 7
|
|
; $a << 8
|
|
; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{ok}, proc{
|
|
["a"].inject("ng"){|x,y|
|
|
break :ok
|
|
}
|
|
}
|
|
# assert_equal %q{ok}, proc{
|
|
# unless ''.respond_to? :lines
|
|
# class String
|
|
# def lines
|
|
# self
|
|
# end
|
|
# end
|
|
# end
|
|
#
|
|
# ('a').lines.map{|e|
|
|
# break :ok
|
|
# }
|
|
# }
|
|
assert_equal %q{[1, 2, 4, 5]}, proc{$a = []; begin; ; $a << 1
|
|
["a"].inject("ng"){|x,y|; $a << 2
|
|
break :ok; $a << 3
|
|
}; $a << 4
|
|
; $a << 5
|
|
; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{[1, 2, 4, 5]}, proc{$a = []; begin; ; $a << 1
|
|
('a'..'b').map{|e|; $a << 2
|
|
break :ok; $a << 3
|
|
}; $a << 4
|
|
; $a << 5
|
|
; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{[1, 2, 3, 5, 7, 8]}, proc{$a = []; begin; ; $a << 1
|
|
[1,2].each do; $a << 2
|
|
begin; $a << 3
|
|
break; $a << 4
|
|
ensure; $a << 5
|
|
end; $a << 6
|
|
end; $a << 7
|
|
; $a << 8
|
|
; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{[1, 2, 3, 4, 5, 6, 9, 10]}, proc{$a = []; begin; ; $a << 1
|
|
i=0; $a << 2
|
|
while i<3; $a << 3
|
|
i+=1; $a << 4
|
|
begin; $a << 5
|
|
ensure; $a << 6
|
|
break; $a << 7
|
|
end; $a << 8
|
|
end; $a << 9
|
|
; $a << 10
|
|
; rescue Exception; $a << 99; end; $a}
|
|
# assert_equal %q{[1, 2, 3, 4, 5, 7, 10, 11]}, proc{$a = []; begin; ; $a << 1
|
|
# i=0; $a << 2
|
|
# while i<3; $a << 3
|
|
# i+=1; $a << 4
|
|
# begin; $a << 5
|
|
# raise; $a << 6
|
|
# ensure; $a << 7
|
|
# break; $a << 8
|
|
# end; $a << 9
|
|
# end; $a << 10
|
|
# ; $a << 11
|
|
# ; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{[1, 2, 3, 4, 5, 7, 10, 11]}, proc{$a = []; begin; ; $a << 1
|
|
i=0; $a << 2
|
|
while i<3; $a << 3
|
|
i+=1; $a << 4
|
|
begin; $a << 5
|
|
raise; $a << 6
|
|
rescue; $a << 7
|
|
break; $a << 8
|
|
end; $a << 9
|
|
end; $a << 10
|
|
; $a << 11
|
|
; rescue Exception; $a << 99; end; $a}
|
|
# assert_equal %q{[1, 2, 3, 5, 8, 9]}, proc{$a = []; begin; ; $a << 1
|
|
# [1,2].each do; $a << 2
|
|
# begin; $a << 3
|
|
# raise StandardError; $a << 4
|
|
# ensure; $a << 5
|
|
# break; $a << 6
|
|
# end; $a << 7
|
|
# end; $a << 8
|
|
# ; $a << 9
|
|
# ; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{[1, 2, 3, 5, 8, 9]}, proc{$a = []; begin; ; $a << 1
|
|
[1,2].each do; $a << 2
|
|
begin; $a << 3
|
|
raise StandardError; $a << 4
|
|
rescue; $a << 5
|
|
break; $a << 6
|
|
end; $a << 7
|
|
end; $a << 8
|
|
; $a << 9
|
|
; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{[1, 2, 3, 4, 6, 8, 10, 11]}, proc{$a = []; begin; ; $a << 1
|
|
[1,2].each do; $a << 2
|
|
begin; $a << 3
|
|
begin; $a << 4
|
|
break; $a << 5
|
|
ensure; $a << 6
|
|
end; $a << 7
|
|
ensure; $a << 8
|
|
end; $a << 9
|
|
end; $a << 10
|
|
; $a << 11
|
|
; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{[1, 2, 3, 4, 5, 6, 7, 8, 10, 13, 3, 4, 5, 6, 7, 8, 10, 13, 3, 4, 5, 6, 7, 8, 10, 13, 14, 15]}, proc{$a = []; begin; ; $a << 1
|
|
i = 0; $a << 2
|
|
while i<3; $a << 3
|
|
i+=1; $a << 4
|
|
j = 0; $a << 5
|
|
while j<3; $a << 6
|
|
j+=1; $a << 7
|
|
begin; $a << 8
|
|
raise; $a << 9
|
|
rescue; $a << 10
|
|
break; $a << 11
|
|
end; $a << 12
|
|
end; $a << 13
|
|
end; $a << 14
|
|
; $a << 15
|
|
; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{[1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 15, 3, 4, 5, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 15, 3, 4, 5, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 15, 16, 17]}, proc{$a = []; begin; ; $a << 1
|
|
i = 0; $a << 2
|
|
while i<3; $a << 3
|
|
i+=1; $a << 4
|
|
j = 0; $a << 5
|
|
while j<3; $a << 6
|
|
j+=1; $a << 7
|
|
1.times{; $a << 8
|
|
begin; $a << 9
|
|
raise; $a << 10
|
|
rescue; $a << 11
|
|
break; $a << 12
|
|
end; $a << 13
|
|
}; $a << 14
|
|
end; $a << 15
|
|
end; $a << 16
|
|
; $a << 17
|
|
; rescue Exception; $a << 99; end; $a}
|
|
# assert_equal %q{[1, 2, 3, 4, 5, 6, 7, 8, 10, 13, 3, 4, 5, 6, 7, 8, 10, 13, 3, 4, 5, 6, 7, 8, 10, 13, 14, 15]}, proc{$a = []; begin; ; $a << 1
|
|
# i = 0; $a << 2
|
|
# while i<3; $a << 3
|
|
# i+=1; $a << 4
|
|
# j = 0; $a << 5
|
|
# while j<3; $a << 6
|
|
# j+=1; $a << 7
|
|
# begin; $a << 8
|
|
# raise; $a << 9
|
|
# ensure; $a << 10
|
|
# break; $a << 11
|
|
# end; $a << 12
|
|
# end; $a << 13
|
|
# end; $a << 14
|
|
# ; $a << 15
|
|
# ; rescue Exception; $a << 99; end; $a}
|
|
# assert_equal %q{[1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 15, 3, 4, 5, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 15, 3, 4, 5, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 15, 16, 17]}, proc{$a = []; begin; ; $a << 1
|
|
# i = 0; $a << 2
|
|
# while i<3; $a << 3
|
|
# i+=1; $a << 4
|
|
# j = 0; $a << 5
|
|
# while j<3; $a << 6
|
|
# j+=1; $a << 7
|
|
# 1.times{; $a << 8
|
|
# begin; $a << 9
|
|
# raise; $a << 10
|
|
# ensure; $a << 11
|
|
# break; $a << 12
|
|
# end; $a << 13
|
|
# }; $a << 14
|
|
# end; $a << 15
|
|
# end; $a << 16
|
|
# ; $a << 17
|
|
# ; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{[1, 2, 3, 5, 8, 9]}, proc{$a = []; begin; ; $a << 1
|
|
while true; $a << 2
|
|
begin; $a << 3
|
|
break; $a << 4
|
|
ensure; $a << 5
|
|
break; $a << 6
|
|
end; $a << 7
|
|
end; $a << 8
|
|
; $a << 9
|
|
; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{[1, 2, 3, 5, 99]}, proc{
|
|
$a = [];
|
|
begin; ; $a << 1
|
|
while true; $a << 2
|
|
begin; $a << 3
|
|
break; $a << 4
|
|
ensure; $a << 5
|
|
raise; $a << 6
|
|
end; $a << 7
|
|
end; $a << 8
|
|
; $a << 9
|
|
; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{[1, 2, 3, 4, 6, 8, 9, 10, 11]}, proc{$a = []; begin; ; $a << 1
|
|
begin; $a << 2
|
|
[1,2].each do; $a << 3
|
|
begin; $a << 4
|
|
break; $a << 5
|
|
ensure; $a << 6
|
|
end; $a << 7
|
|
end; $a << 8
|
|
ensure; $a << 9
|
|
end; $a << 10
|
|
; $a << 11
|
|
; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{[1, 2, 4, 99]}, proc{$a = []; begin; ; $a << 1
|
|
begin; $a << 2
|
|
raise StandardError; $a << 3
|
|
ensure; $a << 4
|
|
end; $a << 5
|
|
; $a << 6
|
|
; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{[1, 2, 3, 4]}, proc{$a = []; begin; ; $a << 1
|
|
begin; $a << 2
|
|
ensure; $a << 3
|
|
end ; $a << 4
|
|
; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{[1, 2, 3, 5, 99]}, proc{$a = []; begin; ; $a << 1
|
|
[1,2].each do; $a << 2
|
|
begin; $a << 3
|
|
break; $a << 4
|
|
ensure; $a << 5
|
|
raise StandardError; $a << 6
|
|
end; $a << 7
|
|
end; $a << 8
|
|
; $a << 9
|
|
; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{3}, proc{
|
|
def m a, b
|
|
a + b
|
|
end
|
|
m(1,
|
|
while true
|
|
break 2
|
|
end
|
|
)
|
|
}
|
|
# assert_equal %q{4}, proc{
|
|
# def m a, b
|
|
# a + b
|
|
# end
|
|
# m(1,
|
|
# (i=0; while i<2
|
|
# i+=1
|
|
# class C
|
|
# next 2
|
|
# end
|
|
# end; 3)
|
|
# )
|
|
# }
|
|
assert_equal %q{34}, proc{
|
|
def m a, b
|
|
a+b
|
|
end
|
|
m(1, 1.times{break 3}) +
|
|
m(10, (1.times{next 3}; 20))
|
|
}
|
|
# assert_equal %q{[1, 2, 3, 6, 7]}, proc{$a = []; begin; ; $a << 1
|
|
# 3.times{; $a << 2
|
|
# class C; $a << 3
|
|
# break; $a << 4
|
|
# end; $a << 5
|
|
# }; $a << 6
|
|
# ; $a << 7
|
|
# ; rescue Exception; $a << 99; end; $a}
|
|
# assert_equal %q{[1, 2, 3, 4, 8, 9]}, proc{$a = []; begin; ; $a << 1
|
|
# 3.times{; $a << 2
|
|
# class A; $a << 3
|
|
# class B; $a << 4
|
|
# break; $a << 5
|
|
# end; $a << 6
|
|
# end; $a << 7
|
|
# }; $a << 8
|
|
# ; $a << 9
|
|
# ; rescue Exception; $a << 99; end; $a}
|
|
# assert_equal %q{[1, 2, 3, 2, 3, 2, 3, 6, 7]}, proc{$a = []; begin; ; $a << 1
|
|
# 3.times{; $a << 2
|
|
# class C; $a << 3
|
|
# next; $a << 4
|
|
# end; $a << 5
|
|
# }; $a << 6
|
|
# ; $a << 7
|
|
# ; rescue Exception; $a << 99; end; $a}
|
|
# assert_equal %q{[1, 2, 3, 4, 2, 3, 4, 2, 3, 4, 8, 9]}, proc{$a = []; begin; ; $a << 1
|
|
# 3.times{; $a << 2
|
|
# class C; $a << 3
|
|
# class D; $a << 4
|
|
# next; $a << 5
|
|
# end; $a << 6
|
|
# end; $a << 7
|
|
# }; $a << 8
|
|
# ; $a << 9
|
|
# ; rescue Exception; $a << 99; end; $a}
|
|
# assert_equal %q{[1, 2, 3, 6, 7]}, proc{$a = []; begin; ; $a << 1
|
|
# while true; $a << 2
|
|
# class C; $a << 3
|
|
# break; $a << 4
|
|
# end; $a << 5
|
|
# end; $a << 6
|
|
# ; $a << 7
|
|
# ; rescue Exception; $a << 99; end; $a}
|
|
# assert_equal %q{[1, 2, 3, 4, 8, 9]}, proc{$a = []; begin; ; $a << 1
|
|
# while true; $a << 2
|
|
# class C; $a << 3
|
|
# class D; $a << 4
|
|
# break; $a << 5
|
|
# end; $a << 6
|
|
# end; $a << 7
|
|
# end; $a << 8
|
|
# ; $a << 9
|
|
# ; rescue Exception; $a << 99; end; $a}
|
|
# assert_equal %q{[1, 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, 8, 9]}, proc{$a = []; begin; ; $a << 1
|
|
# i=0; $a << 2
|
|
# while i<3; $a << 3
|
|
# i+=1; $a << 4
|
|
# class C; $a << 5
|
|
# next 10; $a << 6
|
|
# end; $a << 7
|
|
# end; $a << 8
|
|
# ; $a << 9
|
|
# ; rescue Exception; $a << 99; end; $a}
|
|
# assert_equal %q{1}, proc{
|
|
# 1.times{
|
|
# while true
|
|
# class C
|
|
# begin
|
|
# break
|
|
# ensure
|
|
# break
|
|
# end
|
|
# end
|
|
# end
|
|
# }
|
|
# }
|
|
# assert_equal %q{[1, 2, 3, 5, 2, 3, 5, 7, 8]}, proc{$a = []; begin; ; $a << 1
|
|
# [1,2].each do; $a << 2
|
|
# begin; $a << 3
|
|
# next; $a << 4
|
|
# ensure; $a << 5
|
|
# end; $a << 6
|
|
# end; $a << 7
|
|
# ; $a << 8
|
|
# ; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{[1, 2, 6, 3, 5, 7, 8]}, proc{$a = []; begin; ; $a << 1
|
|
o = "test"; $a << 2
|
|
def o.test(a); $a << 3
|
|
return a; $a << 4
|
|
ensure; $a << 5
|
|
end; $a << 6
|
|
o.test(123); $a << 7
|
|
; $a << 8
|
|
; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{[1, 4, 7, 5, 8, 9]}, proc{$a = []; begin; ; $a << 1
|
|
def m1 *args; $a << 2
|
|
; $a << 3
|
|
end; $a << 4
|
|
def m2; $a << 5
|
|
m1(:a, :b, (return 1; :c)); $a << 6
|
|
end; $a << 7
|
|
m2; $a << 8
|
|
; $a << 9
|
|
; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{[1, 8, 2, 3, 4, 5, 9, 10]}, proc{$a = []; begin; ; $a << 1
|
|
def m(); $a << 2
|
|
begin; $a << 3
|
|
2; $a << 4
|
|
ensure; $a << 5
|
|
return 3; $a << 6
|
|
end; $a << 7
|
|
end; $a << 8
|
|
m; $a << 9
|
|
; $a << 10
|
|
; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{[1, 3, 11, 4, 5, 6, 7, 12, 13]}, proc{$a = []; begin; ; $a << 1
|
|
def m2; $a << 2
|
|
end; $a << 3
|
|
def m(); $a << 4
|
|
m2(begin; $a << 5
|
|
2; $a << 6
|
|
ensure; $a << 7
|
|
return 3; $a << 8
|
|
end); $a << 9
|
|
4; $a << 10
|
|
end; $a << 11
|
|
m(); $a << 12
|
|
; $a << 13
|
|
; rescue Exception; $a << 99; end; $a}
|
|
assert_equal %q{[1, 16, 2, 3, 4, 5, 6, 7, 10, 11, 17, 18]}, proc{$a = []; begin; ; $a << 1
|
|
def m; $a << 2
|
|
1; $a << 3
|
|
1.times{; $a << 4
|
|
2; $a << 5
|
|
begin; $a << 6
|
|
3; $a << 7
|
|
return; $a << 8
|
|
4; $a << 9
|
|
ensure; $a << 10
|
|
5; $a << 11
|
|
end; $a << 12
|
|
6; $a << 13
|
|
}; $a << 14
|
|
7; $a << 15
|
|
end; $a << 16
|
|
m(); $a << 17
|
|
; $a << 18
|
|
; rescue Exception; $a << 99; end; $a}
|
|
# assert_equal %q{[:ok, :ok2, :last]}, proc{
|
|
# a = []
|
|
# i = 0
|
|
# begin
|
|
# while i < 1
|
|
# i+=1
|
|
# begin
|
|
# begin
|
|
# next
|
|
# ensure
|
|
# a << :ok
|
|
# end
|
|
# ensure
|
|
# a << :ok2
|
|
# end
|
|
# end
|
|
# ensure
|
|
# a << :last
|
|
# end
|
|
# a
|
|
# }
|
|
assert_equal %q{[:ok, :ok2, :last]}, proc{
|
|
a = []
|
|
i = 0
|
|
begin
|
|
while i < 1
|
|
i+=1
|
|
begin
|
|
begin
|
|
break
|
|
ensure
|
|
a << :ok
|
|
end
|
|
ensure
|
|
a << :ok2
|
|
end
|
|
end
|
|
ensure
|
|
a << :last
|
|
end
|
|
a
|
|
}
|
|
# assert_equal %q{[:ok, :ok2, :last]}, proc{
|
|
# a = []
|
|
# i = 0
|
|
# begin
|
|
# while i < 1
|
|
# if i>0
|
|
# break
|
|
# end
|
|
# i+=1
|
|
# begin
|
|
# begin
|
|
# redo
|
|
# ensure
|
|
# a << :ok
|
|
# end
|
|
# ensure
|
|
# a << :ok2
|
|
# end
|
|
# end
|
|
# ensure
|
|
# a << :last
|
|
# end
|
|
# a
|
|
# }
|
|
# assert_equal %Q{ENSURE\n}, proc{
|
|
# def test
|
|
# while true
|
|
# return
|
|
# end
|
|
# ensure
|
|
# puts("ENSURE")
|
|
# end
|
|
# test
|
|
# }, '[ruby-dev:37967]'
|
|
|
|
# [['[ruby-core:28129]', proc{
|
|
# class Bug2728
|
|
# include Enumerable
|
|
# define_method(:dynamic_method) do
|
|
# "dynamically defined method"
|
|
# end
|
|
# def each
|
|
# begin
|
|
# yield :foo
|
|
# ensure
|
|
# dynamic_method
|
|
# end
|
|
# end
|
|
# end
|
|
# e = Bug2728.new
|
|
# }]].each do |bug, src|
|
|
# assert_equal "foo", src + %q{e.detect {true}}, bug
|
|
# assert_equal "true", src + %q{e.any? {true}}, bug
|
|
# assert_equal "false", src + %q{e.all? {false}}, bug
|
|
# assert_equal "true", src + %q{e.include?(:foo)}, bug
|
|
# end
|
|
|
|
test_end
|