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

   1 use Test::Base tests => 4;
   2
   3 filters 'eval';
   4
   5 my $block = first_block;
   6
   7 is ref($block->hash), 'HASH';
   8 is ref($block->array), 'ARRAY';
   9 is scalar(@{$block->array}), 11;
  10 is $block->factorial, '362880';
  11
  12 __END__
  13
  14 === Test
  15 --- hash
  16 {
  17     foo => 'bar',
  18     bar => 'hihi',
  19 }
  20 --- array
  21 [ 10 .. 20 ]
  22 --- factorial
  23 my $x = 1;
  24 $x *= $_ for (1 .. 9);
  25 $x;