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

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