Editing: IO_WrapTie.t
use strict; use warnings; use IO::Handle; use IO::Scalar; use IO::WrapTie; use Test::More tests => 5; my $hello = 'Hello, '; my $world = "world!\n"; #### test my $s = ''; my $SH = IO::WrapTie->new('IO::Scalar', \$s); isa_ok($SH, 'IO::WrapTie::Master', 'new: got the object'); #### test print {$SH} $hello, $world; is($s, "$hello$world", 'print {FH} ARGS: tied string is correct'); #### test $SH->print($hello, $world); is($s, "$hello$world$hello$world", 'FH->print(ARGS): tied string is correct'); #### test $SH->seek(0,0); #### test my @x = <$SH>; ok( (($x[0] eq "$hello$world") && ($x[1] eq "$hello$world") && !$x[2]), "array = <FH>" ); #### test my $sref = $SH->sref; ok($sref eq \$s, "FH->sref");
Save
Back