vasilito
ff4ff35918
Red Bear OS is a full fork. All sources must be available from git clone with zero network access. Removed gitignore rules that excluded fetched source trees under recipes/*/source/, local/recipes/kde/*/source/, local/recipes/qt/*/source/, and vendor source trees. Build artifacts (target/, build/, source.tar, *.o, *.so) remain excluded. 127291 files added — kernel, relibc, base, bootloader, pkgar, all KDE/Qt frameworks, mesa, wayland, DRM drivers, and every other recipe source.
62 lines
955 B
Ruby
62 lines
955 B
Ruby
assert('while expression', '11.5.2.3.2') do
|
|
idx = 10
|
|
all = []
|
|
res = while idx > 0
|
|
all << idx
|
|
idx -= 1
|
|
end
|
|
|
|
assert_equal nil, res
|
|
assert_equal [10,9,8,7,6,5,4,3,2,1], all
|
|
end
|
|
|
|
assert('until expression', '11.5.2.3.3') do
|
|
idx = 10
|
|
all = []
|
|
res = until idx == 0
|
|
all << idx
|
|
idx -= 1
|
|
end
|
|
|
|
assert_equal nil, res
|
|
assert_equal [10,9,8,7,6,5,4,3,2,1], all
|
|
end
|
|
|
|
assert('break expression', '11.5.2.4.3') do
|
|
assert_equal :result do
|
|
while true
|
|
break :result
|
|
end
|
|
end
|
|
|
|
assert_equal :result do
|
|
until false
|
|
break :result
|
|
end
|
|
end
|
|
end
|
|
|
|
assert('next expression', '11.5.2.4.4') do
|
|
assert_equal [8,6,4,2,0] do
|
|
all = []
|
|
idx = 10
|
|
while idx > 0
|
|
idx -= 1
|
|
next if (idx % 2) == 1
|
|
all << idx
|
|
end
|
|
all
|
|
end
|
|
|
|
assert_equal [8,6,4,2,0] do
|
|
all = []
|
|
idx = 10
|
|
until idx == 0
|
|
idx -= 1
|
|
next if (idx % 2) == 1
|
|
all << idx
|
|
end
|
|
all
|
|
end
|
|
end
|