diff options
| -rwxr-xr-x | tests/config_flags_pm.com (renamed from config_flags_pm.com) | 4 | ||||
| -rwxr-xr-x | tests/run_make_tests.com (renamed from test_make.com) | 11 |
2 files changed, 8 insertions, 7 deletions
diff --git a/config_flags_pm.com b/tests/config_flags_pm.com index 75e0da9..3f5adff 100755 --- a/config_flags_pm.com +++ b/tests/config_flags_pm.com @@ -20,9 +20,9 @@ $! You should have received a copy of the GNU General Public License along with $! 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 index 257e863..2f17f7f 100755 --- a/test_make.com +++ b/tests/run_make_tests.com @@ -201,7 +201,7 @@ $ if help_flag .nes. "" $ 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 @@ $ if no_gnv .or. no_perl then exit 44 $! $! $ 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 |