summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPaul Smith <psmith@gnu.org>1999-09-29 06:29:38 +0000
committerPaul Smith <psmith@gnu.org>1999-09-29 06:29:38 +0000
commitf26e413b12a8a3ec4681be7f74abf7dbb88ac20a (patch)
tree3ec685855f33e39e9f76b8f3a804c840379754b5
parentdbb8f3e30bade196ab6c56b0918cbb7706cf49a6 (diff)
downloadgunmake-f26e413b12a8a3ec4681be7f74abf7dbb88ac20a.tar.gz
* Fix for DOS short filenames.
-rw-r--r--tests/ChangeLog7
-rw-r--r--tests/test_driver.pl16
2 files changed, 15 insertions, 8 deletions
diff --git a/tests/ChangeLog b/tests/ChangeLog
index f8f6700..871cab9 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,10 @@
+1999-09-29 Paul D. Smith <psmith@gnu.org>
+
+ * test_driver.pl (get_osname): Change $fancy_file_names to
+ $short_filenames and reverse the logic.
+ (run_each_test): Change test of non-existent $port_host to use
+ $short_filenames--problem reported by Eli Zaretskii.
+
1999-09-23 Paul D. Smith <psmith@gnu.org>
* scripts/features/parallelism: Add a check to ensure that the
diff --git a/tests/test_driver.pl b/tests/test_driver.pl
index 8e38813..4fb738b 100644
--- a/tests/test_driver.pl
+++ b/tests/test_driver.pl
@@ -62,7 +62,7 @@ sub toplevel
$cwd = "."; # don't we wish we knew
$cwdslash = ""; # $cwd . $pathsep, but "" rather than "./"
- &get_osname; # sets $osname, $vos, $pathsep, and $fancy_file_names
+ &get_osname; # sets $osname, $vos, $pathsep, and $short_filenames
&set_defaults; # suite-defined
@@ -173,12 +173,12 @@ sub get_osname
# See if the filesystem supports long file names with multiple
# dots. DOS doesn't.
- $fancy_file_names = 1;
+ $short_filenames = 0;
(open (TOUCHFD, "> fancy.file.name") && close (TOUCHFD))
- || ($fancy_file_names = 0);
- unlink ("fancy.file.name") || ($fancy_file_names = 0);
+ || ($short_filenames = 1);
+ unlink ("fancy.file.name") || ($short_filenames = 1);
- if ($fancy_file_names) {
+ if (! $short_filenames) {
# Thanks go to meyering@cs.utexas.edu (Jim Meyering) for suggesting a
# better way of doing this. (We used to test for existence of a /mnt
# dir, but that apparently fails on an SGI Indigo (whatever that is).)
@@ -190,7 +190,7 @@ sub get_osname
chdir (".ostest") || &error ("Couldn't chdir to .ostest: $!\n", 1);
}
- if ($fancy_file_names && -f "ick")
+ if (! $short_filenames && -f "ick")
{
$osname = "vos";
$vos = 1;
@@ -219,7 +219,7 @@ sub get_osname
$pathsep = "/";
}
- if ($fancy_file_names) {
+ if (! $short_filenames) {
chdir ("..") || &error ("Couldn't chdir to ..: $!\n", 1);
unlink (".ostest>ick");
rmdir (".ostest") || &error ("Couldn't rmdir .ostest: $!\n", 1);
@@ -363,7 +363,7 @@ sub run_each_test
$testpath = "$workpath$pathsep$testname";
# Leave enough space in the extensions to append a number, even
# though it needs to fit into 8+3 limits.
- if ($port_host eq 'DOS') {
+ if ($short_filenames) {
$logext = 'l';
$diffext = 'd';
$baseext = 'b';