Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

test that stubby exception generators can take an argument

  • Loading branch information...
commit 903dffc1c110c56057384fee97fa7dcef646806d 1 parent 6b41ab3
@moritz moritz authored
Showing with 13 additions and 0 deletions.
  1. +13 −0 S32-exceptions/misc.t
View
13 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;
Please sign in to comment.
Something went wrong with that request. Please try again.