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