function_test/Semantic_Analyser/harness.pl

   1 ###############################################################################
   2 # Copyright (c) 2000-2016 Ericsson Telecom AB
   3 # All rights reserved. This program and the accompanying materials
   4 # are made available under the terms of the Eclipse Public License v1.0
   5 # which accompanies this distribution, and is available at
   6 # http://www.eclipse.org/legal/epl-v10.html
   7 #
   8 # Contributors:
   9 #   Balasko, Jeno
  10 #   Kovacs, Ferenc
  11 #   Raduly, Csaba
  12 #
  13 ###############################################################################
  14 #!/usr/bin/perl -w
  15
  16 use strict;
  17
  18 if ($] < 5.006) {
  19   # ancient perl, we must be on Solaris :(
  20   my @perlloc = qw( /proj/TTCN/Tools/perl-5.10.1/bin/perl /mnt/TTCN/Tools/perl-5.10.1/bin/perl );
  21   foreach (@perlloc) {
  22     if (-x $_) {
  23       #warn "Let's try with $_ instead";
  24       exec( $_, '-w', $0, @ARGV ) or die "That didn't work either: $!";
  25     }
  26   }
  27 }
  28
  29 use vars qw($v);
  30 use Test::Harness; #
  31
  32 if (0 == scalar @ARGV) {
  33   @ARGV = glob('../../playground/sema/TTCN3_*/  ../../playground/sema/SA_6_TD/  ../../playground/sema/ASN_*/  ver/  xer/  import_of*/  HQ46602/');
  34   # options/ does not run through harness
  35 }
  36
  37 # Run the file named "t" in each directory.
  38 # Note that the current directory is still Semantic_Analyser, not the subdir.
  39 # The "t" script should change dirs if wanted.
  40 runtests( map { s!/$!!; $_ . '/t' } @ARGV );
  41
  42 __END__
  43
  44 my %args = (
  45         exec => [ 'make', 'check', '--no-print-directory', '-s', '-C' ],
  46         verbosity => ($v || 0),
  47 #       show_count => 1,
  48         color => 1
  49 );
  50 my $harness = TAP::Harness->new( \%args );
  51
  52 # If no argument, collect all sub-directories
  53
  54 $harness->runtests(@ARGV);
  55
  56 __END__
  57
  58 Common runner of all tests.