2 ###############################################################################
3 # Copyright (c) 2000-2014 Ericsson Telecom AB
4 # All rights reserved. This program and the accompanying materials
5 # are made available under the terms of the Eclipse Public License v1.0
6 # which accompanies this distribution, and is available at
7 # http://www.eclipse.org/legal/epl-v10.html
8 ###############################################################################
14 # ancient perl, we must be on Solaris :(
15 my @perlloc = qw( /proj/TTCN/Tools/perl-5.10.1/bin/perl /mnt/TTCN/Tools/perl-5.10.1/bin/perl );
18 warn "Let's try with $_ instead";
19 exec( $_, $0, @ARGV ) or die "That didn't work either: $!";
25 Test
::More
->import('no_plan');
33 'Txerasntypes' => 'R8A',
34 'Txerboolean' => 'R8B',
38 'Txernested' => 'R8N',
41 'Txerstring' => 'R8Z',
42 'Txerbinstr' => 'R99999A',
47 'ObjectClassWithSyntax' => '',
51 # built-in modules for the logger
52 'TitanLoggerApi' => '',
53 'TitanLoggerControl' => '',
54 'PreGenRecordOf' => '',
62 if ( my ($mod, $type, $md5, $rev) =
66 (TTCN
-3|ASN\
.1) # type
68 (?
: # dodge the compilation date
69 # Hopefully not affected by i18n: this is American style mm dd yyyy
70 [A
-Z
][a
-z
][a
-z
] # month
72 [\s\d
]\d
# day of the month
88 #print "$mod\t, $type\t, $md5, $rev";
89 if (ok
(exists $versions{$mod}, " \tKnown module $mod")) {
91 is
($rev, $versions{$mod}, " \tVersion for $mod");
92 delete $versions{$mod};
95 #die "Unknown module name $mod";
97 skip
( " \tversion check for unknown module $mod", 1 );
This page took 0.043665 seconds and 5 git commands to generate.