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

   1 use Test::Base tests => 6;
   2
   3 is next_block->xxx, "I lmike mike\n";
   4 is next_block->xxx, "I like mikey";
   5 is next_block->xxx, "123\n";
   6 is next_block->xxx, "I like MIKEY";
   7 is next_block->xxx, "I like ike\n";
   8
   9 run_is xxx => 'yyy';
  10
  11 sub mike1 {
  12     s/ike/mike/g;
  13 };
  14
  15 sub mike2 {
  16     $_ = 'I like mikey';
  17     return 123;
  18 };
  19
  20 sub mike3 {
  21     s/ike/heck/;
  22     return "123\n";
  23 }
  24
  25 sub mike4 {
  26     $_ = 'I like MIKEY';
  27     return;
  28 }
  29
  30 sub mike5 {
  31     return 200;
  32 }
  33
  34 sub yyy { s/x/y/g }
  35
  36 __DATA__
  37 ===
  38 --- xxx mike1
  39 I like ike
  40
  41 ===
  42 --- xxx mike2
  43 I like ike
  44
  45 ===
  46 --- xxx mike3
  47 I like ike
  48
  49 ===
  50 --- xxx mike4
  51 I like ike
  52
  53 ===
  54 --- xxx mike5
  55 I like ike
  56
  57 ===
  58 --- xxx lines yyy
  59 xxx xxx
  60   xxx xxx
  61 --- yyy
  62 yyy yyy
  63   yyy yyy