diff options
| author |  Peter McGoron
| 2025-11-03 18:09:22 -0500 |
|---|---|---|
| committer | Peter McGoron
| 2025-11-03 18:09:22 -0500 |
| commit | 0400627ff280d52e19b45cb878218a9ac2f52e2d (patch) | |
| tree | c73b212c877d82e111410cac2e7cb46add03a25d /tests | |
| parent | update (diff) | |
TR7
Diffstat (limited to 'tests')
| -rwxr-xr-x | tests/chibi.sh | 2 | ||||
| -rw-r--r-- | tests/impl.scm | 35 | ||||
| -rwxr-xr-x | tests/tr7.sh | 2 |
3 files changed, 18 insertions, 21 deletions
diff --git a/tests/chibi.sh b/tests/chibi.sh index 6f77933..47ab2c1 100755 --- a/tests/chibi.sh +++ b/tests/chibi.sh @@ -1,3 +1,3 @@ #!/bin/sh -chibi-scheme -A "../lib" -A "../compat/srfi-225" -l run.scm +chibi-scheme -A "../lib" -A "../compat/micro-srfi-225" -l run.scm diff --git a/tests/impl.scm b/tests/impl.scm index 0047e34..a4ad2b3 100644 --- a/tests/impl.scm +++ b/tests/impl.scm @@ -151,25 +151,22 @@ (and called? (not (test-contains? 'setup-test-test))))) (test-group "on-exception" (test-body "not called" - (call/cc - (lambda (return) - (define inside-test-info - (dict-set! (test-dto) - dummy-dict - 'exception-not-called? - #t - 'on-exception-in-test - (lambda (exn return) - (test-set! 'exception-not-called? #f) - (return)) - 'after-test - (lambda (previous-dict) - (return (dict-ref (test-dto) - previous-dict - 'exception-not-called?))))) - (parameterize ((test-info inside-test-info)) - (call-as-test #f (lambda () #f))) - #f))) + (define inside-test-info + (dict-set! (test-dto) + dummy-dict + 'exception-not-called? + #t + 'on-exception-in-test + (lambda (exn return) + (test-set! 'exception-not-called? #f) + (return)) + 'after-test + (lambda (previous-dict) + (dict-ref (test-dto) + previous-dict + 'exception-not-called?)))) + (parameterize ((test-info inside-test-info)) + (call-as-test #f (lambda () #f)))) (let* ((message "exception message") (caught #f)) (test-body "called" diff --git a/tests/tr7.sh b/tests/tr7.sh index 2aad823..d47dbe5 100755 --- a/tests/tr7.sh +++ b/tests/tr7.sh @@ -1,3 +1,3 @@ #!/bin/sh -TR7_EXT_PATH=".sld" TR7_LIB_PATH="../lib:../compat/srfi-225" tr7i run.scm +TR7_LIB_PATH="../lib:../compat/micro-srfi-225" tr7i run.scm |