tagged release 0.7.1
[parrot.git] / languages / cardinal / t / string / block.t
blobbf82701838c3110bad4bb2e277247c1b3a4846e3
1 require 'test'
2 plan 6
4 s = String.new("ruby")
5 isnt s, nil, '.new for String'
6 is s.size, 4, '.size for String'
7 s = 'ruby'
8 ruby = "____"
9 i = 0
10 s.each_byte() do |c|
11    ruby[i] = c
12    i = i + 1
13 end
14 is ruby, 'ruby', '.each_char for String'
15 parrot = 'parrot'
16 i = 0
17 parrot.each('r') do |split|
18   if i == 0
19           is split, 'par', '.each(char) for String'
20   end
21   if i == 1
22         is split, 'r', '.each(char) for String'
23   end
24   if i == 2
25         is split, 'ot', '.each(char) for String'
26   end
27   i = i + 1
28 end