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 | |
| parent | abe582d3bada8de5734ddd87dc318b6bb87d8531 (diff) | |
Updated.
Diffstat (limited to 'etc/testsuite')
| -rw-r--r-- | etc/testsuite/pg-pgip-test.el | 2 | ||||
| -rw-r--r-- | etc/testsuite/pg-test.el | 13 |
2 files changed, 10 insertions, 5 deletions
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' |