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

   1 use Test::Base;
   2
   3 __DATA__
   4 ===
   5 --- in) lines append=---\n join
   6 one
   7 two
   8 three
   9 --- out)
  10 one
  11 ---
  12 two
  13 ---
  14 three
  15 ---
  16
  17 ===
  18 --- in) lines chomp append=---\n join
  19 one
  20 two
  21 three
  22 --- out
  23 one---
  24 two---
  25 three---
  26
  27 ===
  28 --- in) chomp append=---\n
  29 one
  30 two
  31 three
  32 --- out
  33 one
  34 two
  35 three---
  36