From f97f8a8f12f0fb6b82cd7d8d4cc34250234e155a Mon Sep 17 00:00:00 2001
From: David Aspinall <da@inf.ed.ac.uk>
Date: Mon, 18 Nov 2002 21:02:01 +0000
Subject: Updated.

---
 etc/testsuite/pg-pgip-test.el |  2 ++
 etc/testsuite/pg-test.el      | 13 ++++++++-----
 2 files changed, 10 insertions(+), 5 deletions(-)

(limited to 'etc/testsuite')

diff --git a/etc/testsuite/pg-pgip-test.el b/etc/testsuite/pg-pgip-test.el
index c6f55b55..9dbfaad7 100644
--- a/etc/testsuite/pg-pgip-test.el
+++ b/etc/testsuite/pg-pgip-test.el
@@ -12,3 +12,5 @@
 (pg-test-eval (pg-pgip-interpret-value "27" (list 'choice 'boolean 'integer)) 27)
 
 
+(provide 'pg-pgip-test)
+;; End of `pg-pgip-test.el'
\ No newline at end of file
diff --git a/etc/testsuite/pg-test.el b/etc/testsuite/pg-test.el
index 35773d8d..b8d236a7 100644
--- a/etc/testsuite/pg-test.el
+++ b/etc/testsuite/pg-test.el
@@ -49,17 +49,17 @@
 	  (setq result (eval expr))
 	;; FIXME: add negative tests here, that exns _are_ raised.
 	(t (setq errorresult 
-		 (format "Test %s failed: error signalled: %s %s\n" 
+		 (format " %s failed: error signalled: %s %s\n" 
 			 name (car exn) (cdr exn)))))
       (or errorresult
 	  (unless (equal goodresult result)
 	    (setq errorresult
-		  (format "Test %s failed: exprected result %s, got %s\n"
+		  (format " %s failed: exprected result %s, got %s\n"
 			  name goodresult result))))
       (if errorresult
 	  (incf pg-test-suite-fail-count)
 	(incf pg-test-suite-success-count)
-	(setq errorresult (format "Test %s succeeded.\n" name)))
+	(setq errorresult (format " %s succeeded.\n" name)))
       ;; Return string
       errorresult))
      ;; No other types at the moment
@@ -79,8 +79,9 @@
     (insert "TEST SUITE: " name "\n") 
     (insert "=================================================================\n")
     (apply 'insert
-     (mapcar 'pg-execute-test (cdr-safe
-			       (assoc name pg-test-suite-table))))
+     (mapcar 'pg-execute-test 
+	     (reverse (cdr-safe
+		       (assoc name pg-test-suite-table)))))
     (insert (format
 	     "\nTotal successful tests: %s, failed tests: %s\n\n"
 	     pg-test-suite-success-count   pg-test-suite-fail-count)))
@@ -104,3 +105,5 @@
 
 
 
+(provide 'pg-test)
+;; End of `pg-test.el'
-- 
cgit v1.2.3