diff options
| author | Robby Zambito <contact@robbyzambito.me> | 2023-02-18 00:06:38 -0500 |
|---|---|---|
| committer | Robby Zambito <contact@robbyzambito.me> | 2023-02-18 00:06:38 -0500 |
| commit | 2c67dfff745ab6d53d5fdcce9338e46b2da567f4 (patch) | |
| tree | b533bdd15ae0b18ee6eb1bb5cdb6fd8556383c63 | |
| parent | dfe51779fceaf635436e769b39bbce898f19abd9 (diff) | |
Do not use and-let* in tests.
There are issues with using it in R7RS mode in Gerbil.
Add Guile test file
| -rw-r--r-- | test/chibi.scm | 3 | ||||
| -rw-r--r-- | test/gauche.scm | 1 | ||||
| -rw-r--r-- | test/guile.scm | 9 | ||||
| -rw-r--r-- | test/run.scm | 2 |
4 files changed, 11 insertions, 4 deletions
diff --git a/test/chibi.scm b/test/chibi.scm index ba1bb54..4b72d90 100644 --- a/test/chibi.scm +++ b/test/chibi.scm @@ -1,7 +1,6 @@ (import (scheme base) (scheme case-lambda) - (except (chibi test) test-equal) - (srfi 2)) + (except (chibi test) test-equal)) (import (zambyte meta json)) diff --git a/test/gauche.scm b/test/gauche.scm index d9af396..869e348 100644 --- a/test/gauche.scm +++ b/test/gauche.scm @@ -1,6 +1,5 @@ (import (scheme base) (scheme case-lambda) - (srfi 2) (srfi 64)) (import (zambyte meta json)) diff --git a/test/guile.scm b/test/guile.scm new file mode 100644 index 0000000..be949b7 --- /dev/null +++ b/test/guile.scm @@ -0,0 +1,9 @@ +(import (scheme base) + (scheme case-lambda) + (srfi 64)) + +(import (zambyte meta json)) + +(test-begin "guile") +(include "run.scm") +(test-end "guile") diff --git a/test/run.scm b/test/run.scm index 6d72f46..416c0f4 100644 --- a/test/run.scm +++ b/test/run.scm @@ -217,7 +217,7 @@ (point? (line-segment->start ls)))) (test-assert "nested records should be able to round trip to a string" - (and-let* ((p1 (point 1 2)) + (let* ((p1 (point 1 2)) (p2 (point 3 4)) (ls (line-segment p1 p2)) (str (json->string ls)) |