[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#38628: [PATCH] gexp: Allow character literals in GEXP->SEXP.
From: |
Marius Bakke |
Subject: |
bug#38628: [PATCH] gexp: Allow character literals in GEXP->SEXP. |
Date: |
Wed, 18 Dec 2019 19:59:59 +0100 |
User-agent: |
Notmuch/0.29.3 (https://notmuchmail.org) Emacs/26.3 (x86_64-pc-linux-gnu) |
Ludovic Courtès <address@hidden> writes:
> Also it would be nice to add a tiny test close to the one that
> 24ab804ce11fe12ff49cd144a3d9c4bfcf55b41c added.
Good idea. I came up with this:
diff --git a/tests/gexp.scm b/tests/gexp.scm
index 84c16422c2..8b1596f66d 100644
--- a/tests/gexp.scm
+++ b/tests/gexp.scm
@@ -886,6 +886,12 @@
(run-with-store %store
(lower-gexp #~(foo #$+)))))
+(test-equal "lower-gexp, character literal"
+ '(#\+)
+ (lowered-gexp-sexp
+ (run-with-store %store
+ (lower-gexp #~(#\+)))))
+
(test-assertm "gexp->derivation #:references-graphs"
(mlet* %store-monad
((one (text-file "one" (random-text)))
WDYT?
signature.asc
Description: PGP signature