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

   1 use Test::Base tests => 6;
   2
   3 my @lines1 = [blocks]->[0]->text1;
   4 ok @lines1 == 3;
   5 is_deeply
   6 \@lines1,
   7 [
   8     "One\n",
   9     "Two\n",
  10     "Three \n",
  11 ];
  12
  13 my @lines2 = [blocks]->[0]->text2;
  14 ok @lines2 == 3;
  15 is_deeply
  16 \@lines2,
  17 [
  18     "Three",
  19     "Two",
  20     "One",
  21 ];
  22
  23 is ref([blocks]->[0]->text3), 'ARRAY';
  24 is scalar(@{[blocks]->[0]->text3}), 0;
  25
  26 __END__
  27 === One
  28 --- text1 lines
  29 One
  30 Two
  31 Three
  32 --- text2 lines chomp
  33 Three
  34 Two
  35 One
  36 --- text3 lines array