[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-chez a70c47c557 07/15: unit test fixes
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/geiser-chez a70c47c557 07/15: unit test fixes |
Date: |
Tue, 11 Oct 2022 13:58:54 -0400 (EDT) |
branch: elpa/geiser-chez
commit a70c47c557e17f26803aa2be3836745b36fed1a2
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>
unit test fixes
---
src/geiser/test.ss | 31 +++++++++----------------------
1 file changed, 9 insertions(+), 22 deletions(-)
diff --git a/src/geiser/test.ss b/src/geiser/test.ss
index 24074483fb..023f4b0dd4 100644
--- a/src/geiser/test.ss
+++ b/src/geiser/test.ss
@@ -4,8 +4,7 @@
(define-syntax assert-equal
(syntax-rules ()
((_ a b)
- (if (equal? a b)
- #t
+ (or (equal? a b)
(begin
(display (format "failed assertion `~a' == `~a'" a b))
(assert (equal? a b)))))))
@@ -19,41 +18,29 @@
(define-syntax do-test
(syntax-rules ()
- ((_ form result)
- (assert
- (equal?
- (get-result form)
- result)))))
+ ((_ form result) (assert-equal (get-result form) result))))
(define-syntax do-test-macroexpand
(syntax-rules ()
- ((_ form result)
- (assert
- (equal? (geiser:macroexpand form)
- result)))))
+ ((_ form result) (assert-equal (geiser:macroexpand form) result))))
(define-syntax test-or
(syntax-rules ()
((_ x) x)
((_ x xs ...)
- (if x
- x
- (test-or xs ...)))))
+ (if x x (test-or xs ...)))))
-(do-test-macroexpand
- '(test-or 1)
- '1)
+(do-test-macroexpand '(test-or 1) "1\n")
-(do-test-macroexpand
- '(test-or 1 2)
- '(if 1 1 2))
+(do-test-macroexpand '(test-or 1 2) "(if 1 1 2)\n")
;; (something-doesnot-exist)
;;=> Error: Exception: variable something-doesnot-exist is not bound
(do-test
'(something-doesnot-exist)
- "((result \"\") (output . \"\") (error (key . \"Exception: variable
something-doesnot-exist is not bound\")))\n"
- )
+ (string-append "((result \"\") (output . \"\") (error (key . condition) (msg
. "
+ "\"Exception: variable something-doesnot-exist is not
bound\")))"
+ "\n"))
;; (make-violation)
;;=> #<condition &violation>
- [nongnu] elpa/geiser-chez updated (48427d4aec -> 53b7279550), ELPA Syncer, 2022/10/11
- [nongnu] elpa/geiser-chez db4d645996 01/15: better display of evaluation results (dups, spurious compile msgs), ELPA Syncer, 2022/10/11
- [nongnu] elpa/geiser-chez 52fbf028e5 04/15: fixes for the above in the face of non-continuable conditions, ELPA Syncer, 2022/10/11
- [nongnu] elpa/geiser-chez e80f797a5c 10/15: autodoc: fix for arity 0 functions, ELPA Syncer, 2022/10/11
- [nongnu] elpa/geiser-chez 3bfa85afb9 05/15: following the error reporting protocol now that geiser does too, ELPA Syncer, 2022/10/11
- [nongnu] elpa/geiser-chez 7f12bcfe8b 13/15: initial implementation of symbol-location and module-location, ELPA Syncer, 2022/10/11
- [nongnu] elpa/geiser-chez 00ab1e6c7a 12/15: 'module' recognised as a keyword in chez, ELPA Syncer, 2022/10/11
- [nongnu] elpa/geiser-chez 3996898343 14/15: add-to-load-path, ELPA Syncer, 2022/10/11
- [nongnu] elpa/geiser-chez 2d8cd83c64 08/15: wee refactoring, ELPA Syncer, 2022/10/11
- [nongnu] elpa/geiser-chez 501fa22da4 06/15: whitespace and spurious rest arg, ELPA Syncer, 2022/10/11
- [nongnu] elpa/geiser-chez a70c47c557 07/15: unit test fixes,
ELPA Syncer <=
- [nongnu] elpa/geiser-chez 21d35aa8d6 02/15: autodoc improvements (signatures from arities, values), ELPA Syncer, 2022/10/11
- [nongnu] elpa/geiser-chez 0cd37833ab 03/15: geiser-chez-debug-on-exception-p -> geiser-chez-debug-on-exception, ELPA Syncer, 2022/10/11
- [nongnu] elpa/geiser-chez 39b7e9357d 09/15: remote connections: wee refactoring, ELPA Syncer, 2022/10/11
- [nongnu] elpa/geiser-chez 846f96ba19 11/15: whitespace, ELPA Syncer, 2022/10/11
- [nongnu] elpa/geiser-chez 53b7279550 15/15: load-file: adjust current-directory to loaded file's, ELPA Syncer, 2022/10/11