diff options
| author | Paul Smith <psmith@gnu.org> | 2013-05-17 02:29:46 -0400 |
|---|---|---|
| committer | Paul Smith <psmith@gnu.org> | 2013-05-17 02:29:46 -0400 |
| commit | 96cf67bd29957cfde6c5f15cfec7e370c6dbabe2 (patch) | |
| tree | d59d8a6fd1a43f4e985654466a9bd7bd5df8cf46 /tests | |
| parent | 5370238316ee4284fe058a9c298a5734d2686678 (diff) | |
| download | gunmake-96cf67bd29957cfde6c5f15cfec7e370c6dbabe2.tar.gz | |
Update source file format: remove TABs, use GNU coding styles.
Diffstat (limited to 'tests')
| -rw-r--r--[-rwxr-xr-x] | tests/run_make_tests.pl | 0 | ||||
| -rw-r--r-- | tests/test_driver.pl | 16 |
2 files changed, 8 insertions, 8 deletions
diff --git a/tests/run_make_tests.pl b/tests/run_make_tests.pl index cb8e1bd..cb8e1bd 100755..100644 --- a/tests/run_make_tests.pl +++ b/tests/run_make_tests.pl diff --git a/tests/test_driver.pl b/tests/test_driver.pl index b6dcd86..adc38ae 100644 --- a/tests/test_driver.pl +++ b/tests/test_driver.pl @@ -165,7 +165,7 @@ sub toplevel $dir = $1; push (@rmdirs, $dir); -d "$workpath/$dir" - || mkdir ("$workpath/$dir", 0777) + || mkdir ("$workpath/$dir", 0777) || &error ("Couldn't mkdir $workpath/$dir: $!\n"); } } @@ -174,7 +174,7 @@ sub toplevel { print "Finding tests...\n"; opendir (SCRIPTDIR, $scriptpath) - || &error ("Couldn't opendir $scriptpath: $!\n"); + || &error ("Couldn't opendir $scriptpath: $!\n"); @dirs = grep (!/^(\..*|CVS|RCS)$/, readdir (SCRIPTDIR) ); closedir (SCRIPTDIR); foreach $dir (@dirs) @@ -184,13 +184,13 @@ sub toplevel mkdir ("$workpath/$dir", 0777) || &error ("Couldn't mkdir $workpath/$dir: $!\n"); opendir (SCRIPTDIR, "$scriptpath/$dir") - || &error ("Couldn't opendir $scriptpath/$dir: $!\n"); + || &error ("Couldn't opendir $scriptpath/$dir: $!\n"); @files = grep (!/^(\..*|CVS|RCS|.*~)$/, readdir (SCRIPTDIR) ); closedir (SCRIPTDIR); foreach $test (@files) { -d $test and next; - push (@TESTS, "$dir/$test"); + push (@TESTS, "$dir/$test"); } } } @@ -275,15 +275,15 @@ sub get_osname eval "chop (\$osname = `sh -c 'uname -nmsr 2>&1'`)"; if ($osname =~ /not found/i) { - $osname = "(something posixy with no uname)"; + $osname = "(something posixy with no uname)"; } elsif ($@ ne "" || $?) { eval "chop (\$osname = `sh -c 'uname -a 2>&1'`)"; if ($@ ne "" || $?) { - $osname = "(something posixy)"; - } + $osname = "(something posixy)"; + } } $vos = 0; $pathsep = "/"; @@ -941,7 +941,7 @@ sub touch foreach $file (@_) { (open(T, ">> $file") && print(T "\n") && close(T)) - || &error("Couldn't touch $file: $!\n", 1); + || &error("Couldn't touch $file: $!\n", 1); } } |