Source/Test/pipe_test.pl

   1 #!/usr/bin/perl -w
   2 # $Id: pipe_test.pl,v 1.1 2003/11/18 12:10:26 petterik Exp $
   3
   4 use strict;
   5 use ROBOTest;
   6
   7 my $n = $ARGV[0] || 1;
   8 my $expected = $ARGV[1] || 0;
   9
  10 sub test1 {
  11         my $res = 1;
  12         while (my $line = <STDIN>) {
  13                 if ($line =~ m/<CENTER>This will be included in <B>HTML<\/B> output.<\/CENTER>/) {
  14                         $res = 0;
  15                 }
  16         }
  17         return $res;
  18 }
  19
  20 sub test2 {
  21         my $res = 1;
  22         while (my $line = <STDIN>) {
  23                 if ($line =~ m/\\centerline{This will be included in \\LaTeX output}/) {
  24                         $res = 0;
  25                 }
  26         }
  27         return $res;
  28 }
  29
  30 sub test3 {
  31         my $res = 1;
  32         while (my $line = <STDIN>) {
  33                 if ($line =~ /\|html&lt\;B&gt\;Moi!&lt\;\/B&gt\;/) {
  34                         $res = 0;
  35                 }
  36         }
  37         return $res;
  38 }
  39
  40 my %tests = (
  41                          1 => \&test1,
  42                          2 => \&test2,
  43                          3 => \&test3
  44                          );
  45
  46 ROBOTest::start("Pipe Test $n-$expected");
  47
  48 my $status = $tests{$n}();
  49
  50 ROBOTest::assert( $status == $expected );
  51 ROBOTest::finish;