Skip to content
Browse files

test X::Augment::NoSuchType

  • Loading branch information...
1 parent 5065e35 commit 3804629e6214769ea342de033f2a83cc4ef1d9b7 @moritz moritz committed Feb 23, 2012
Showing with 3 additions and 0 deletions.
  1. +3 −0 S32-exceptions/misc.t
View
3 S32-exceptions/misc.t
@@ -144,6 +144,9 @@ throws_like 'multi sub () { }', X::Anon::Multi, multiness => 'multi';
throws_like 'proto sub () { }', X::Anon::Multi, multiness => 'proto';
throws_like 'class { multi method () { }}', X::Anon::Multi, routine-type => 'method';
throws_like 'use MONKEY_TYPING; augment class { }', X::Anon::Augment, package-type => 'class';
+throws_like 'use MONKEY_TYPING; augment class NoSuchClass { }', X::Augment::NoSuchType,
+ package-type => 'class',
+ package => 'NoSuchClass';
throws_like ':45<abcd>', X::Syntax::Number::RadixOutOfRange, radix => 45;

0 comments on commit 3804629

Please sign in to comment.
Something went wrong with that request. Please try again.