Module-Runtime-0.014HEADModule-Runtime-0.014master

1 files changed, 111 insertions, 0 deletions

diff --git a/t/um.t b/t/um.t
new file mode 100644
index 0000000..a4c225a
--- /dev/null
+++ b/t/um.t
@@ -0,0 +1,111 @@
+use warnings;
+use strict;
+
+use Test::More tests => 37;
+
+BEGIN { use_ok "Module::Runtime", qw(use_module); }
+
+my $result;
+
+# a module that doesn't exist
+$result = eval { use_module("t::NotExist") };
+like($@, qr/^Can't locate /);
+
+# a module that's already loaded
+$result = eval { use_module("Test::More") };
+is($@, "");
+is($result, "Test::More");
+
+# a module that we'll load now
+$result = eval { use_module("t::Simple") };
+is($@, "");
+is($result, "t::Simple");
+
+# re-requiring the module that we just loaded
+$result = eval { use_module("t::Simple") };
+is($@, "");
+is($result, "t::Simple");
+
+# module file scope sees scalar context regardless of calling context
+$result = eval { use_module("t::Context"); 1 };
+is $@, "";
+
+# lexical hints don't leak through
+my $have_runtime_hint_hash = "$]" >= 5.009004;
+sub test_runtime_hint_hash($$) {
+	SKIP: {
+		skip "no runtime hint hash", 1 unless $have_runtime_hint_hash;
+		is +((caller(0))[10] || {})->{$_[0]}, $_[1];
+	}
+}
+SKIP: {
+	skip "core bug makes this test crash", 13
+		if "$]" >= 5.008 && "$]" < 5.008004;
+	skip "can't work around hint leakage in pure Perl", 13
+		if "$]" >= 5.009004 && "$]" < 5.010001;
+	$^H |= 0x20000 if "$]" < 5.009004;
+	$^H{"Module::Runtime/test_a"} = 1;
+	is $^H{"Module::Runtime/test_a"}, 1;
+	is $^H{"Module::Runtime/test_b"}, undef;
+	use_module("t::Hints");
+	is $^H{"Module::Runtime/test_a"}, 1;
+	is $^H{"Module::Runtime/test_b"}, undef;
+	t::Hints->import;
+	is $^H{"Module::Runtime/test_a"}, 1;
+	is $^H{"Module::Runtime/test_b"}, 1;
+	eval q{
+		BEGIN { $^H |= 0x20000; $^H{foo} = 1; }
+		BEGIN { is $^H{foo}, 1; }
+		main::test_runtime_hint_hash("foo", 1);
+		BEGIN { use_module("Math::BigInt"); }
+		BEGIN { is $^H{foo}, 1; }
+		main::test_runtime_hint_hash("foo", 1);
+		1;
+	}; die $@ unless $@ eq "";
+}
+
+# broken module is visibly broken when re-required
+eval { use_module("t::Break") };
+like $@, qr/\A(?:broken |Attempt to reload )/;
+eval { use_module("t::Break") };
+like $@, qr/\A(?:broken |Attempt to reload )/;
+
+# no extra eval frame
+SKIP: {
+	skip "core bug makes this test crash", 2 if "$]" < 5.006001;
+	sub eval_test () { use_module("t::Eval") }
+	eval_test();
+}
+
+# successful version check
+$result = eval { use_module("Module::Runtime", 0.001) };
+is($@, "");
+is($result, "Module::Runtime");
+
+# failing version check
+$result = eval { use_module("Module::Runtime", 999) };
+like($@, qr/^Module::Runtime version /);
+
+# make sure any version argument gets passed through
+my @version_calls;
+sub t::HasVersion::VERSION {
+	push @version_calls, [@_];
+}
+$INC{"t/HasVersion.pm"} = 1;
+eval { use_module("t::HasVersion") };
+is $@, "";
+is_deeply \@version_calls, [];
+@version_calls = ();
+eval { use_module("t::HasVersion", 2) };
+is $@, "";
+is_deeply \@version_calls, [["t::HasVersion",2]];
+@version_calls = ();
+eval { use_module("t::HasVersion", "wibble") };
+is $@, "";
+is_deeply \@version_calls, [["t::HasVersion","wibble"]];
+@version_calls = ();
+eval { use_module("t::HasVersion", undef) };
+is $@, "";
+is_deeply \@version_calls, [["t::HasVersion",undef]];
+
+1;