diff options
-rw-r--r-- | t/op/require_errors.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/op/require_errors.t b/t/op/require_errors.t index 0b32c0c841..8f5a26c478 100644 --- a/t/op/require_errors.t +++ b/t/op/require_errors.t @@ -7,7 +7,7 @@ BEGIN { require './test.pl'; } -plan(tests => 3); +plan(tests => 4); my $nonfile = tempfile(); @@ -31,6 +31,9 @@ eval { like $@, qr/^Can't locate $nonfile\.h in \@INC \(change \.h to \.ph maybe\?\) \(did you run h2ph\?\) \(\@INC contains: @INC\) at/; +eval 'require <foom>'; +like $@, qr/^<> should be quotes at /, 'require <> error'; + # I can't see how to test the EMFILE case # I can't see how to test the case of not displaying @INC in the message. # (and does that only happen on VMS?) |