;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017, 2019 Ludovic Courtès <ludo@gnu.org>
;;;
;;; 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 <http://www.gnu.org/licenses/>.

(define-module (test-search-paths)
  #:use-module (guix search-paths)
  #:use-module (ice-9 match)
  #:use-module (srfi srfi-64))

(define %top-srcdir
  (dirname (search-path %load-path "guix.scm")))


(test-begin "search-paths")

(test-equal "evaluate-search-paths, separator is #f"
  (string-append %top-srcdir
                 "/gnu/packages/aux-files/linux-libre")

  ;; The following search path spec should evaluate to a single item: the
  ;; first directory that matches the "-linux$" pattern in
  ;; gnu/packages/bootstrap.
  (let ((spec (search-path-specification
               (variable "CHBOUIB")
               (files '("gnu/packages/aux-files"))
               (file-type 'directory)
               (separator #f)
               (file-pattern "^linux"))))
    (match (evaluate-search-paths (list spec)
                                  (list %top-srcdir))
      (((spec* . value))
       (and (eq? spec* spec) value)))))

(test-end "search-paths")
on value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=e6b2552a96b328d81f681c2ae17c54a795ab2547'>root</a>/<a href='/guix/log/THANKS?id=e6b2552a96b328d81f681c2ae17c54a795ab2547'>THANKS</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/THANKS?id=e6b2552a96b328d81f681c2ae17c54a795ab2547&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2016-07-18 06:56:29 +0200'>2016-07-18</span></td><td><a href='/guix/commit/THANKS?id=1d743e6bdda65e783087ad8b9b4289d0ef581a5a'>Thank Thomas.</a></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2015-11-23 17:48:35 +0100'>2015-11-23</span></td><td><a href='/guix/commit/THANKS?id=160b0ef3fd87c73b140f4480a521ad8c80475ab3'>Thank Jan.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-11-17 09:44:52 +0100'>2015-11-17</span></td><td><a href='/guix/commit/THANKS?id=87450b12744bf1f508b6fd4ee11c00af35fcc4ee'>Thank Chris.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-10-09 20:57:24 +0200'>2015-10-09</span></td><td><a href='/guix/commit/THANKS?id=28eb956dfeb8b759e690cf3e30dfe85788561778'>Thank Chris.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-09-20 22:06:48 +0200'>2015-09-20</span></td><td><a href='/guix/commit/THANKS?id=8fcac19975b163e0e5b98d27a52cb7c541bf94d9'>Thank Petter.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-08-27 23:34:23 +0200'>2015-08-27</span></td><td><a href='/guix/commit/THANKS?id=25ae74cffaa95cc4e509e3363f6f6525ddc21672'>Thank Eric Hanchrow.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-07-23 09:42:24 +0200'>2015-07-23</span></td><td><a href='/guix/commit/THANKS?id=015878fdbbfe5e30474bea229c014677e04cc27f'>Thank Anders.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-07-22 23:47:35 +0200'>2015-07-22</span></td><td><a href='/guix/commit/THANKS?id=0e9f9f7bc23a7e7f2390eb1bbb09f36f33cda534'>Thank Malcolm.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-07-22 22:56:42 +0200'>2015-07-22</span></td><td><a href='/guix/commit/THANKS?id=31ea3ebb0570c070df578d5983bdcdce117e4376'>Thank Dave.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-07-04 12:13:01 +0300'>2015-07-04</span></td><td><a href='/guix/commit/THANKS?id=e7c48ee9519aa5cd094f3326a4caeccba072e9fd'>Clean up 'THANKS' and 'AUTHORS'.</a><span class='msg-avail'>...</span></td><td>Alex Kost</td></tr>
<tr><td><span title='2015-06-07 18:15:40 +0200'>2015-06-07</span></td><td><a href='/guix/commit/THANKS?id=a647e0b8eef9931a46aded4c4d71e0413cc84340'>Thank Thomas.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-05-01 00:06:18 +0200'>2015-05-01</span></td><td><a href='/guix/commit/THANKS?id=0aaca4354c68a21b01ce5fcd7fb7f820e58fc3cb'>Thank Joshua.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-04-14 23:20:26 +0200'>2015-04-14</span></td><td><a href='/guix/commit/THANKS?id=a0bcaefd0885fdca898c3e60dc22c00a581c9b30'>Thank Pjotr.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-02-24 00:04:37 +0100'>2015-02-24</span></td><td><a href='/guix/commit/THANKS?id=31567c427409b908ac496e48419017022e9212a2'>Thank Daniel.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-02-07 23:17:33 +0100'>2015-02-07</span></td><td><a href='/guix/commit/THANKS?id=cce629c027f26275d2fd7b66e43669ccab6eb207'>Thank Andrei.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-01-28 10:56:04 +0100'>2015-01-28</span></td><td><a href='/guix/commit/THANKS?id=8666869491a05670d65237fda5cb35bbf4a808de'>Thank Amirouche.</a></td><td>Ludovic Courtès</td></tr>