Commit | Line | Data |
2b8740d8 |
1 | #!./perl |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
5 | @INC = '../lib'; |
6 | unless (find PerlIO::Layer 'perlio') { |
7 | print "1..0 # Skip: not perlio\n"; |
8 | exit 0; |
9 | } |
10 | } |
11 | |
12 | my $tmp = "via$$"; |
13 | |
14 | print "1..3\n"; |
15 | |
16 | $a = join("", map { chr } 0..255) x 10; |
17 | |
18 | use MIME::QuotedPrint; |
19 | open(my $fh,">Via(MIME::QuotedPrint)", $tmp); |
20 | print $fh $a; |
21 | close($fh); |
22 | print "ok 1\n"; |
23 | |
24 | open(my $fh,"<Via(MIME::QuotedPrint)", $tmp); |
25 | { local $/; $b = <$fh> } |
26 | close($fh); |
27 | print "ok 2\n"; |
28 | |
29 | print "ok 3\n" if $a eq $b; |
30 | |
31 | END { |
32 | 1 while unlink $tmp; |
33 | } |