/openbsd/gnu/usr.bin/perl/cpan/autodie/t/ |
H A D | autodie.t | 12 eval { open(my $fh, '<', NO_SUCH_FILE); }; 17 eval { open(my $fh, '<', NO_SUCH_FILE); }; 21 eval { open(my $fh, '<', NO_SUCH_FILE); }; 25 eval { open(my $fh, '<', NO_SUCH_FILE); }; 32 eval { open(my $fh, '<', NO_SUCH_FILE); }; 37 eval { open(my $fh, '<', NO_SUCH_FILE); }; 42 open(my $fh, '<', NO_SUCH_FILE); 47 eval { open(my $fh, '<', NO_SUCH_FILE); }; 53 eval { open(my $fh, '<', NO_SUCH_FILE); }; 58 eval { open(my $fh, '<', NO_SUCH_FILE); }; [all …]
|
H A D | scope_leak.t | 12 use constant NO_SUCH_FILE => 'this_file_had_better_not_exist'; constant 16 eval { open(my $fh, '<', NO_SUCH_FILE); }; 19 eval { rename(NO_SUCH_FILE, NO_SUCH_FILE2); }; 28 eval { leak_test(NO_SUCH_FILE); }; 31 eval { autodie_test_module::your_open(NO_SUCH_FILE); }; 38 eval { leak_test_rename(NO_SUCH_FILE, NO_SUCH_FILE2); }; 41 eval { autodie_test_module::your_rename(NO_SUCH_FILE, NO_SUCH_FILE2); }; 45 eval { autodie_test_module::your_dying_rename(NO_SUCH_FILE, NO_SUCH_FILE2); }; 72 open(my $fh, '<', NO_SUCH_FILE);
|
H A D | version_tag.t | 5 use constant NO_SUCH_FILE => 'THIS_FILE_HAD_BETTER_NOT_EXIST'; constant 40 chmod(0644,NO_SUCH_FILE); 48 chmod(0644,NO_SUCH_FILE); 59 chown(12345, 12345, NO_SUCH_FILE); 71 chown(12345, 12345, NO_SUCH_FILE); 81 eval { utime undef, undef, NO_SUCH_FILE; }; 89 utime undef, undef, NO_SUCH_FILE; 97 utime undef, undef, NO_SUCH_FILE;
|
H A D | open.t | 6 use constant NO_SUCH_FILE => "this_file_had_better_not_exist"; constant 10 eval { open(my $fh, '<', NO_SUCH_FILE); }; 14 eval { open(my $fh, "< ".NO_SUCH_FILE) }; 26 open(my $fh, NO_SUCH_FILE); 44 open( NO_SUCH_FILE . "" ); 92 open(my $fh, '<:utf8', NO_SUCH_FILE);
|
H A D | internal.t | 6 use constant NO_SUCH_FILE => "this_file_or_dir_had_better_not_exist_XYZZY"; constant 41 eval { chdir(NO_SUCH_FILE); }; 46 eval { chdir(NO_SUCH_FILE); }; 50 eval { chdir(NO_SUCH_FILE); }; 55 eval { chdir(NO_SUCH_FILE); };
|
H A D | chmod.t | 4 use constant NO_SUCH_FILE => "this_file_had_better_not_exist"; constant 12 eval { chmod(0755, NO_SUCH_FILE); }; 16 eval { chmod(8, NO_SUCH_FILE); }; 25 eval { chmod(0755, $filename, NO_SUCH_FILE) };
|
H A D | Fatal.t | 4 use constant NO_SUCH_FILE => "this_file_or_dir_had_better_not_exist_XYZZY"; constant 10 eval { open FOO, "<".NO_SUCH_FILE }; # Two arg open 26 eval { opendir FOO, NO_SUCH_FILE }; 29 eval { my $a = opendir FOO, NO_SUCH_FILE };
|
H A D | user-context.t | 6 use constant NO_SUCH_FILE => 'this_file_had_better_not_exist'; constant 15 copy(NO_SUCH_FILE, 'xyzzy'); 22 my $x = copy(NO_SUCH_FILE, 'xyzzy'); 29 my @x = copy(NO_SUCH_FILE, 'xyzzy');
|
H A D | exception_class.t | 9 use constant NO_SUCH_FILE => "this_file_had_better_not_exist_xyzzy"; constant 15 open(my $fh, '<', NO_SUCH_FILE); 31 open(my $fh, '<', NO_SUCH_FILE); 47 open(my $fh, '<', NO_SUCH_FILE);
|
H A D | basic_exceptions.t | 6 use constant NO_SUCH_FILE => "this_file_had_better_not_exist"; constant 12 $line = __LINE__; open(my $fh, '<', NO_SUCH_FILE); 28 is($@->args->[2], NO_SUCH_FILE, 'Correct filename arg'); 40 $line2 = __LINE__; open(my $fh, '<', NO_SUCH_FILE);
|
H A D | repeat.t | 4 use constant NO_SUCH_FILE => "this_file_had_better_not_exist"; constant 8 open(my $fh, '<', NO_SUCH_FILE); 15 open(my $fh, '<', NO_SUCH_FILE);
|
H A D | chown.t | 4 use constant NO_SUCH_FILE => "this_file_had_better_not_exist"; 15 chown(1234, 1234, NO_SUCH_FILE); 29 eval { chown($<, -1, $filename, NO_SUCH_FILE); };
|
H A D | utime.t | 4 use constant NO_SUCH_FILE => "this_file_had_better_not_exist"; 12 eval { utime(undef, undef, NO_SUCH_FILE); }; 20 eval { utime(undef, undef, NO_SUCH_FILE, $filename); };
|
H A D | hints.t | 13 use constant NO_SUCH_FILE => "this_file_had_better_not_exist"; constant 67 my $scalar_context = copy(NO_SUCH_FILE, NO_SUCH_FILE2); 89 my @list_context = copy(NO_SUCH_FILE, NO_SUCH_FILE2);
|
H A D | backcompat.t | 5 use constant NO_SUCH_FILE => "xyzzy_this_file_is_not_here"; constant 8 open(my $fh, '<', NO_SUCH_FILE);
|
H A D | eval_error.t | 7 use constant NO_SUCH_FILE => 'this_file_had_better_not_exist'; 16 open(my $fh, '<', NO_SUCH_FILE);
|
H A D | sysopen.t | 8 use constant NO_SUCH_FILE => "this_file_had_better_not_be_here_at_all"; constant 20 sysopen(my $fh2, NO_SUCH_FILE, O_RDONLY);
|
H A D | lethal.t | 8 use constant NO_SUCH_FILE => "this_file_had_better_not_exist"; constant 11 open(my $fh, '<', NO_SUCH_FILE);
|
H A D | crickey.t | 8 use constant NO_SUCH_FILE => "crickey_mate_this_file_isnt_here_either"; constant 13 open(my $fh, '<', NO_SUCH_FILE);
|
H A D | caller.t | 10 use constant NO_SUCH_FILE => "kiwifoo_is_so_much_fun"; constant 22 open(my $fh, '<', NO_SUCH_FILE);
|
H A D | exceptions-smartmatch.t | 13 use constant NO_SUCH_FILE => 'this_file_had_better_not_exist_xyzzy'; 20 open(my $fh, '<', NO_SUCH_FILE);
|
H A D | unlink.t | 6 use constant NO_SUCH_FILE => 'this_file_had_better_not_be_here_at_all'; constant 56 unlink TMPFILE, NO_SUCH_FILE;
|
H A D | string-eval-basic.t | 6 use constant NO_SUCH_FILE => 'this_file_had_better_not_exist'; constant
|
/openbsd/gnu/usr.bin/perl/lib/File/ |
H A D | Copy.t | 442 my $NO_SUCH_FILE = "this_file_had_better_not_exist"; 456 skip( "Test can't run with $NO_SUCH_FILE existing", 2 * keys %subs) 457 if (-e $NO_SUCH_FILE); 463 my $scalar = $sub->( $NO_SUCH_FILE, $NO_SUCH_OTHER_FILE ); 466 my @array = $sub->( $NO_SUCH_FILE, $NO_SUCH_OTHER_FILE );
|