09-testing....patch

[Akim Demaille]

[Resent, it appears to have been lost]

Index: 0.475/ChangeLog
from  Akim Demaille  <address@hidden>
        
        * tests/atgeneral.m4 (AT_CHECK, AT_CLEANUP): Be more verbose when
        `-v' is passed.
        
Index: 0.475/tests/atgeneral.m4
--- 0.475/tests/atgeneral.m4 Thu, 26 Oct 2000 21:03:04 +0200 akim 
(ace/b/19_atgeneral. 1.10 664)
+++ 0.477(w)/tests/atgeneral.m4 Sun, 29 Oct 2000 23:55:37 +0100 akim 
(ace/b/19_atgeneral. 1.12 664)
@@ -193,7 +193,7 @@
 
 # Wrap up the testing suite with summary statistics.
 
-rm -f at-check-line
+rm -f at-check-line at-setup-line
 at_fail_count=0
 if test -z "$at_failed_list"; then
   if test "$at_ignore_count" = 0; then
@@ -281,11 +281,16 @@
 if $at_stop_on_error && test -n "$at_failed_list"; then :; else
 divert(1)[]dnl
   echo AT_LINE > at-check-line
+  echo AT_LINE > at-setup-line
   if $at_verbose; then
     echo 'testing AT_group_description'
     echo $at_n "     $at_c"
   fi
-  echo $at_n "substr(AT_ordinal. $srcdir/AT_LINE                            , 
0, 30)[]$at_c"
+  if $at_verbose; then
+    echo "AT_ordinal. $srcdir/AT_LINE..."
+  else
+    echo $at_n "substr(AT_ordinal. $srcdir/AT_LINE                            
, 0, 30)[]$at_c"
+  fi
   if test -z "$at_skip_mode"; then
     (
 [#] Snippet (d[]AT_ordinal[](
@@ -306,16 +311,32 @@
 $at_traceoff
 [[#] Snippet )s[]AT_ordinal[])
     )
-    case $? in
-      0) echo ok
-        ;;
-      77) echo "ignored near \``cat at-check-line`'"
-         at_ignore_count=`expr $at_ignore_count + 1`
-         ;;
-      *) echo "FAILED near \``cat at-check-line`'"
-        at_failed_list="$at_failed_list AT_ordinal"
-        ;;
-    esac
+    at_status=$?
+    if $at_verbose; then
+      echo $at_n "     AT_ordinal. $srcdir/`cat at-setup-line`: $at_c"
+      case $at_status in
+       0) echo ok
+          ;;
+       77) echo "ignored"
+           at_ignore_count=`expr $at_ignore_count + 1`
+           ;;
+       *) echo "FAILED"
+          at_failed_list="$at_failed_list AT_ordinal"
+          ;;
+      esac
+      echo
+    else
+      case $at_status in
+       0) echo ok
+          ;;
+       77) echo "ignored near \``cat at-check-line`'"
+           at_ignore_count=`expr $at_ignore_count + 1`
+           ;;
+       *) echo "FAILED near \``cat at-check-line`'"
+          at_failed_list="$at_failed_list AT_ordinal"
+          ;;
+      esac
+    fi
   else
      echo 'ignored (skipped)'
      at_ignore_count=`expr $at_ignore_count + 1`
@@ -364,7 +385,7 @@
 # their content is not checked.
 AT_DEFINE([AT_CHECK],
 [$at_traceoff
-$at_verbose && echo "$srcdir/AT_LINE: testing..."
+$at_verbose && echo "$srcdir/AT_LINE: patsubst([$1], [\([\"`$]\)], \\\1)..."
 echo AT_LINE > at-check-line
 $at_check_stds && exec 5>&1 6>&2 1>stdout 2>stderr
 $at_traceon