Test for errors requiring .ph files.

diff --git a/t/op/require_errors.t b/t/op/require_errors.t
index f617e6a..1f243a6 100644 (file)
--- a/t/op/require_errors.t
+++ b/t/op/require_errors.t
@@ -7,7 +7,7 @@ BEGIN {
     require './test.pl';
 }
 
-plan(tests => 9);
+plan(tests => 11);
 
 my $nonfile = tempfile();
 
@@ -45,6 +45,15 @@ for my $file ("$nonfile.h", ".h") {
        "correct error message for require '$file'";
 }
 
+for my $file ("$nonfile.ph", ".ph") {
+    eval {
+       require $file
+    };
+
+    like $@, qr/^Can't locate \Q$file\E in \@INC \(did you run h2ph\?\) \(\@INC contains: @INC\) at/,
+       "correct error message for require '$file'";
+}
+
 eval 'require <foom>';
 like $@, qr/^<> should be quotes at /, 'require <> error';