/ 
Path-Extended-Tiny-0.08
River stage one • 1 direct dependent • 1 total dependent
/ t/30_directory/path.t 
unless ( $^O eq 'MSWin32' ) {
  SKIP: { skip 'native check is only for Win32', 1; fail };
  return;
}

ok $dir->absolute ne $dir->absolute( native => 1 ),
  'paths vary according to the native option';

ok $dir->absolute( native => 1 ) =~ /\\/,
  'native path does contain back slashes';
unless ( $^O eq 'MSWin32' ) {
  SKIP: { skip 'native check is only for Win32', 1; fail };
  return;
}

ok $dir->relative ne $dir->relative( native => 1 ),
  'paths vary according to the native option';

ok $dir->relative( native => 1 ) =~ /\\/,
  'native path does contain back slashes';

subtest 'default_directory' => sub { my $dir = dir(); ok $dir->absolute eq dir('.')->absolute, 'default directory is current directory'; };