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 ( !defined( $directory ) )
  31   {
  32     print STDERR "$0: Unable to determine the test harness directory - ABORTING\n";
  33     exit 2;
  34   }
  35
  36   @tests = TestsFrom( $directory, 1 );
  37 }
  38
  39 if ( ! scalar( @tests ) )
  40 {
  41   print STDERR "$0: Unable to determine the test harnesses to run - ABORTING\n";
  42   exit 3;
  43 }
  44
  45 use Test::Harness;
  46
  47 runtests( @tests );