perl-Test-File-foreign-tests.patch

   1 --- Test-File-1.443/t/normalize.t.orig  2017-04-17 10:42:41.000000000 +0200
   2 +++ Test-File-1.443/t/normalize.t       2018-10-03 05:40:31.560451925 +0200
   3 @@ -17,30 +17,6 @@
   4         is( $normalized, $file, "Normalize gives same path for unix" );
   5         };
   6
   7 -subtest file_spec_win32 => sub {
   8 -       my $module = 'File::Spec::Win32';
   9 -       use_ok( $module );
  10 -       local @File::Spec::ISA = ( $module );
  11 -
  12 -       my $file       = '/foo/bar/baz';
  13 -       my $normalized = Test::File::_normalize( $file );
  14 -
  15 -       isnt( $normalized, $file, "Normalize gives different path for Win32" );
  16 -       is(   $normalized, '\foo\bar\baz', "Normalize gives right path for Win32" );
  17 -       };
  18 -
  19 -subtest file_spec_mac => sub {
  20 -       my $module = 'File::Spec::Mac';
  21 -       use_ok( $module );
  22 -       local @File::Spec::ISA = ( $module );
  23 -
  24 -       my $file       = '/foo/bar/baz';
  25 -       my $normalized = Test::File::_normalize( $file );
  26 -
  27 -       isnt( $normalized, $file, "Normalize gives different path for Mac" );
  28 -       is( $normalized, 'foo:bar:baz', "Normalize gives right path for Mac" );
  29 -       };
  30 -
  31  # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
  32  # Try it when it shouldn't work
  33  subtest normalize_undef => sub {