cpan/Test/t/multiline.t

   1 #!./perl -w
   2
   3 BEGIN { open(STDERR, ">&STDOUT");  }
   4
   5 use strict;
   6 use Test; plan tests => 2, todo => [1,2]; # actually false failure
   7
   8 # perl -Ilib -It/noinck t/multiline.t
   9
  10 ok(
  11 q{
  12 Jojo was a man who thought he was a loner
  13 But he knew it couldn't last
  14 Jojo left his home in Tucson, Arizona
  15 For some California Grass
  16 Get back, get back
  17 Get back to where you once belonged
  18 Get back, get back
  19 Get back to where you once belonged
  20 Get back Jojo Go home
  21 Get back, get back
  22 Back to where you once belonged
  23 Get back, get back
  24 Back to where you once belonged
  25 Get back Jo
  26 }
  27 ,
  28 q{
  29 Sweet Loretta Martin thought she was a woman
  30 But she was another man
  31 All the girls around her say she's got it coming
  32 But she gets it while she can
  33 Get back, get back
  34 Get back to where you once belonged
  35 Get back, get back
  36 Get back to where you once belonged
  37 Get back Loretta Go home
  38 Get back, get back
  39 Get back to where you once belonged
  40 Get back, get back
  41 Get back to where you once belonged
  42 Get home Loretta
  43 });
  44
  45 ok "zik\nzak\n  wazaaaaap\ncha ching!\n", "crunk\n\t zonk\nbjork\nchachacha!\n";
  46
  47