Name	Size	Mode	Actions
00-report-prereqs.dd	3248	0644	editdlrm
00-report-prereqs.t	5910	0644	editdlrm
IO_InnerFile.t	1892	0644	editdlrm
IO_Lines.t	3895	0644	editdlrm
IO_Scalar.t	4428	0644	editdlrm
IO_ScalarArray.t	3841	0644	editdlrm
IO_WrapTie.t	718	0644	editdlrm
simple.t	971	0644	editdlrm
two.t	580	0644	editdlrm

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 = " ); #### test my $sref = $SH->sref; ok($sref eq \$s, "FH->sref");