Skip to content
Browse files

more robust name clash tests

  • Loading branch information...
1 parent 4d5e023 commit c9e36113587f15c9d5a89292aeca1d3fa9b63126 @moritz moritz committed Apr 14, 2012
Showing with 3 additions and 1 deletion.
  1. +3 −1 S32-exceptions/misc.t
View
4 S32-exceptions/misc.t
@@ -78,7 +78,7 @@ throws_like 'my @a; my @a', X::Redeclaration, symbol => '@a';
throws_like 'sub a { }; sub a { }',X::Redeclaration, symbol => 'a', what => 'routine';
throws_like 'sub a { }; multi sub a { }',X::Redeclaration, symbol => 'a', what => 'routine';
throws_like 'my class A { }; my class A { }', X::Redeclaration, symbol => 'A';
-throws_like 'my class B { }; my subset B { }', X::Redeclaration, symbol => 'B';
+throws_like 'my class B { }; my subset B of Any;', X::Redeclaration, symbol => 'B';
throws_like 'CATCH { }; CATCH { }', X::Phaser::Multiple, block => 'CATCH';
throws_like 'my class A { my @a; @a!List::foo() }',
@@ -167,6 +167,8 @@ throws_like 'use MONKEY_TYPING; augment class { }', X::Anon::Augment, package-ty
throws_like 'use MONKEY_TYPING; augment class NoSuchClass { }', X::Augment::NoSuchType,
package-type => 'class',
package => 'NoSuchClass';
+throws_like 'use MONKEY_TYPING; augment class No::Such::Class { }', X::Augment::NoSuchType,
+ package => 'No::Such::Class';
throws_like ':45<abcd>', X::Syntax::Number::RadixOutOfRange, radix => 45;
throws_like ':0<0>', X::Syntax::Number::RadixOutOfRange, message => rx/0/;

0 comments on commit c9e3611

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