diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2002-11-18 21:02:01 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2002-11-18 21:02:01 +0000 |
commit | f97f8a8f12f0fb6b82cd7d8d4cc34250234e155a (patch) | |
tree | cc9686bb77c979e3049881919993576192efcccb /etc/testsuite/pg-test.el | |
parent | abe582d3bada8de5734ddd87dc318b6bb87d8531 (diff) |
Updated.
Diffstat (limited to 'etc/testsuite/pg-test.el')
-rw-r--r-- | etc/testsuite/pg-test.el | 13 |
1 files changed, 8 insertions, 5 deletions
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' |