X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fforeign%2FMethod-Signatures%2Ftypeload_moose.t;fp=t%2Fforeign%2FMethod-Signatures%2Ftypeload_moose.t;h=c3d08c08fccc6edeed989909ecdaf0cb8ce39a9b;hb=700071de3f0252907d4aa24f3bfddc6cc4717860;hp=0000000000000000000000000000000000000000;hpb=f6a45a63e0f39a9c306b49d303575aa574fef102;p=p5sagit%2FFunction-Parameters.git

diff --git a/t/foreign/Method-Signatures/typeload_moose.t b/t/foreign/Method-Signatures/typeload_moose.t
new file mode 100644
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';