blob: 80975a8de5e5df1a3608c54e8453e6ef268bc24c (
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
|
# @(#)runcthon.prl 1.1 98/10/26 Connectathon Testsuite
print "Run CONNECTATHON Tests\n";
$count = $ARGV[0];
&initpwd;
chdir($ENV{'PWD'});
$path = ($ENV{'PWD'});
print $path;
print "\n";
for ($i = 1; $i <= $count; $i++) {
$winpath = ($path . "\\win32\\basic");
print "\n$i $winpath\n";
chdir $winpath;
system "perl runbasic.prl";
chdir($ENV{'PWD'});
$dospath = ($path . "\\dos\\basic");
print "\n$i $dospath\n";
chdir $dospath;
system "perl runbasic.prl";
chdir($ENV{'PWD'});
$pospath = ($path . "\\posix\\basic");
print "\n$i $pospath\n";
chdir $pospath;
#system "perl runbasic.prl";
chdir($ENV{'PWD'});
$dospath = ($path . "\\dos\\special");
print "\n$i $dospath\n";
chdir $dospath;
system "runtests.bat";
chdir($ENV{'PWD'});
}
exit 0;
sub initpwd {
if ($ENV{'PWD'}) {
local($dd,$di) = stat('.');
local($pd,$pi) = stat($ENV{'PWD'});
if ($di != $pi || $dd != $pd) {
chop($ENV{'PWD'} = `cd`);
}
}
else {
chop($ENV{'PWD'} = `cd`);
}
if ($ENV{'PWD'} =~ m|(/[^/]+(/[^/]+/[^/]+))(.*)|) {
local($pd,$pi) = stat($2);
local($dd,$di) = stat($1);
if ($di == $pi && $dd == $pd) {
$ENV{'PWD'}="$2$3";
}
}
# print "$ENV{'PWD'}\n";
}
|
