From 32437794fef2d739a4d82e656019df05ad94621e Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Wed, 2 May 2012 20:37:12 -0700 Subject: [PATCH] require_errors.t: Test <> error --- t/op/require_errors.t | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/t/op/require_errors.t b/t/op/require_errors.t index 0b32c0c..8f5a26c 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 '; +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?) -- 2.7.4