diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-07-21 17:52:15 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-07-21 17:52:15 -0400 |
commit | 4847f0f304e5b1c7430e840e52f50cef1a9ff2fb (patch) | |
tree | b9a35db7d71113b226593abfa6f446e663762f5a | |
parent | e0964ab9d4910ff878469b8d3262d01ba14d9b2a (diff) | |
download | parse-keyword-4847f0f304e5b1c7430e840e52f50cef1a9ff2fb.tar.gz parse-keyword-4847f0f304e5b1c7430e840e52f50cef1a9ff2fb.zip |
clean up test warnings
-rw-r--r-- | t/try/given_when.t | 5 | ||||
-rw-r--r-- | t/try/when.t | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/t/try/given_when.t b/t/try/given_when.t index 48d006d..4cf8460 100644 --- a/t/try/given_when.t +++ b/t/try/given_when.t @@ -5,6 +5,8 @@ use Test::More; use lib 't/try/lib'; use 5.014; +no if $] >= 5.018, warnings => 'experimental::smartmatch'; + use Try; my ( $error, $topic ); @@ -24,7 +26,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.018; is( $topic, $error, 'error is also in $_' ); } diff --git a/t/try/when.t b/t/try/when.t index 60322b7..6a0c075 100644 --- a/t/try/when.t +++ b/t/try/when.t @@ -5,6 +5,8 @@ use Test::More; use lib 't/try/lib'; use 5.014; +no if $] >= 5.018, warnings => 'experimental::smartmatch'; + use Try; my ( $foo, $bar, $other ); |