diff options
| author |  Peter McGoron
| 2025-09-26 10:15:09 -0400 |
|---|---|---|
| committer | Peter McGoron
| 2025-09-26 10:15:09 -0400 |
| commit | a1962c6bcd129d8bc3e66873992d86c47f951192 (patch) | |
| tree | 10c13e00c1e71872ff49b037b59128b1c767b552 /tests/impl.scm | |
| parent | test-application: add forms as they are evaluated, and only store the whole e... (diff) | |
add expect-to-fail
Diffstat (limited to '')
| -rw-r--r-- | tests/impl.scm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/tests/impl.scm b/tests/impl.scm index 6783dd9..0395fb2 100644 --- a/tests/impl.scm +++ b/tests/impl.scm @@ -421,7 +421,7 @@ (test-assert "thrown exception" (define-values (dto dict) (parameterize ((test-info (list 'replace default-test-info-dto silent-dict))) - (with-test-error #f + (test-error #f (lambda (ex) (equal? ex "exception")) (raise "exception")) (inspect-test-info values))) @@ -429,7 +429,7 @@ (test-assert "no thrown exception" (define-values (dto dict) (parameterize ((test-info (list 'replace default-test-info-dto silent-dict))) - (with-test-error #f + (test-error #f (lambda (ex) #t) #f) (inspect-test-info values))) @@ -437,8 +437,13 @@ (test-assert "incorrectly thrown exception" (define-values (dto dict) (parameterize ((test-info (list 'replace default-test-info-dto silent-dict))) - (with-test-error #f number? (raise "exception")) + (test-error #f number? (raise "exception")) (inspect-test-info values))) (eqv? 1 (dict-ref dto dict 'failed)))) +(test-group "expect-to-fail" + (expect-to-fail + (test-assert "1 = 2" (eqv? 1 2)) + (test-assert "type error" (car '())))) + (test-exit) |