Changeset 2606

Timestamp:

Mar 10, 2006, 1:36:34 AM (19 years ago)

Author:

bird

Message:

added binmode checks for input/expected/output.

File:

• trunk/coreutils/tests/mk-script (modified) (1 diff)

trunk/coreutils/tests/mk-script

@@ -137 +137 @@
       push (@maint_gen_file, $maint_gen_file);
       open (F, ">$srcdir/$maint_gen_file") || die "$0: $maint_gen_file: $!\n";
-      if (defined $Test::binmode_tests{$test_name}) {
-          binmode F;
-      }
+      if (defined $Test::binmode_tests{$test_name}) 
+        {
+          my $TYPE = uc $type;
+          $TYPE = 'INPUT_BINARY' if ($TYPE eq ".I");
+          $TYPE = 'OUTPUT_BINARY' if ($TYPE eq ".O");
+          $TYPE = 'EXPECT_BINARY' if ($TYPE eq ".X");
+          binmode F if ($Test::binmode_tests{$test_name}{ALL_BINARY} 
+                        or $Test::binmode_tests{$test_name}{$TYPE});
+        }
       print F $file_contents;
       close (F) || die "$0: $maint_gen_file: $!\n";