1use Test2::V0;
2use File::Spec;
3# HARNESS-NO-FORK
4# HARNESS-DURATION-SHORT
5
6my $path = File::Spec->canonpath('t2/relative_paths_no_fork.t');
7
8skip_all "This test must be run from the project root."
9    unless -f $path;
10
11is(__FILE__, $path, "__FILE__ is relative");
12is(__FILE__, $0, "\$0 is relative");
13
14sub {
15    my ($pkg, $file) = caller(0);
16    is($file, $path, "file in caller is relative");
17}->();
18
19done_testing;
20