projects
/
p5sagit/Try-Tiny.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
(parent:
4456fd2
)
avoid a warning when testing with -w
Try-Tiny-0.07
Ricardo Signes [Thu, 21 Oct 2010 20:19:08 +0000 (16:19 -0400)]
t/basic.t
patch
|
blob
|
blame
|
history
diff --git
a/t/basic.t
b/t/basic.t
index
022c604
..
79c35ad
100644
(file)
--- a/
t/basic.t
+++ b/
t/basic.t
@@
-82,6
+82,9
@@
is_deeply( [ try { die } catch {qw(foo bar gorch)} ], [qw(foo bar gorch)], "list
{
my ($sub) = catch { my $a = $_; };
is(ref($sub), 'Try::Tiny::Catch', 'Checking catch subroutine scalar reference is correctly blessed');
+}
+
+{
my ($sub) = finally { my $a = $_; };
is(ref($sub), 'Try::Tiny::Finally', 'Checking finally subroutine scalar reference is correctly blessed');
}