2 # $Id: pipe_test.pl,v 1.1 2003/11/18 12:10:26 petterik Exp $
8 my $expected = $ARGV[1] || 0;
12 while (my $line = <STDIN>) {
13 if ($line =~ m/<CENTER>This will be included in <B>HTML<\/B> output.<\/CENTER>/) {
22 while (my $line = <STDIN>) {
23 if ($line =~ m/\\centerline{This will be included in \\LaTeX output}/) {
32 while (my $line = <STDIN>) {
33 if ($line =~ /\|html<\;B>\;Moi!<\;\/B>\;/) {
46 ROBOTest::start("Pipe Test $n-$expected");
48 my $status = $tests{$n}();
50 ROBOTest::assert( $status == $expected );