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

   1 use Test::Base tests => 2;
   2
   3 filters {
   4     in => [qw(eval_all array)],
   5     out => 'eval',
   6 };
   7
   8 run_is_deeply in => 'out';
   9
  10 __DATA__
  11 ===
  12 --- (in)
  13 print "hi";
  14 warn "hello\n";
  15 print "bye";
  16 print STDERR "baby";
  17 die "darn\n";
  18 --- (out)
  19 [undef, "darn\n", "hibye", "hello\nbaby"]
  20
  21 ===
  22 --- (in)
  23 [1..3];
  24 --- (out)
  25 [[1,2,3], '', '', '']