Fix failure in Archive::Tar tests when perl is built
Rafael Garcia-Suarez [Sat, 27 Aug 2005 16:28:27 +0000 (16:28 +0000)]
with -Dmksymlinks

p4raw-id: //depot/perl@25333

lib/Archive/Tar/t/02_methods.t

index 9f9d667..9bb97be 100644 (file)
@@ -220,7 +220,13 @@ chmod 0644, $COMPRESS_FILE;
         is( scalar @files, scalar @add,
                                     "Adding files");
         is( $files[0]->name, 'b',   "   Proper name" );
-        is( $files[0]->is_file, 1,  "   Proper type" );
+       use Config;
+       if ($ENV{PERL_CORE} and $Config{config_args} =~/Dmksymlinks/) {
+           ok( !$files[0]->is_file,  "   Proper type" );
+       }
+       else {
+           is( $files[0]->is_file, 1,  "   Proper type" );
+       }
         like( $files[0]->get_content, qr/^bbbbbbbbbbb\s*$/,
                                     "   Content OK" );