git.maemo.org Git - pkg-perl/blob - deb-src/libtest-base-perl/libtest-base-perl-0.54/t/preserve-order.t

   1 use Test::Base tests => 10;
   2
   3 run {};
   4
   5 my $count = 0;
   6 sub test {
   7     my $num = shift;
   8     chomp $num;
   9     is $num, ++$count;
  10     return;
  11 }
  12
  13 __END__
  14 === One
  15 --- grape test
  16 1
  17 --- iceberg_lettuce test
  18 2
  19 --- fig test
  20 3
  21 --- eggplant test
  22 4
  23 --- jalepeno test
  24 5
  25 --- banana test
  26 6
  27 --- apple test
  28 7
  29 --- carrot test
  30 8
  31 --- hot_pepper test
  32 9
  33 --- date test
  34 10