projects
/
p5sagit/Devel-GlobalDestruction.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Actually detect errors in pure-perl test
[p5sagit/Devel-GlobalDestruction.git]
/
t
/
01_basic.t
diff --git
a/t/01_basic.t
b/t/01_basic.t
index
5a6bdcf
..
c16cab3
100644
(file)
--- a/
t/01_basic.t
+++ b/
t/01_basic.t
@@
-21,8
+21,10
@@
BEGIN {
print "1..4\n";
+my $had_error = 0;
+END { $? = $had_error };
sub ok ($$) {
- print "not " if !$_[0];
+ $had_error++, print "not " if !$_[0];
print "ok";
print " - $_[1]" if defined $_[1];
print "\n";