[deliverable/titan.core.git] / function_test / Semantic_Analyser / harness.pl

###############################################################################
# Copyright (c) 2000-2015 Ericsson Telecom AB
# All rights reserved. This program and the accompanying materials
# are made available under the terms of the Eclipse Public License v1.0
# which accompanies this distribution, and is available at
# http://www.eclipse.org/legal/epl-v10.html
###############################################################################
#!/usr/bin/perl -w

use strict;

if ($] < 5.006) {
  # ancient perl, we must be on Solaris :(
  my @perlloc = qw( /proj/TTCN/Tools/perl-5.10.1/bin/perl /mnt/TTCN/Tools/perl-5.10.1/bin/perl );
  foreach (@perlloc) {
    if (-x $_) {
      #warn "Let's try with $_ instead";
      exec( $_, '-w', $0, @ARGV ) or die "That didn't work either: $!";
    }
  }
}

use vars qw($v);
use Test::Harness; #

if (0 == scalar @ARGV) {
  @ARGV = glob('../../playground/sema/TTCN3_*/  ../../playground/sema/SA_6_TD/  ../../playground/sema/ASN_*/  ver/  xer/  import_of*/  HQ46602/');
  # options/ does not run through harness
}

# Run the file named "t" in each directory.
# Note that the current directory is still Semantic_Analyser, not the subdir.
# The "t" script should change dirs if wanted.
runtests( map { s!/$!!; $_ . '/t' } @ARGV );

__END__

my %args = (
	exec => [ 'make', 'check', '--no-print-directory', '-s', '-C' ],
	verbosity => ($v || 0),
#	show_count => 1,
	color => 1
);
my $harness = TAP::Harness->new( \%args );

# If no argument, collect all sub-directories

$harness->runtests(@ARGV);

__END__

Common runner of all tests.
Commit	Line	Data
970ed795	1	###############################################################################
3abe9331	2	# Copyright (c) 2000-2015 Ericsson Telecom AB
970ed795 EL	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	#!/usr/bin/perl -w
	9
	10	use strict;
	11
	12	if ($] < 5.006) {
	13	# ancient perl, we must be on Solaris :(
	14	my @perlloc = qw( /proj/TTCN/Tools/perl-5.10.1/bin/perl /mnt/TTCN/Tools/perl-5.10.1/bin/perl );
	15	foreach (@perlloc) {
	16	if (-x $_) {
	17	#warn "Let's try with $_ instead";
	18	exec( $_, '-w', $0, @ARGV ) or die "That didn't work either: $!";
	19	}
	20	}
	21	}
	22
	23	use vars qw($v);
	24	use Test::Harness; #
	25
	26	if (0 == scalar @ARGV) {
	27	@ARGV = glob('../../playground/sema/TTCN3_/ ../../playground/sema/SA_6_TD/ ../../playground/sema/ASN_/ ver/ xer/ import_of*/ HQ46602/');
	28	# options/ does not run through harness
	29	}
	30
	31	# Run the file named "t" in each directory.
	32	# Note that the current directory is still Semantic_Analyser, not the subdir.
	33	# The "t" script should change dirs if wanted.
	34	runtests( map { s!/$!!; $_ . '/t' } @ARGV );
	35
	36	__END__
	37
	38	my %args = (
	39	exec => [ 'make', 'check', '--no-print-directory', '-s', '-C' ],
	40	verbosity => ($v \|\| 0),
	41	# show_count => 1,
	42	color => 1
	43	);
	44	my $harness = TAP::Harness->new( \%args );
	45
	46	# If no argument, collect all sub-directories
	47
	48	$harness->runtests(@ARGV);
	49
	50	__END__
	51
	52	Common runner of all tests.