5 require "./filter-util.pl" ;
7 use vars qw( $Inc $Perl $tee1) ;
9 my $file = "tee.test" ;
15 use Filter::tee '>$tee1' ;
19 use Filter::tee '>>$tee2' ;
44 writeFile($file, $out1, $out2, $out3) ;
45 writeFile('joe', 'print "joe\n"') ;
46 writeFile($tee2, $out4) ;
48 my $a = `$Perl $Inc $file 2>&1` ;
52 ok(1, ($? >> 8) == 0) ;
61 ok(3, $out2 . $out3 eq readFile($tee1)) ;
62 ok(4, $out4 . $out3 eq readFile($tee2)) ;
68 $a = `$Perl $Inc $file 2>&1` ;
70 ok(5, $a =~ /cannot open file 'tee1':/) ;
73 unlink $file or die "Cannot remove $file: $!\n" ;
74 unlink 'joe' or die "Cannot remove joe: $!\n" ;
75 unlink $tee1 or die "Cannot remove $tee1: $!\n" ;
76 unlink $tee2 or die "Cannot remove $tee2: $!\n" ;