;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015 Ludovic Courtès ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see . (define-module (test-gremlin) #:use-module (guix elf) #:use-module (guix build utils) #:use-module (guix build gremlin) #:use-module (srfi srfi-1) #:use-module (srfi srfi-26) #:use-module (srfi srfi-64) #:use-module (rnrs io ports) #:use-module (ice-9 match)) (define %guile-executable (match (command-line) ((program . _) (and (file-exists? program) (elf-file? program) program)) (_ #f))) (define read-elf (compose parse-elf get-bytevector-all)) (test-begin "gremlin") (unless %guile-executable (test-skip 1)) (test-assert "elf-dynamic-info-needed, executable" (let* ((elf (call-with-input-file %guile-executable read-elf)) (dyninfo (elf-dynamic-info elf))) (or (not dyninfo) ;static executable (lset<= string=? (list (string-append "libguile-" (effective-version)) "libgc" "libunistring" "libffi") (map (lambda (lib) (string-take lib (string-contains lib ".so"))) (elf-dynamic-info-needed dyninfo)))))) (test-equal "expand-origin" '("OOO/../lib" "OOO" "../OOO/bar/OOO/baz" "ORIGIN/foo") (map (cut expand-origin <> "OOO") '("$ORIGIN/../lib" "${ORIGIN}" "../${ORIGIN}/bar/$ORIGIN/baz" "ORIGIN/foo"))) (test-end "gremlin") >/opam.scm
AgeCommit message (Expand)Author
2020-12-08import: opam: Adjust test to latest 'opam->guix-package' changes....Ludovic Courtès
2020-12-08guix: opam: Pass default repository to recursive importer....Julien Lepiller
2020-10-02tests: opam: Test additional syntax....Julien Lepiller
2020-10-02tests: opam: Factorize tests....Julien Lepiller
2020-01-17import: opam: Avoid uses of '@@' in tests....Ludovic Courtès
2019-09-07tests: opam: Fix input type in import test....Julien Lepiller
2019-02-05import: opam: Fix conditions....Julien Lepiller
2018-12-17import: Update opam importer....Julien Lepiller
2018-09-04Switch to Guile-Gcrypt....Ludovic Courtès
2018-07-10guix: Add opam importer....Julien Lepiller