);
};
-for ('A'..'E', 'G::H') {
+for ('B'..'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 {
+ 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/;
+}
+
for ('F', 'G', 'I', 'Z') {
throws_ok {
ClassNameTests->new(class => $_);