make experimental.pm test agnostic about switch

Anticipating imminent reversion of smartmatch behaviour, make
experimental.pm able to test against either version of the switch feature,
detecting empirically which version the running perl supports.

1 files changed, 30 insertions, 9 deletions

diff --git a/cpan/experimental/t/basic.t b/cpan/experimental/t/basic.t
index b54bd1199a..adfc566744 100644
--- a/cpan/experimental/t/basic.t
+++ b/cpan/experimental/t/basic.t
@@ -17,17 +17,38 @@ END
 }
 
 if ($] >= 5.010001) {
-	is (eval <<'END', 1, 'switch compiles') or diag $@;
-	use experimental 'switch';
-	sub bar { 1 };
-	given(1) {
-		whereso (\&bar) {
-			pass("bar matches 1");
+	if (eval '
+		no warnings "experimental";
+		use feature "switch";
+		if(0) { when(3) {} }
+		1;
+	') {
+		is (eval <<'END', 1, 'switch compiles') or diag $@;
+		use experimental 'switch';
+		sub bar { 1 };
+		given(1) {
+			when (\&bar) {
+				pass("bar matches 1");
+			}
+			default {
+				fail("bar matches 1");
+			}
 		}
-		fail("bar matches 1");
-	}
-	1;
+		1;
 END
+	} else {
+		is (eval <<'END', 1, 'switch compiles') or diag $@;
+		use experimental 'switch';
+		sub bar { 1 };
+		given(1) {
+			whereso (\&bar) {
+				pass("bar matches 1");
+			}
+			fail("bar matches 1");
+		}
+		1;
+END
+	}
 }
 
 if ($] >= 5.010001) {