diff options
| author | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-05-10 21:39:40 +0200 |
|---|---|---|
| committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-05-10 21:39:40 +0200 |
| commit | 09dd600159801b3b8fd6b95bf69e648f9e37d959 (patch) | |
| tree | c6961be106846628bf0d128586fc73685b895315 /tests/transformations.scm | |
| parent | eab4d0e18a616c71ab5f3af7f2915a9591ef04e8 (diff) | |
| parent | b4e5844700b2304bfde451322feb5797bf0c6179 (diff) | |
Merge branch 'master' into gnome-team.
Diffstat (limited to 'tests/transformations.scm')
| -rw-r--r-- | tests/transformations.scm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/tests/transformations.scm b/tests/transformations.scm index 1fa2c0bba8..704818b9ed 100644 --- a/tests/transformations.scm +++ b/tests/transformations.scm @@ -33,7 +33,7 @@ #:use-module ((guix gexp) #:select (local-file? local-file-file computed-file? computed-file-gexp - gexp-input-thing)) + gexp-input-thing gexp->approximate-sexp)) #:use-module (guix ui) #:use-module (guix utils) #:use-module (guix git) @@ -408,6 +408,17 @@ (package-full-name grep)) (package-arguments (package-replacement dep0)))))))) +(test-equal "options->transformation, with-configure-flag" + '(append '() '("--flag=42")) + (let* ((p (dummy-package "foo" + (build-system gnu-build-system))) + (t (options->transformation + '((with-configure-flag . "foo=--flag=42"))))) + (let ((new (t p))) + (match (package-arguments new) + ((#:configure-flags flags) + (gexp->approximate-sexp flags)))))) + (test-assert "options->transformation, without-tests" (let* ((dep (dummy-package "dep")) (p (dummy-package "foo" |