Changeset 1937 in kBuild for trunk/src

Timestamp:

Oct 25, 2008 11:33:24 PM (17 years ago)

Author:

bird

Message:

GNU Make tests: added check for case insensitive file system, fixed default_names so it'll for on HFS+.

Location:

trunk/src/kmk/tests

Files:

• run_make_tests.pl (modified) (1 diff)
• scripts/features/default_names (modified) (2 diffs)
• test_driver.pl (modified) (2 diffs)

trunk/src/kmk/tests/run_make_tests.pl

@@ -264 +264 @@
    print "Port type: $port_type\n" if $debug;
    print "Make path: $make_path\n" if $debug;
+   print "fs type  : case insensitive\n" if $debug && $case_insensitive_fs;
 
    # Find the full pathname of Make.  For DOS systems this is more

trunk/src/kmk/tests/scripts/features/default_names

@@ -13 +13 @@
 # DOS/WIN32 platforms preserve case, but Makefile is the same file as makefile.
 # Just test what we can here (avoid Makefile versus makefile test).
+# bird: made this generic, darwin is also defaulting to case insensitive fs.
 
-if ($port_type eq 'UNIX') {
+if ($port_type eq 'UNIX' && !$case_insensitive_fs) {
   # Create another makefile called "makefile"
   open(MAKEFILE,"> makefile");
@@ -31 +32 @@
 unlink $makefile;
 
-if ($port_type eq 'UNIX') {
+if ($port_type eq 'UNIX' && !$case_insensitive_fs) {
   &run_make_with_options("","",&get_logfile);
   &compare_output("It chose makefile\n",&get_logfile(1));

trunk/src/kmk/tests/test_driver.pl

@@ -118 +118 @@
   $cwdslash = "";             # $cwd . $pathsep, but "" rather than "./"
 
-  &get_osname;  # sets $osname, $vos, $pathsep, and $short_filenames
+  &get_osname;  # sets $osname, $vos, $pathsep, $short_filenames,
+                # and $case_insensitive_fs
 
   &set_defaults;  # suite-defined
@@ -287 +288 @@
     rmdir (".ostest") || &error ("Couldn't rmdir .ostest: $!\n", 1);
   }
+
+  # Check for case insensitive file system (bird)
+  # The deal is that the 2nd unlink will fail because the first one
+  # will already have removed the file if the fs ignore case.
+  $case_insensitive_fs = 0;
+  my $testfile1 = $short_filenames ? "CaseFs.rmt" : "CaseInSensitiveFs.check";
+  my $testfile2 = $short_filenames ? "casEfS.rmt" : "casEiNsensitivEfS.Check";
+  (open (TOUCHFD, "> $testfile1") &&  close (TOUCHFD))
+    || &error ("Couldn't create $testfile1: $!\n", 1);
+  (open (TOUCHFD, "> $testfile2") &&  close (TOUCHFD))
+    || &error ("Couldn't create $testfile2: $!\n", 1);
+  unlink ($testfile1) || &error ("Couldn't unlink $testfile1: $!\n", 1);
+  unlink ($testfile2) || ($case_insensitive_fs = 1);
 }