summaryrefslogtreecommitdiff
path: root/t/lib/croak/pp_ctl
diff options
context:
space:
mode:
Diffstat (limited to 't/lib/croak/pp_ctl')
-rw-r--r--t/lib/croak/pp_ctl12
1 files changed, 9 insertions, 3 deletions
diff --git a/t/lib/croak/pp_ctl b/t/lib/croak/pp_ctl
index 5c98769913..2943bf7551 100644
--- a/t/lib/croak/pp_ctl
+++ b/t/lib/croak/pp_ctl
@@ -28,8 +28,14 @@ dump $label;
EXPECT
Can't find label foo at - line 3.
########
-# NAME whereso outside given
+# NAME when outside given
use 5.01; no warnings 'experimental::smartmatch';
-whereso(!defined){}
+when(undef){}
EXPECT
-Can't leave "whereso" outside a loop block at - line 2.
+Can't "when" outside a topicalizer at - line 2.
+########
+# NAME default outside given
+use 5.01;
+default{}
+EXPECT
+Can't "default" outside a topicalizer at - line 2.