Changeset 1937 for trunk/src/kmk/tests/test_driver.pl

Timestamp:

Oct 26, 2008, 1:33:24 AM (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+.

File:

• trunk/src/kmk/tests/test_driver.pl (modified) (2 diffs)

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);
 }