[perl5.git] / t / lib / autodie / open.t

#!/usr/bin/perl -w
use strict;

use Test::More 'no_plan';

use constant NO_SUCH_FILE => "this_file_had_better_not_exist";

use autodie;

eval { open(my $fh, '<', NO_SUCH_FILE); };
ok($@, "3-arg opening non-existent file fails");
like($@, qr/for reading/, "Well-formatted 3-arg open failure");

eval { open(my $fh, "< ".NO_SUCH_FILE) };
ok($@, "2-arg opening non-existent file fails");

like($@, qr/for reading/, "Well-formatted 2-arg open failure");
unlike($@, qr/GLOB\(0x/, "No ugly globs in 2-arg open messsage");
Commit	Line	Data
0b09a93a PF	1	#!/usr/bin/perl -w
	2	use strict;
	3
	4	use Test::More 'no_plan';
	5
	6	use constant NO_SUCH_FILE => "this_file_had_better_not_exist";
	7
	8	use autodie;
	9
	10	eval { open(my $fh, '<', NO_SUCH_FILE); };
	11	ok($@, "3-arg opening non-existent file fails");
	12	like($@, qr/for reading/, "Well-formatted 3-arg open failure");
	13
	14	eval { open(my $fh, "< ".NO_SUCH_FILE) };
	15	ok($@, "2-arg opening non-existent file fails");
	16
	17	like($@, qr/for reading/, "Well-formatted 2-arg open failure");
	18	unlike($@, qr/GLOB\(0x/, "No ugly globs in 2-arg open messsage");