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

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

ok $file->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 $file->relative ne $file->relative( native => 1 ), 'paths vary according to the native option';

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