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

   1 use Test::Base tests => 3;
   2
   3 is next_block->input, 'onetwothree';
   4 is next_block->input, 'one=two=three';
   5 is next_block->input, "one\n\ntwo\n\nthree";
   6
   7 __DATA__
   8 ===
   9 --- input lines chomp join
  10 one
  11 two
  12 three
  13
  14 ===
  15 --- input lines chomp join==
  16 one
  17 two
  18 three
  19
  20 ===
  21 --- input lines chomp join=\n\n
  22 one
  23 two
  24 three