test.pl.in

   1 #!/usr/bin/perl -w -I .. -I ../..
   2 #
   3 # Wrapper for running the test harnesses
   4 #
   5
   6 use strict;
   7
   8 use Getopt::Long;
   9
  10 use NPTest qw(DetermineTestHarnessDirectory TestsFrom);
  11
  12 $ENV{LC_ALL} = 'C';
  13
  14 my @tstdir;
  15
  16 if ( ! GetOptions( "testdir:s" => \@tstdir ) )
  17 {
  18   print "Usage: ${0} [--testdir=<directory>] [<test_harness.t> ...]\n";
  19   exit 1;
  20 }
  21
  22 my @tests;
  23
  24 if ( scalar( @ARGV ) )
  25 {
  26   @tests = @ARGV;
  27 }
  28 else
  29 {
  30   my @directory = DetermineTestHarnessDirectory( @tstdir );
  31
  32   if ( @directory == 0 )
  33   {
  34     print STDERR "$0: Unable to determine the test harness directory - ABORTING\n";
  35     exit 2;
  36   }
  37
  38   for my $d ( @directory )
  39   {
  40     push (@tests, TestsFrom( $d, 1 ));
  41   }
  42 }
  43
  44 if ( ! scalar( @tests ) )
  45 {
  46   print STDERR "$0: Unable to determine the test harnesses to run - ABORTING\n";
  47   exit 3;
  48 }
  49
  50 use Test::Harness;
  51
  52 runtests( @tests );