34-factor-epilogue.patch

[DEMAILLE Akim]

Index: ChangeLog
from  Akim Demaille  <address@hidden>
        Factor the epilogue of the tests:

        for test in $tests
        do
        case $test in

        ...

        42)
        prologue tests
        check 42 a
        check 42 b
        ;;
        43)
        prologue tests
        check 43
        ;;
        ...

        esac
        done

        * tests/atgeneral.m4 (AT_CLEANUP): Move the reading of at_status
        into...
        (AT_INIT): here, at the end of the `case'.

Index: tests/atgeneral.m4
--- tests/atgeneral.m4 Sat, 18 Nov 2000 17:04:09 +0100 akim 
(ace/b/19_atgeneral. 1.23 644)
+++ tests/atgeneral.m4 Sat, 18 Nov 2000 17:04:26 +0100 akim 
(ace/b/19_atgeneral. 1.23 644)
@@ -162,10 +162,23 @@ m4_define([AT_UNDEFINE], m4_defn([m4_und
 : ${tests="$TESTS"}
 for test in $tests
 do
+  at_status=0;
   case $test in
 m4_divert_pop[]dnl
 m4_divert_push(3)[]dnl
   esac
+  $at_verbose &&
+    echo $at_n "     AT_ordinal. $srcdir/`cat at-setup-line`: $at_c"
+  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 $test"
+       ;;
+  esac
 done

 # Wrap up the testing suite with summary statistics.
@@ -284,21 +297,9 @@ m4_define([AT_UNDEFINE], m4_defn([m4_und
 [[#] Snippet )s[]AT_ordinal[])
        )
        at_status=$?
-       $at_verbose &&
-         echo $at_n "     AT_ordinal. $srcdir/`cat at-setup-line`: $at_c"
-       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
       else
-        echo 'ignored (skipped)'
-        at_ignore_count=`expr $at_ignore_count + 1`
+        echo 'ignored (skipped)'
+        at_ignore_count=`expr $at_ignore_count + 1`
       fi
       at_test_count=`expr 1 + $at_test_count`
       if $at_stop_on_error && test -n "$at_failed_list"; then :; else