projects
/
p5sagit/strictures.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
(parent:
2074d68
)
don't silence errors in tests
Graham Knop [Thu, 16 Jan 2014 18:27:37 +0000 (13:27 -0500)]
t/extras.t
patch
|
blob
|
blame
|
history
diff --git
a/t/extras.t
b/t/extras.t
index
d314290
..
b8c5ecf
100644
(file)
--- a/
t/extras.t
+++ b/
t/extras.t
@@
-90,12
+90,14
@@
use strictures;
{
open my $fh, '>', \(my $str = '');
- local *STDERR = $fh;
- eval qq{
+ {
+ local *STDERR = $fh;
+ eval qq{
#line 1 "t/load_fail.t"
use strictures;
1;
- } or die "$@";
+ } or die "$@";
+ }
strictures->import;
like(
@@
-107,12
+109,15
@@
use strictures;
{
open my $fh, '>', \(my $str = '');
- local *STDERR = $fh;
- eval qq{
+ {
+ local *STDERR = $fh;
+ eval qq{
#line 1 "t/load_fail.t"
use strictures;
1;
- } or die "$@";
+ } or die "$@";
+ }
+
is $str, '', "extra dep load failure is not reported a second time";
}
}