use MooX::Types::MooseLike::Base for most type constraint checks

2 files changed, 10 insertions, 2 deletions

diff --git a/t/01basic.t b/t/01basic.t
index 04cca88..24ae742 100644
--- a/t/01basic.t
+++ b/t/01basic.t
@@ -25,8 +25,15 @@ my $o2 = Local::Class->new(foo => 'bar', bar => 'foo');
 is($o2->foo, 'bar');
 is($o2->bar, 'foo');
 
-ok !eval { Local::Class->new(foo => []) };
-ok !eval { Local::Class->new(bar => []) };
+ok not eval {
+	require MooX::Types::MooseLike::Base;
+	Local::Class->new(foo => []);
+};
+
+ok not eval {
+	require MooX::Types::MooseLike::Base;
+	Local::Class->new(bar => []);
+};
 
 {
 	package Local::Other;
diff --git a/t/02inflation.t b/t/02inflation.t
index 7dcee9e..2d88d6c 100644
--- a/t/02inflation.t
+++ b/t/02inflation.t
@@ -10,6 +10,7 @@ BEGIN {
 };
 
 ok not eval {
+	require MooX::Types::MooseLike::Base;
 	my $obj = Local::Class->new(foo => [])
 };