diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-07-09 17:13:41 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-07-09 17:13:41 +0000 |
| commit | 30ef33217aeee51ee47b2433e9384b011646254a (patch) | |
| tree | bea6ac39895653d8452ce6ad180fedce90408842 /ext/PerlIO/t/via.t | |
| parent | 602c3c4b6f5b561b590efa06fdef6c029706eab5 (diff) | |
| download | perl-30ef33217aeee51ee47b2433e9384b011646254a.tar.gz | |
Tidy PerlIO::Via
- add test for open fail
- add PerlIO_debug() diags to open paths
- comments on API gaps
- Update OPEN,SYSOPEN,FDOPEN pod entries.
p4raw-id: //depot/perlio@17447
Diffstat (limited to 'ext/PerlIO/t/via.t')
| -rw-r--r-- | ext/PerlIO/t/via.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/PerlIO/t/via.t b/ext/PerlIO/t/via.t index bd8923db37..9fe699f5de 100644 --- a/ext/PerlIO/t/via.t +++ b/ext/PerlIO/t/via.t @@ -14,7 +14,7 @@ BEGIN { my $tmp = "via$$"; -use Test::More tests => 15; +use Test::More tests => 16; my $fh; my $a = join("", map { chr } 0..255) x 10; @@ -22,6 +22,7 @@ my $b; BEGIN { use_ok('MIME::QuotedPrint'); } +ok( !open($fh,"<Via(MIME::QuotedPrint)", $tmp), 'open QuotedPrint fails'); ok( open($fh,">Via(MIME::QuotedPrint)", $tmp), 'open QuotedPrint for output'); ok( (print $fh $a), "print to output file"); ok( close($fh), 'close output file'); @@ -76,3 +77,4 @@ is( $obj, 'PerlIO::Via::Bar', 'search for package PerlIO::Via::Bar' ); END { 1 while unlink $tmp; } + |