Remove Class::ISA use from autouse tests
authorSteffen Mueller <smueller@cpan.org>
Mon, 21 Sep 2009 14:56:04 +0000 (16:56 +0200)
committerSteffen Mueller <smueller@cpan.org>
Mon, 21 Sep 2009 14:56:04 +0000 (16:56 +0200)
Instead, include an ultra-simple module for testing in t/lib.

ext/autouse/t/autouse.t
ext/autouse/t/lib/MyTestModule.pm [new file with mode: 0644]

index 42caf17..522a025 100644 (file)
@@ -64,6 +64,9 @@ ok( $@, qr/^\Qautoused module Env has unique import() method/ );
 # Check that UNIVERSAL.pm doesn't interfere with modules that don't use
 # Exporter and have no import() of their own.
 require UNIVERSAL;
-autouse->import("Class::ISA" => 'self_and_super_versions');
-my %versions = self_and_super_versions("Class::ISA");
-ok( $versions{"Class::ISA"}, $Class::ISA::VERSION );
+require File::Spec;
+unshift @INC, File::Spec->catdir('t', 'lib'), 'lib';
+autouse->import("MyTestModule" => 'test_function');
+my $ret = test_function();
+ok( $ret, 'works' );
+
diff --git a/ext/autouse/t/lib/MyTestModule.pm b/ext/autouse/t/lib/MyTestModule.pm
new file mode 100644 (file)
index 0000000..f650a45
--- /dev/null
@@ -0,0 +1,8 @@
+package MyTestModule;
+use strict;
+
+sub test_function {
+  return 'works';
+}
+
+1;