| Line | |
|---|
| 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 |
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
