#!/usr/bin/perl
-# This is automatically generated by author/import-moose-test.pl.
-# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
-use t::lib::MooseCompat;
use strict;
use warnings;
-use Test::More;
+use Test::More tests => 16;
use Test::Exception;
+
{
package Foo::Meta::Attribute;
use Mouse;
isa_ok($foo_attr_type_constraint, 'Mouse::Meta::TypeConstraint');
is($foo_attr_type_constraint->name, 'Foo', '... got the right type constraint name');
- is($foo_attr_type_constraint->parent->name, 'Object', '... got the right type constraint parent name');
+
+ is($foo_attr_type_constraint->parent, 'Object', '... got the right type constraint parent name');
}
{
package Bar::Meta::Attribute;
use Mouse;
- extends 'Mouse::Meta::Attribute';
+ #extends 'Class::MOP::Attribute';
+ extends 'Foo::Meta::Attribute';
package Bar;
use Mouse;
isa_ok($bar_attr, 'Mouse::Meta::Attribute');
}
-done_testing;
+