Don't use meta in the reference test, Moose doesn't like it being invoked as a function
[gitmo/Mouse.git] / t / 101-meta-attribute.t
index 454b609..4cafd88 100644 (file)
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 8;
+use Test::More tests => 9;
 
 do {
     package Class;
@@ -29,4 +29,4 @@ is($attr->class, 'Class', 'attached class');
 is($attr->predicate, 'has_pawn', 'predicate');
 is($attr->clearer, 'clear_pawn', 'clearer');
 is(ref($attr->default), 'CODE', 'default is a coderef');
-
+ok($attr->verify_type_constraint(1), 'verify_type_constraint works even without isa');