Lines Matching refs:file
144 my $file = srctop_file($_);
145 my $file_abs = to_abs_file($file);
150 "-in", "ot:$file"])));
155 "-in", "${engine_scheme}ossltest:ot:$file"])));
171 my $file = srctop_file($_);
173 ok(!run(app([@storeutl, "-noout", $file])));
174 ok(!run(app([@storeutl, "-noout", to_abs_file($file)])));
179 to_abs_file_uri($file)])));
183 my $file = srctop_file($_);
185 ok(run(app([@storeutl, "-noout", $file])));
186 ok(run(app([@storeutl, "-noout", to_abs_file($file)])));
192 to_abs_file_uri($file)])));
194 to_abs_file_uri($file, 0, "")])));
196 to_abs_file_uri($file, 0, "localhost")])));
198 to_abs_file_uri($file, 0, "dummy")])));
202 my $file = data_file($_);
205 $file])));
207 to_abs_file($file)])));
549 my ($file, $isdir, $authority) = @_;
553 die "to_file_uri: No file given\n" if !defined($file) || $file eq '';
555 ($vol, $dir, $file) = File::Spec->splitpath($file, $isdir // 0);
587 $file = $dir . $file;
589 return "file://$authority$file" if defined $authority;
590 return "file:$file";
594 my ($file) = @_;
596 return File::Spec->rel2abs($file);
600 my ($file, $isdir, $authority) = @_;
602 die "to_abs_file_uri: No file given\n" if !defined($file) || $file eq '';
603 return to_file_uri(to_abs_file($file), $isdir, $authority);