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

   1 use Test::Base tests => 3;
   2
   3 filters 'eval';
   4
   5 run_is_deeply qw(foo bar);
   6
   7 run {
   8     my $block = shift;
   9     ok ref $block->foo;
  10     ok ref $block->bar;
  11 };
  12
  13 __DATA__
  14 === Test is_deeply
  15 --- foo
  16 { foo => 22, bar => 33 }
  17 --- bar
  18 { bar => 33, foo => 22 }