#!/usr/bin/perl -w

use strict;
use vars qw($loaded);

# pass on the @INC passed to us to the individual tests
$ENV{PERL5LIB}=join ':',@INC;

#-------------------------------------------------------------------------------

$| = 1;

#-------------------------------------------------------------------------------

{
    my $ntest=1;
    sub ok      { return "ok ".$ntest++."\n"; }
    sub not_ok  { return "not ok ".$ntest++."\n"; }
    sub skipped { return "skipped ".$ntest++."\n"; }
}

#-------------------------------------------------------------------------------

my @tests=<test/*.pl>;

print "1..",scalar(@tests),"\n";

foreach my $test (@tests) {
  my $result=system("perl","-w",$test) >> 8;
  print $result?($result==2?skipped:ok):" ".not_ok;
}