temporary fix for RT#123908

smartmatch semantics in general, and the use of "when" in particular,
has changed in 5.27.7.  They might change again, so I'm skipping tests
for this version only, and will revisit for 5.27.8.

diff --git a/Changes b/Changes
index fdeec16..172a8eb 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,6 +1,8 @@
 Revision history for Try-Tiny
 
 {{$NEXT}}
+  - skip tests of "when" and "given/when" usage for perl 5.27.7 *only* (see
+    RT#123908)
 
 0.28      2017-01-09 01:21:33Z
   - enabled some tests of finally blocks that were disabled on 5.6, now that

diff --git a/t/given_when.t b/t/given_when.t
index 9f4a79d..b141957 100644 (file)
--- a/t/given_when.t
+++ b/t/given_when.t
@@ -5,6 +5,7 @@ use Test::More;
 
 BEGIN {
   plan skip_all => 'Perl 5.010 is required' unless "$]" >= '5.010';
+  plan skip_all => 'Tests skipped on perl 5.27.7, pending resolution of smartmatch changes' if "$]" eq '5.027007';
   plan tests => 2;
 }
 

diff --git a/t/when.t b/t/when.t
index fd0ccde..58bf809 100644 (file)
--- a/t/when.t
+++ b/t/when.t
@@ -5,6 +5,7 @@ use Test::More;
 
 BEGIN {
   plan skip_all => 'Perl 5.010 is required' unless "$]" >= '5.010';
+  plan skip_all => 'Tests skipped on perl 5.27.7, pending resolution of smartmatch changes' if "$]" eq '5.027007';
   plan tests => 5;
 }