]> git.draconx.ca Git - cdecl99.git/blobdiff - testsuite.at
Release 1.3.
[cdecl99.git] / testsuite.at
index bad16f14a75d51c5346469e1d7ea9ac60bde68a6..f47ad86d640e860a904eb50641aef1982c5cf99e 100644 (file)
@@ -1,4 +1,4 @@
-AT_COPYRIGHT([Copyright © 2020-2021, 2023 Nick Bowler])
+AT_COPYRIGHT([Copyright (C) 2020-2021, 2023-2024 Nick Bowler])
 #
 # This program is free software: you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -13,17 +13,25 @@ AT_COPYRIGHT([Copyright © 2020-2021, 2023 Nick Bowler])
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <https://www.gnu.org/licenses/>.
 
+m4_include([common/snippet/at-compat.at])
+m4_include([common/snippet/test-tap.at])
+
 AT_INIT
 AT_COLOR_TESTS
 
-m4_include([common/snippet/test-tap.at])
-
-AT_TESTED([cdecl99])
+m4_divert_push([PREPARE_TESTS])dnl
+{
+  echo "% cdecl99 --version"
+  cdecl99 --version </dev/null
+  echo
+} >&AS_MESSAGE_LOG_FD 2>&1
+m4_divert_pop([PREPARE_TESTS])
 
 AT_ARG_OPTION_ARG([random-seed],
   [AS_HELP_STRING([--random-seed=ARG],
     [Integer seed for randomized testing (default: auto)])],
-  [random_seed=$at_optarg], [random_seed=$RANDOM$$])
+  [random_seed=$at_optarg],
+  [random_seed=`echo $RANDOM$$ | sed 's/\(........\).*/\1/'`])#'
 
 AT_ARG_OPTION_ARG([random-iterations],
   [AS_HELP_STRING([--random-iterations=N],
@@ -45,7 +53,7 @@ m4_divert_pop([PREPARE_TESTS])
 
 m4_define([TEST_NEED_PROGRAM], [AT_KEYWORDS([$1])dnl
 AT_CHECK([for arg in $check_PROGRAMS; do
-test x"${arg##*/}" != x"$1$EXEEXT" || exit 0
+progexe="$1$EXEEXT"; case $arg in "$progexe"|*/"$progexe") exit 0 ;; esac
 done
 exit 77])])