path: root/gnu/tests.scm
diff options
context:
space:
mode:
authorRaghav Gururajan <rg@raghavgururajan.name>2021-03-11 09:59:44 -0500
committerRaghav Gururajan <rg@raghavgururajan.name>2021-03-26 15:27:20 -0400
commit5eaaa3b8d903dcd5616998f6f614e288cb576d4a (patch)
tree33b4a096b7bd75fb32a01e13b8c51a34c6b74dd4 /gnu/tests.scm
parentf97176e78cbdc891225440ebee577f1da792c78c (diff)
downloadguix-5eaaa3b8d903dcd5616998f6f614e288cb576d4a.tar.gz
guix-5eaaa3b8d903dcd5616998f6f614e288cb576d4a.zip
gnu: gobject-introspection: Propagate glib.
* gnu/packages/glib.scm (gobject-introspection) [inputs]: Move glib to ... [propagated-inputs]: ... here. Signed-off-by: Léo Le Bouter <lle-bout@zaclys.net>
Diffstat (limited to 'gnu/tests.scm')
0 files changed, 0 insertions, 0 deletions
dules 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")