import more Method::Signatures tests

[p5sagit/Function-Parameters.git] / t / foreign / Method-Signatures / typeload_moose.t

diff --git a/t/foreign/Method-Signatures/typeload_moose.t b/t/foreign/Method-Signatures/typeload_moose.t
new file mode 100644 (file)
index 0000000..c3d08c0
--- /dev/null
+++ b/t/foreign/Method-Signatures/typeload_moose.t
@@ -0,0 +1,27 @@
+#!perl
+
+use strict;
+use warnings FATAL => 'all';
+use Dir::Self;
+use lib __DIR__ . '/lib';
+
+use Test::More
+       eval { require Moose; 1 }
+       ? (tests => 2)
+       : (skip_all => "Moose required for testing types")
+;
+
+
+require MooseLoadTest;
+
+my $foobar = Foo::Bar->new;
+
+# can't check for type module not being loaded here, because Moose will drag it in
+
+
+$foobar->check_int(42);
+
+# now we should have loaded Moose, not Mouse, to do our type checking
+
+is $INC{'Mouse/Util/TypeConstraints.pm'}, undef, "didn't load Mouse";
+like $INC{'Moose/Util/TypeConstraints.pm'}, qr{Moose/Util/TypeConstraints\.pm$}, 'loaded Moose';