package A;
our @VERSION;
- package B;
+ package Bx; # 'B' conflicts the B module
our $VERSION = 1;
package C;
);
};
-for ('B'..'E', 'G::H') {
+for ('Bx', 'D'..'E', 'G::H') {
lives_ok {
ClassNameTests->new(class => $_);
};
};
}
-TODO: {
- local $TODO = "Moose throws errors here. Mouse does not";
- throws_ok {
- ClassNameTests->new(class => 'A');
- } qr/Attribute \(class\) does not pass the type constraint because: Validation failed for 'ClassName' failed with value A/;
+throws_ok {
+ ClassNameTests->new(class => 'A');
+} qr/Attribute \(class\) does not pass the type constraint because: Validation failed for 'ClassName' failed with value A/;
- throws_ok {
- my $obj = ClassNameTests->new;
- $obj->class('A');
- } qr/Attribute \(class\) does not pass the type constraint because: Validation failed for 'ClassName' failed with value A/;
-}
+throws_ok {
+ my $obj = ClassNameTests->new;
+ $obj->class('A');
+} qr/Attribute \(class\) does not pass the type constraint because: Validation failed for 'ClassName' failed with value A/;
+
+throws_ok {
+ ClassNameTests->new(class => 'C');
+} qr/Attribute \(class\) does not pass the type constraint because: Validation failed for 'ClassName' failed with value C/;
+
+throws_ok {
+ my $obj = ClassNameTests->new;
+ $obj->class('C');
+} qr/Attribute \(class\) does not pass the type constraint because: Validation failed for 'ClassName' failed with value C/;
for ('F', 'G', 'I', 'Z') {
throws_ok {