1  #! perl
     2  #       $rcs = ' $Id: testout.t,v 1.2 1997/09/22 10:13:37 ilya Exp ilya $ ' ;
     3
     4  use Math::Pari qw(:DEFAULT pari_print :all);
     5  use vars qw($x $y $z $k $t $q $a $u $j $l $name $other $n);
     6  die "Need a path to a testout file" unless @ARGV;
     7
     8  $file = shift;
     9  {
    10    open TO, "< $file" or die "open `$file': $!";
    11    local $/ = "\n? ";
    12    @tests = <TO>;
    13    close TO or die "close: $!";
    14  }
    [...]