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 my @tstdir;
  13
  14 if ( ! GetOptions( "testdir:s" => \@tstdir ) )
  15 {
  16   print "Usage: ${0} [--testdir=<directory>] [<test_harness.t> ...]\n";
  17   exit 1;
  18 }
  19
  20 my @tests;
  21
  22 if ( scalar( @ARGV ) )
  23 {
  24   @tests = @ARGV;
  25 }
  26 else
  27 {
  28   my @directory = DetermineTestHarnessDirectory( @tstdir );
  29
  30   if ( @directory == 0 )
  31   {
  32     print STDERR "$0: Unable to determine the test harness directory - ABORTING\n";
  33     exit 2;
  34   }
  35
  36   for my $d ( @directory )
  37   {
  38     push (@tests, TestsFrom( $d, 1 ));
  39   }
  40 }
  41
  42 if ( ! scalar( @tests ) )
  43 {
  44   print STDERR "$0: Unable to determine the test harnesses to run - ABORTING\n";
  45   exit 3;
  46 }
  47
  48 use Test::Harness;
  49
  50 runtests( @tests );