https://perl5.git.perl.org / perl5.git / blame
| Commit | Line | Data |
|---|---|---|
| ff56af3d AMS |
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 |