From 5ee856d96d02275ccb19b19afd60c1e241bc62eb Mon Sep 17 00:00:00 2001 From: Paul Smith Date: Wed, 31 Aug 2005 13:38:17 +0000 Subject: Try using POSIX::getcwd to find the working directory wherever it exists. This should help the tests run more accurately on Windows (hopefully...) --- tests/ChangeLog | 8 ++++++++ tests/run_make_tests.pl | 15 +++++++++------ 2 files changed, 17 insertions(+), 6 deletions(-) (limited to 'tests') diff --git a/tests/ChangeLog b/tests/ChangeLog index 5e1f948..594361f 100644 --- a/tests/ChangeLog +++ b/tests/ChangeLog @@ -1,3 +1,11 @@ +2005-08-31 Paul D. Smith + + * run_make_tests.pl (get_this_pwd): Require the POSIX module (in + an eval to trap errors) and if it exists, use POSIX::getcwd to + find the working directory. If it doesn't exist, go back to the + previous methods. This tries to be more accurate on Windows + systems. + 2005-08-29 Paul D. Smith * scripts/functions/abspath: Add some text to the error messages diff --git a/tests/run_make_tests.pl b/tests/run_make_tests.pl index ca711b2..66be520 100755 --- a/tests/run_make_tests.pl +++ b/tests/run_make_tests.pl @@ -16,6 +16,9 @@ $pure_log = undef; require "test_driver.pl"; +# Some target systems might not have the POSIX module... +$has_POSIX = eval { require "POSIX.pm" }; + #$SIG{INT} = sub { print STDERR "Caught a signal!\n"; die @_; }; sub valid_option @@ -180,12 +183,14 @@ sub print_help } sub get_this_pwd { - if ($vos) { + $delete_command = "rm"; + if ($has_POSIX) { + $__pwd = POSIX::getcwd(); + } elsif ($vos) { $delete_command = "delete_file"; $__pwd = `++(current_dir)`; - } - else { - $delete_command = "rm"; + } else { + # No idea... just try using pwd as a last resort. chop ($__pwd = `pwd`); } @@ -303,8 +308,6 @@ sub set_more_defaults # Set up for valgrind, if requested. if ($valgrind) { -# use POSIX qw(:fcntl_h); -# require Fcntl; open(VALGRIND, "> valgrind.out") || die "Cannot open valgrind.out: $!\n"; # -q --leak-check=yes -- cgit v1.2.3