test that stubby exception generators can take an argument

Raku · Mar 30, 2012 · 903dffc · 903dffc
1 parent 6b41ab3
commit 903dffc
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -192,4 +192,17 @@ throws_like 'my sub a { POST 0 }; a()', X::Phaser::PrePost, phaser => 'POST', co
 throws_like 'use fatal; my $x = "5 foo" + 8;', X::Str::Numeric, source => '5 foo', pos => 1,
             reason => /trailing/;
 
+# RT #58558
+throws_like '!!! 42', X::AdHoc, payload => 42;
+throws_like 'use fatal; ... 42', X::AdHoc, payload => 42;
+{
+    my $c = 0;
+    try {
+        ??? 42;
+        CONTROL { default { $c++ } }
+    }
+    is $c, 1, '??? with argument warns';
+}
+
+
 done;