git.maemo.org Git - pkg-perl/blob - deb-src/libfilter-perl/libfilter-perl-1.34/t/tee.t

   1
   2 use strict;
   3 use warnings;
   4
   5 require "./filter-util.pl" ;
   6
   7 use vars qw( $Inc $Perl $tee1) ;
   8
   9 my $file = "tee.test" ;
  10 $tee1 = "tee1" ;
  11 my $tee2 = "tee2" ;
  12
  13
  14 my $out1 = <<"EOF" ;
  15 use Filter::tee '>$tee1' ;
  16 EOF
  17
  18 my $out2 = <<"EOF" ;
  19 use Filter::tee '>>$tee2' ;
  20 EOF
  21
  22 my $out3 = <<'EOF' ;
  23
  24 $a = 1 ;
  25 print "a = $a\n" ;
  26
  27 use Carp ;
  28 require "./joe" ;
  29
  30 print <<EOM ;
  31 hello
  32 horray
  33
  34 EOM
  35
  36 exit 0 ;
  37
  38 EOF
  39
  40 my $out4 = <<'EOM' ;
  41 Here is the news
  42 EOM
  43
  44 writeFile($file, $out1, $out2, $out3) ;
  45 writeFile('joe', 'print "joe\n"') ;
  46 writeFile($tee2, $out4) ;
  47
  48 my $a = `$Perl $Inc $file 2>&1` ;
  49
  50 print "1..5\n" ;
  51
  52 ok(1, ($? >> 8) == 0) ;
  53 ok(2, $a eq <<EOM) ;
  54 a = 1
  55 joe
  56 hello
  57 horray
  58
  59 EOM
  60
  61 ok(3, $out2 . $out3 eq readFile($tee1)) ;
  62 ok(4, $out4 . $out3 eq readFile($tee2)) ;
  63
  64 if ($< == 0)
  65   { ok (5, 1) }
  66 else {
  67     chmod 0444, $tee1 ;
  68     $a = `$Perl $Inc $file 2>&1` ;
  69
  70     ok(5, $a =~ /cannot open file 'tee1':/) ;
  71 }
  72
  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" ;