aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-04-01 23:00:11 +0200
committerLudovic Courtès <ludo@gnu.org>2019-04-01 23:20:56 +0200
commit2472cdec25f440802e2c9b2904dd5a9cfce677b4 (patch)
tree1fdf02bd4d9cbb70873785c90dc7c3bdd126a868 /gnu/packages.scm
parent0e558640361b6ab4aac0f424cb587b21a642bab8 (diff)
downloadguix-2472cdec25f440802e2c9b2904dd5a9cfce677b4.tar.gz
guix-2472cdec25f440802e2c9b2904dd5a9cfce677b4.zip
gnu: gnome-shell: Store absolute file name of 'ibus-daemon'.
* gnu/packages/gnome.scm (gnome-shell)[arguments]: Add 'record-absolute-file-names' phase.
Diffstat (limited to 'gnu/packages.scm')
0 files changed, 0 insertions, 0 deletions
ert "scheme-modules recurses in symlinks to directories" (call-with-temporary-directory (lambda (directory) (mkdir (string-append directory "/guix")) (symlink (string-append %top-srcdir "/guix/import") (string-append directory "/guix/import")) ;; DIRECTORY/guix/import is a symlink but we want to make sure ;; 'scheme-modules' recurses into it. (match (map module-name (scheme-modules directory)) ((('guix 'import _ ...) ..1) #t))))) (test-equal "scheme-modules, non-existent directory" '() (scheme-modules "/does/not/exist")) (test-assert "all-modules" (match (map module-name (all-modules `((,%top-srcdir . "guix/build-system")))) ((('guix 'build-system names) ..1) names))) (test-assert "fold-module-public-variables" (let ((modules (all-modules `((,%top-srcdir . "guix/build-system"))))) (match (fold-module-public-variables (lambda (obj result) (if (build-system? obj) (cons obj result) result)) '() modules) (((? build-system? bs) ..1) bs)))) (test-end "discovery")