tests/search-paths.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2017, 2019 Ludovic Courtès <ludo@gnu.org>
   3 ;;;
   4 ;;; This file is part of GNU Guix.
   5 ;;;
   6 ;;; GNU Guix is free software; you can redistribute it and/or modify it
   7 ;;; under the terms of the GNU General Public License as published by
   8 ;;; the Free Software Foundation; either version 3 of the License, or (at
   9 ;;; your option) any later version.
  10 ;;;
  11 ;;; GNU Guix is distributed in the hope that it will be useful, but
  12 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 ;;; GNU General Public License for more details.
  15 ;;;
  16 ;;; You should have received a copy of the GNU General Public License
  17 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 (define-module (test-search-paths)
  20   #:use-module (guix search-paths)
  21   #:use-module (ice-9 match)
  22   #:use-module (srfi srfi-64))
  23
  24 (define %top-srcdir
  25   (dirname (search-path %load-path "guix.scm")))
  26
  27 \f
  28 (test-begin "search-paths")
  29
  30 (test-equal "evaluate-search-paths, separator is #f"
  31   (string-append %top-srcdir
  32                  "/gnu/packages/aux-files/linux-libre")
  33
  34   ;; The following search path spec should evaluate to a single item: the
  35   ;; first directory that matches the "-linux$" pattern in
  36   ;; gnu/packages/bootstrap.
  37   (let ((spec (search-path-specification
  38                (variable "CHBOUIB")
  39                (files '("gnu/packages/aux-files"))
  40                (file-type 'directory)
  41                (separator #f)
  42                (file-pattern "^linux"))))
  43     (match (evaluate-search-paths (list spec)
  44                                   (list %top-srcdir))
  45       (((spec* . value))
  46        (and (eq? spec* spec) value)))))
  47
  48 (test-end "search-paths")