|
@@ -34,13 +34,13 @@ sub clear {
|
34
|
34
|
}
|
35
|
35
|
|
36
|
36
|
sub color {
|
37
|
|
- $mood = shift;
|
38
|
|
- $cmd = $COLORS->{$PLATFORM}->{$mood};
|
39
|
|
- system ($cmd) if $cmd;
|
|
37
|
+ $mood = shift;
|
|
38
|
+ $cmd = $COLORS->{$PLATFORM}->{$mood};
|
|
39
|
+ system ($cmd) if $cmd;
|
40
|
40
|
}
|
41
|
41
|
|
42
|
42
|
sub cat {
|
43
|
|
- $_ = shift;
|
|
43
|
+ $_ = shift;
|
44
|
44
|
my ($name) = m|^.*/(.*?)$|;
|
45
|
45
|
printf "$name:\n";
|
46
|
46
|
if (open my $fh, "<", $_) {
|
|
@@ -56,26 +56,26 @@ sub cat {
|
56
|
56
|
|
57
|
57
|
sub run_tests {
|
58
|
58
|
my $ret = 0;
|
59
|
|
- printf "===== STDOUT =====\n";
|
60
|
|
- foreach (@_) {
|
|
59
|
+ printf "===== STDOUT =====\n";
|
|
60
|
+ foreach (@_) {
|
61
|
61
|
s|^$TESTS/*||;
|
62
|
62
|
say "$_:";
|
63
|
|
- $cmd = sprintf 'perl %s 2>%s', "$TESTS\\$_", "$DUMPS\\$_.err";
|
64
|
|
- system($cmd);
|
65
|
|
- $ret = $? >> 8;
|
|
63
|
+ $cmd = sprintf 'perl %s 2>%s', "$TESTS\\$_", "$DUMPS\\$_.err";
|
|
64
|
+ system($cmd);
|
|
65
|
+ $ret = $? >> 8;
|
66
|
66
|
if ($ret) {
|
67
|
67
|
print "last test failed with exit code $ret!\n";
|
68
|
68
|
return;
|
69
|
69
|
}
|
70
|
|
- }
|
71
|
|
- return 1;
|
|
70
|
+ }
|
|
71
|
+ return 1;
|
72
|
72
|
}
|
73
|
73
|
|
74
|
74
|
sub freakout {
|
75
|
75
|
my $ret = shift;
|
76
|
|
- color "nok";
|
77
|
|
- my @paths = glob "$DUMPS/*.err";
|
78
|
|
- printf "\n===== STDERR =====\n";
|
|
76
|
+ color "nok";
|
|
77
|
+ my @paths = glob "$DUMPS/*.err";
|
|
78
|
+ printf "\n===== STDERR =====\n";
|
79
|
79
|
STDERR: foreach (@paths) {
|
80
|
80
|
cat $_ and unlink $_ or warn "could not print $_";
|
81
|
81
|
}
|
|
@@ -84,9 +84,9 @@ sub freakout {
|
84
|
84
|
mkdir $DUMPS unless -d $DUMPS;
|
85
|
85
|
|
86
|
86
|
while (1) {
|
87
|
|
- my @paths = glob "$TESTS/*.t";
|
88
|
|
- &clear;
|
89
|
|
- color "ok";
|
|
87
|
+ my @paths = glob "$TESTS/*.t";
|
|
88
|
+ &clear;
|
|
89
|
+ color "ok";
|
90
|
90
|
my $ok = &run_tests(@paths);
|
91
|
91
|
if ($ok) {
|
92
|
92
|
say "------------------";
|
|
@@ -94,6 +94,6 @@ while (1) {
|
94
|
94
|
} else {
|
95
|
95
|
&freakout();
|
96
|
96
|
}
|
97
|
|
- sleep 5;
|
|
97
|
+ sleep 5;
|
98
|
98
|
}
|
99
|
99
|
|