1N/A#!./perl
1N/A
1N/ABEGIN: {
1N/A chdir 't';
1N/A @INC = '../lib';
1N/A require './test.pl';
1N/A}
1N/A
1N/Aplan(tests => 6);
1N/A
1N/Aopen(TRY,'>Comp.try') || (die "Can't open temp file.");
1N/A
1N/A$x = 'now is the time
1N/Afor all good men
1N/Ato come to.
1N/A
1N/A
1N/A!
1N/A
1N/A';
1N/A
1N/A$y = 'now is the time' . "\n" .
1N/A'for all good men' . "\n" .
1N/A'to come to.' . "\n\n\n!\n\n";
1N/A
1N/Ais($x, $y, 'test data is sane');
1N/A
1N/Aprint TRY $x;
1N/Aclose TRY or die "Could not close: $!";
1N/A
1N/Aopen(TRY,'Comp.try') || (die "Can't reopen temp file.");
1N/A$count = 0;
1N/A$z = '';
1N/Awhile (<TRY>) {
1N/A $z .= $_;
1N/A $count = $count + 1;
1N/A}
1N/A
1N/Ais($z, $y, 'basic multiline reading');
1N/A
1N/Ais($count, 7, ' line count');
1N/Ais($., 7, ' $.' );
1N/A
1N/A$out = (($^O eq 'MSWin32') || $^O eq 'NetWare' || $^O eq 'VMS') ? `type Comp.try`
1N/A : ($^O eq 'MacOS') ? `catenate Comp.try`
1N/A : `cat Comp.try`;
1N/A
1N/Alike($out, qr/.*\n.*\n.*\n$/);
1N/A
1N/Aclose(TRY) || (die "Can't close temp file.");
1N/Aunlink 'Comp.try' || `/bin/rm -f Comp.try`;
1N/A
1N/Ais($out, $y);