typed exceptions for PRE/POST failures

Raku · Mar 18, 2012 · efa9610 · efa9610
1 parent ba26d03
commit efa9610
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -175,4 +175,7 @@ throws_like 'constant * = 3;', X::Syntax::Missing, what => /constant/;
 
 throws_like 'class A {...}; grammar B { ... }', X::Package::Stubbed, packages => <A B>;
 
+throws_like 'my sub a { PRE 0  }; a()', X::Phaser::PrePost, what => 'Precondition', condition => /0/;
+throws_like 'my sub a { POST 0 }; a()', X::Phaser::PrePost, what => 'Postcondition', condition => /0/;
+
 done;