* config_flags_pm.com, [RENAMED test_make.com] run_make_tests.com: moved into tests directory. --- tests/config_flags_pm.com | 4 ++-- tests/run_make_tests.com | 11 ++++++----- 2 files changed, 8 insertions(+), 7 deletions(-)
>From a946af05553b6d1eba2408e2e88740fe6da72cda Mon Sep 17 00:00:00 2001 From: Hartmut Becker <becker.isman...@freenet.de> Date: Mon, 18 Aug 2014 23:39:44 +0200 Subject: [PATCH] Rename/move the VMS test driver/helper.
* config_flags_pm.com, [RENAMED test_make.com] run_make_tests.com: moved into tests directory. --- tests/config_flags_pm.com | 4 ++-- tests/run_make_tests.com | 11 ++++++----- 2 files changed, 8 insertions(+), 7 deletions(-) diff --git a/tests/config_flags_pm.com b/tests/config_flags_pm.com index 75e0da9..3f5adff 100755 --- a/tests/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/tests/run_make_tests.com b/tests/run_make_tests.com index 257e863..2f17f7f 100755 --- a/tests/run_make_tests.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 -- 1.7.10.4
_______________________________________________ Bug-make mailing list Bug-make@gnu.org https://lists.gnu.org/mailman/listinfo/bug-make
