* config_flags_pm.com, [RENAMED test_make.com] run_make_tests.com:
Moved into tests directory.
diff --git a/config_flags_pm.com b/tests/config_flags_pm.com
similarity index 94%
rename from config_flags_pm.com
rename to tests/config_flags_pm.com
index 75e0da9..3f5adff 100755
--- a/config_flags_pm.com
+++ b/tests/config_flags_pm.com
@@ -20,9 +20,9 @@
$! this program. If not, see <http://www.gnu.org/licenses/>.
$!
$!
-$ open/read cfpm_in [.tests]config-flags.pm.in
+$ open/read cfpm_in config-flags.pm.in
$!
-$ outfile = "sys$disk:[.tests]config-flags.pm"
+$ outfile = "sys$disk:[]config-flags.pm"
$!
$ cflags = "/include=([],[.glob]"
$!
diff --git a/test_make.com b/tests/run_make_tests.com
similarity index 96%
rename from test_make.com
rename to tests/run_make_tests.com
index 257e863..2f17f7f 100755
--- a/test_make.com
+++ b/tests/run_make_tests.com
@@ -201,7 +201,7 @@
$ then
$ type sys$input
$DECK
-This is a test script wrapper for the [.tests]run_make_tests.pl script.
+This is a test script wrapper for the run_make_tests.pl script.
This wrapper makes sure that the DCL symbols and logical names needed to
run the perl script are in place.
@@ -239,15 +239,16 @@
$!
$!
$ make := $bin:make.exe
+$ default = f$environment("DEFAULT")
+$ this = f$environment("PROCEDURE")
+$ on error then goto all_error
+$ set default 'f$parse(this,,,"DEVICE")''f$parse(this,,,"DIRECTORY")'
$!
$! Need to make sure that the config-flags.pm exists.
-$ if f$search("[.tests]config-flags.pm") .eqs. ""
+$ if f$search("config-flags.pm") .eqs. ""
$ then
$ @config_flags_pm.com
$ endif
-$ default = f$environment("DEFAULT")
-$ on error then goto all_error
-$ set def [.tests]
$ define/user bin 'default',gnv$gnu:[bin]
$ define/user decc$filename_unix_noversion enable
$ define/user decc$filename_unix_report enable
