Add warning to POD about try/finally

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

diff --git a/t/given_when.t b/t/given_when.t
index 49e11ac..afa0733 100644 (file)
--- a/t/given_when.t
+++ b/t/given_when.t
@@ -7,10 +7,11 @@ use Test::More;
 
 BEGIN {
   plan skip_all => "Perl 5.10 is required" unless eval { require 5.010 };
-  plan tests => 3;
-  use_ok("Try::Tiny");
+  plan tests => 2;
 }
 
+use Try::Tiny;
+
 use 5.010;
 no if $] >= 5.017011, warnings => 'experimental::smartmatch';
 
@@ -30,7 +31,8 @@ given ("foo") {
 is( $error, "blah\n", "error caught" );
 
 {
-  local $TODO = "perhaps a workaround can be found";
+  local $TODO = "perhaps a workaround can be found"
+    if $] < 5.017003;
   is( $topic, $error, 'error is also in $_' );
 }