Commit | Line | Data |
ff56af3d |
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 | |