[root@rouzic]:/usr/src/Math-Pari-2.001804# PERL_DL_NONLAZY=1 /usr/bin/perl -Iblib/arch -Iblib/lib -I/usr/local/lib/perl5/5.6.1/i686-linux -I/usr/local/lib/perl5/5.6.1 -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' t/analyz.t
t/analyz............Variable in perl2pari is not of known type at test_eng/Testout.pm line 8.
        ...propagated at t/analyz.t line 5.
t/analyz............dubious
        Test returned status 255 (wstat 65280, 0xff00)
FAILED--1 test script could be run, alas--no output ever seen

##</code><code>##

  $file = __FILE__;
  $file =~ m|([^/.]*)\.t$| or die;
  @ARGV = "pari-2.1.1/src/test/32/$1";
  do 'test_eng/Testout.pm';
  die if $@;

##</code><code>##

     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  }
    [...]

##</code><code>##

  $cmd = '/usr/bin/perl -w t/analyz.t|'
  my $fh = new FileHandle;
  $fh->open($cmd) or print "can't run $test. $!\n";
##</code><code>##

  Too few args 0 for PARI function shift at test_eng/Testout.
        ...propagated at t/analyz.t line 5.