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

   1 use Test::Base tests => 2;
   2
   3 filters {
   4     foo => 'upper',
   5     bar => 'lower',
   6 };
   7
   8 run_is 'foo', 'upper';
   9 run_is 'bar', 'lower';
  10
  11 sub upper { uc(shift) }
  12 sub Test::Base::Filter::lower { shift; lc(shift) }
  13
  14 __END__
  15 ===
  16 --- foo
  17 So long, and thanks for all the fish!
  18 --- bar
  19 So long, and thanks for all the fish!
  20 --- upper
  21 SO LONG, AND THANKS FOR ALL THE FISH!
  22 --- lower
  23 so long, and thanks for all the fish!