blob: 8e1de90d32cac6a9a122f76e23145b06a3e5ce32 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
& eval 'exec perl -S $0 $argv:q'
if 0;
# $Id$
# -*- perl -*-
use lib '../../../bin';
use PerlACE::Run_Test;
use strict;
my $final_result = 0;
foreach my $process (qw(Unbounded_Primitive_Types
Bounded_Primitive_Types
Unbounded_Simple_Types
Bounded_Simple_Types)) {
# Not all the binaries are generated in all configurations.
next unless -x $process;
print "Running $process ...";
my $P = new PerlACE::Process ($process,
'--log_level=nothing '
.'--report_level=no');
my $result = $P->SpawnWaitKill(30);
if ($result != -1) {
print "SUCCESS\n";
} else {
print "FAILED\n";
$final_result = 1;
}
}
exit $final_result;
|
