import more Method::Signatures tests

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

diff --git a/t/foreign/Method-Signatures/typeload_notypes.t b/t/foreign/Method-Signatures/typeload_notypes.t
new file mode 100644 (file)
index 0000000..71ad5ea
--- /dev/null
+++ b/t/foreign/Method-Signatures/typeload_notypes.t
@@ -0,0 +1,39 @@
+#!perl
+
+use strict;
+use warnings FATAL => 'all';
+
+use Test::More;
+
+
+{
+    package Foo::Bar;
+
+    use strict;
+    use warnings;
+
+    use Function::Parameters qw(:strict);
+
+    method new ($class:) { bless {}, $class; }
+
+    # not using a type here, so we won't expect Moose *or* Mouse to get loaded
+    method foo1 ($bar) {};
+}
+
+my $foobar = Foo::Bar->new;
+
+# at this point, neither Mouse nor Moose should be loaded
+
+is $INC{'Mouse/Util/TypeConstraints.pm'}, undef, 'no type checking module loaded before method call';
+is $INC{'Moose/Util/TypeConstraints.pm'}, undef, 'no type checking module loaded before method call';
+
+
+$foobar->foo1(42);
+
+# _still_ should have no Moose and no Mouse, because we haven't requested any type checking
+
+is $INC{'Mouse/Util/TypeConstraints.pm'}, undef, 'no type checking module loaded before method call';
+is $INC{'Moose/Util/TypeConstraints.pm'}, undef, 'no type checking module loaded before method call';
+
+
+done_testing;