Remove code specific to MacOS Classic from core tests
[p5sagit/p5-mst-13.2.git] / t / comp / multiline.t
1 #!./perl
2
3 BEGIN {
4     chdir 't';
5     @INC = '../lib';
6     require './test.pl';
7 }
8
9 plan(tests => 6);
10
11 my $filename = tempfile();
12 open(TRY,'>',$filename) || (die "Can't open $filename: $!");
13
14 $x = 'now is the time
15 for all good men
16 to come to.
17
18
19 !
20
21 ';
22
23 $y = 'now is the time' . "\n" .
24 'for all good men' . "\n" .
25 'to come to.' . "\n\n\n!\n\n";
26
27 is($x, $y,  'test data is sane');
28
29 print TRY $x;
30 close TRY or die "Could not close: $!";
31
32 open(TRY,$filename) || (die "Can't reopen $filename: $!");
33 $count = 0;
34 $z = '';
35 while (<TRY>) {
36     $z .= $_;
37     $count = $count + 1;
38 }
39
40 is($z, $y,  'basic multiline reading');
41
42 is($count, 7,   '    line count');
43 is($., 7,       '    $.' );
44
45 $out = (($^O eq 'MSWin32') || $^O eq 'NetWare') ? `type $filename`
46     : ($^O eq 'VMS') ? `type $filename.;0`   # otherwise .LIS is assumed
47     : `cat $filename`;
48
49 like($out, qr/.*\n.*\n.*\n$/);
50
51 close(TRY) || (die "Can't close $filename: $!");
52
53 is($out, $y);