diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2019-12-15 21:27:31 +0100 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2019-12-18 22:36:37 +0100 |
| commit | ab7010af1f1077c056529769a53a380147c3933f (patch) | |
| tree | 3bd5460ce10b6e0205206a70026e925a8b0ca0c8 /gnu/tests.scm | |
| parent | fe3110ac58364aceff71391b984e8056a6db9395 (diff) | |
gexp: Allow character literals in GEXP->SEXP.
Fixes <https://bugs.gnu.org/38628>.
* tests/gexp.scm ("lower-gexp, character literal"): New test.
* guix/gexp.scm (gexp->sexp)[self-quoting?]: Add CHAR? to the tested types.
* guix/repl.scm (self-quoting?): Likewise.
* gnu/tests.scm (marionette-shepherd-service)[self-quoting?]: Likewise.
Diffstat (limited to 'gnu/tests.scm')
| -rw-r--r-- | gnu/tests.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/tests.scm b/gnu/tests.scm index 27cb39c2b99..cc72e568583 100644 --- a/gnu/tests.scm +++ b/gnu/tests.scm | |||
| @@ -98,7 +98,7 @@ | |||
| 98 | (or (pred x) | 98 | (or (pred x) |
| 99 | (one-of rest ...)))))) | 99 | (one-of rest ...)))))) |
| 100 | (one-of symbol? string? keyword? pair? null? array? | 100 | (one-of symbol? string? keyword? pair? null? array? |
| 101 | number? boolean?))) | 101 | number? boolean? char?))) |
| 102 | 102 | ||
| 103 | (match (primitive-fork) | 103 | (match (primitive-fork) |
| 104 | (0 | 104 | (0 |
