Merge pull request #264 from chuckadams/issue/263

relaxed test for "Module doesnt exist" in t/require.t
evalEmpire · Jun 11, 2013 · faf4925 · faf4925
2 parents a0baba1 + c11277a
commit faf4925
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/t/require.t b/t/require.t
@@ -23,13 +23,14 @@ note "Module doesn't exist"; {
     local $!;
     local @INC = qw(no thing);
     ok !eval { "I::Sure::Dont::Exist"->require; };
-    is $@,
-      sprintf(qq[Can't locate %s in \@INC (\@INC contains: %s) at %s line %d.\n],
-              "I/Sure/Dont/Exist.pm", "no thing", __FILE__, __LINE__-3);
+    my $pat = q[^Can't locate I/Sure/Dont/Exist\.pm in \@INC];
+    $pat .= q[(?: \(you may need to install the I::Sure::Dont::Exist module\))?]; 
+    $pat .= sprintf(' \(@INC contains: no thing\) at %s line %d\.$',
+                    __FILE__, __LINE__-4);
+    like $@, qr/$pat/;
     ok !$!, "errno didn't leak out";
 }
 
-
 note "Invalid module name"; {
     ok !eval { "/tmp::LOL::PWNED"->require };
     like $@, qr{^'/tmp::LOL::PWNED' is not a valid module name };