increment $VERSION after 0.27 release

[p5sagit/Try-Tiny.git] / t / finally.t

diff --git a/t/finally.t b/t/finally.t
index 1c969de..76adf4d 100644 (file)
--- a/t/finally.t
+++ b/t/finally.t
@@ -1,11 +1,8 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
-use Test::More tests => 28;
-
-BEGIN { use_ok 'Try::Tiny' };
+use Test::More tests => 30;
+use Try::Tiny;
 
 try {
   my $a = 1+1;
@@ -128,4 +125,16 @@ is($_, "foo", "same afterwards");
   like $originals[1], qr/fin 3 at/, 'Second warning contains original exception';
 }
 
-1;
+{
+  my $finally;
+  SKIP: {
+    try {
+      pass('before skip in try');
+      skip 'whee', 1;
+      fail('not reached');
+    } finally {
+      $finally = 1;
+    };
+  }
+  ok $finally, 'finally ran';
+}