vcs.maemo.org Git - pkg-perl/blob - deb-src/libtest-base-perl/libtest-base-perl-0.54/t/list.t

   1 use Test::Base tests => 5;
   2
   3 my $block1 = [blocks]->[0];
   4 my @values = $block1->grocery;
   5 is scalar(@values), 3,
   6    'check list context';
   7 is_deeply \@values, ['apples', 'oranges', 'beef jerky'],
   8    'list context content';
   9
  10 my $block2 = [blocks]->[1];
  11 is_deeply $block2->todo,
  12 [
  13     'Fix YAML',
  14     'Fix Inline',
  15     'Fix Test::Base',
  16 ], 'deep block from index';
  17
  18 my $block3 = [blocks]->[2];
  19 is $block3->perl, 'xxx',
  20    'scalar context';
  21 is_deeply [$block3->perl], ['xxx', 'yyy', 'zzz'],
  22    'deep list compare';
  23
  24 __END__
  25
  26 === One
  27 --- grocery lines chomp
  28 apples
  29 oranges
  30 beef jerky
  31
  32 === Two
  33 --- todo lines chomp array
  34 Fix YAML
  35 Fix Inline
  36 Fix Test::Base
  37
  38 === Three
  39 --- perl eval
  40 return qw(
  41     xxx
  42     yyy
  43     zzz
  44 )