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

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');
 }