test/bin/all.pl

   1 #!/usr/bin/perl
   2
   3 use FindBin qw($Bin);
   4 use lib "$Bin/../lib";          # Test packages
   5 use lib "$Bin/../../lib";       # PsN packages
   6 use data_test;
   7 use scripts_test;
   8 use debug;
   9 use Getopt::Long;
  10 use vars qw/ $opt_debug
  11              $opt_debug_package
  12              $opt_debug_subroutine
  13              $opt_tests
  14              $opt_verbose
  15              $opt_generate_facit /;
  16
  17 ## Configure the command line parsing
  18 Getopt::Long::config("auto_abbrev");
  19
  20 ## Declare the options
  21 my $res = GetOptions("debug:1",
  22                      "debug_package:s",
  23                      "debug_subroutine:s",
  24                      "tests:s",
  25                      "verbose",
  26                      "generate_facit" );
  27
  28 debug -> level( $opt_debug );
  29 debug -> package( $opt_debug_package );
  30 debug -> subroutine( $opt_debug_subroutine );
  31
  32 my @tests = ( 'scripts_test' );
  33
  34 foreach my $test( @tests ){
  35   my $top_dir = $Bin . '/..';
  36   $top_dir =~ s/[^\/]*\/\.\.//;
  37
  38   $test -> test( verbose          => $opt_verbose,
  39                  debug            => $opt_debug,
  40                  debug_package    => $opt_debug_package,
  41                  debug_subroutine => $opt_debug_subroutine,
  42                  tests            => $opt_tests,
  43                  generate_facit   => $opt_generate_facit,
  44                  directory        => $top_dir );
  45 }