languages/cardinal/t/array/clear.t

   1 puts "1..12"
   2
   3 a = Array.new()
   4 a << 1
   5 a << 2
   6 a << 3
   7 a << 4
   8
   9 a.each() do |i|
  10     puts 'ok ', i
  11 end
  12
  13 a.clear
  14 5.upto(12){ |i|
  15         a << i
  16
  17 }
  18
  19 a.each() do |i|
  20     puts 'ok ', i
  21 end