blob: f2b70a14ac6e2d7284333d437727cf77eca45fc3 (
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
#!@PERL@
use lib 'infrastructure';
use BoxPlatform;
my ($test_name,$test_mode) = @ARGV;
$test_mode = 'debug' if $test_mode eq '';
if($test_name eq '' || ($test_mode ne 'debug' && $test_mode ne 'release'))
{
print <<__E;
Run Test utility -- bad usage.
runtest.pl (test|ALL) [release|debug]
Mode defaults to debug.
__E
exit(0);
}
my @results;
if($test_name ne 'ALL')
{
# run one test
runtest($test_name);
}
else
{
# run all tests
my @tests;
open MODULES,'modules.txt' or die "Can't open modules file";
while(<MODULES>)
{
# omit bits on some platforms?
next if m/\AEND-OMIT/;
if(m/\AOMIT:(.+)/)
{
if($1 eq $build_os or $1 eq $target_os)
{
while(<MODULES>)
{
last if m/\AEND-OMIT/;
}
}
next;
}
push @tests,$1 if m~\Atest/(\w+)\s~;
}
close MODULES;
runtest($_) for(@tests)
}
# report results
print "--------\n",join("\n",@results),"\n";
sub runtest
{
my ($t) = @_;
# attempt to make this test
my $flag = ($test_mode eq 'release')?(BoxPlatform::make_flag('RELEASE')):'';
my $make_res = system("cd test/$t ; $make_command $flag");
if($make_res != 0)
{
push @results,"$t: make failed";
return;
}
# run it
my $test_res = system("cd $test_mode/test/$t ; ./t | tee ../../../temp.runtest");
# open test results
if(open RESULTS,'temp.runtest')
{
my $last;
while(<RESULTS>)
{
$last = $_ if m/\w/;
}
close RESULTS;
chomp $last;
push @results,"$t: $last";
}
else
{
push @results,"$t: output not found";
}
# delete test results
unlink 'temp.runtest';
}
|