Lines Matching refs:open
23 ok( open(my $f,"+>afile"), 'open(my $f, "+>...")' );
43 ok( open(my $f,'>', 'afile'), "open(my \$f, '>', 'afile')" );
50 ok( open(my $f,'>>', 'afile'), "open(my \$f, '>>', 'afile')" );
57 ok( open(my $f, '<', 'afile'), "open(my \$f, '<', 'afile')" );
68 ok( open(my $f, '+<', 'afile'), 'open +<' );
80 skip "open -| busted and noisy on VMS", 3 if $Is_VMS;
82 ok( open(my $f, '-|', <<EOC), 'open -|' );
94 ok( open(my $f, '|-', <<EOC), 'open |-' );
112 ok( !eval { open my $f, '<&', 'afile'; 1; }, '<& on a non-filehandle' );
120 ok( open(local $f,"+>afile"), 'open local $f, "+>", ...' );
140 ok( open(local $f,'>', 'afile'), 'open local $f, ">", ...' );
147 ok( open(local $f,'>>', 'afile'), 'open local $f, ">>", ...' );
154 ok( open(local $f, '<', 'afile'), 'open local $f, "<", ...' );
163 ok( open(local $f, '+<', 'afile'), 'open local $f, "+<", ...' );
175 skip "open -| busted and noisy on VMS", 3 if $Is_VMS;
177 ok( open(local $f, '-|', <<EOC), 'open local $f, "-|", ...' );
189 ok( open(local $f, '|-', <<EOC), 'open local $f, "|-", ...' );
207 ok( !eval { open local $f, '<&', 'afile'; 1 }, 'local <& on non-filehandle');
213 ok( open(F, qq{$Perl -le "print 'ok'"|}), 'open to pipe' );
219 ok( open(F, "-|", qq{$Perl -le "print 'ok'"}), 'open -|');
228 ok( open(my $stdout, ">&", \*STDOUT), 'dup \*STDOUT into lexical fh');
229 ok( open(STDOUT, ">&", $stdout), 'restore dupped STDOUT from lexical fh');
233 ok( open(my $stdout, ">&", STDOUT), 'dup STDOUT into lexical fh');
236 # used to try to open a file [perl #17830]
237 ok( open(my $stdin, "<&", fileno STDIN), 'dup fileno(STDIN) into lexical fh');
249 ok(!open(F,'>',\my $s) && ${"!"}{EINVAL}, 'open(reference) raises EINVAL');
253 ok( !eval { open F, "BAR", "QUUX" }, 'Unknown open() mode' );
254 like( $@, qr/\QUnknown open() mode 'BAR'/, ' right error' );
267 open($fh0[0], "TEST");
271 open($fh1{k}, "TEST");
276 open($fh2[0], "TEST");
281 open($fh3{k}, "TEST");
292 eval { open(F, ">>>", "afile") };
294 "bad open (>>>) warning");
295 like($@, qr/Unknown open\(\) mode '>>>'/,
296 "bad open (>>>) failure");
298 eval { open(F, ">:u", "afile" ) };
301 eval { open(F, "<:u", "afile" ) };
304 eval { open(F, ":c", "afile" ) };
305 like($@, qr/Unknown open\(\) mode ':c'/,
309 # [perl #28986] "open m" crashes Perl
311 fresh_perl_like('open m', qr/^Search pattern not terminated at/,
312 { stderr => 1 }, 'open m test');
315 'sub f { open(my $fh, "xxx"); $fh = "f"; } f; f;print "ok"',