Lines Matching refs:file
154 my $file = srctop_file($_);
155 my $file_abs = to_abs_file($file);
160 "-in", "ot:$file"])));
165 "-in", "${engine_scheme}ossltest:ot:$file"])));
186 my $file = srctop_file($_);
188 ok(!run(app([@storeutl, "-noout", $file])));
189 ok(!run(app([@storeutl, "-noout", to_abs_file($file)])));
194 to_abs_file_uri($file)])));
198 my $file = srctop_file($_);
200 ok(run(app([@storeutl, "-noout", $file])));
201 ok(run(app([@storeutl, "-noout", to_abs_file($file)])));
207 to_abs_file_uri($file)])));
209 to_abs_file_uri($file, 0, "")])));
211 to_abs_file_uri($file, 0, "localhost")])));
213 to_abs_file_uri($file, 0, "dummy")])));
217 my $file = data_file($_);
220 $file])));
222 to_abs_file($file)])));
564 my ($file, $isdir, $authority) = @_;
568 die "to_file_uri: No file given\n" if !defined($file) || $file eq '';
570 ($vol, $dir, $file) = File::Spec->splitpath($file, $isdir // 0);
602 $file = $dir . $file;
604 return "file://$authority$file" if defined $authority;
605 return "file:$file";
609 my ($file) = @_;
611 return File::Spec->rel2abs($file);
615 my ($file, $isdir, $authority) = @_;
617 die "to_abs_file_uri: No file given\n" if !defined($file) || $file eq '';
618 return to_file_uri(to_abs_file($file), $isdir, $authority);
