;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 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/bootstrap/aarch64-linux")

  ;; 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/bootstrap"))
               (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")
>
<option value='committer'>committer</option>
<option 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=d10e1de7d711bd673f7b5017fe348d50bce506c0'>root</a>/<a href='/guix/log/gnu?id=d10e1de7d711bd673f7b5017fe348d50bce506c0'>gnu</a>/<a href='/guix/log/gnu/tests.scm?id=d10e1de7d711bd673f7b5017fe348d50bce506c0'>tests.scm</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/gnu/tests.scm?id=d10e1de7d711bd673f7b5017fe348d50bce506c0&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-08-29 01:05:26 -0400'>2021-08-29</span></td><td><a href='/guix/commit/gnu/tests.scm?id=da4e40948326387d5bcda58783914d5f9ce8b095'>Migrate to the new 'targets' field of bootloader-configuration.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-04-12 18:42:22 +0200'>2021-04-12</span></td><td><a href='/guix/commit/gnu/tests.scm?id=3332f4365bf329c361d650c70e53b8a74ad923bd'>tests: Support package extensions in the backdoor REPL.</a><span class='msg-avail'>...</span></td><td>Maxime Devos</td></tr>
<tr><td><span title='2021-02-19 20:10:08 +0100'>2021-02-19</span></td><td><a href='/guix/commit/gnu/tests.scm?id=f57b7cea748c1e8284373811c13398d9f69aec89'>tests: Export %simple-os.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-07-25 19:11:36 +0200'>2020-07-25</span></td><td><a href='/guix/commit/gnu/tests.scm?id=a5e2fc73760a2ae023f2e56bdbf8025971f90e64'>utils: Move &lt;location&gt; and '&amp;error-location' to (guix diagnostics).</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
date to patch level 2.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2019-01-08 18:19:24 +0200'>2019-01-08</span></td><td><a href='/guix/commit/gnu/packages/bash.scm?id=847ffe88526ccf1209ff0292fbdae9c557cf5d3f'>gnu: bash: Update to 5.0.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2018-09-09 17:40:35 +0200'>2018-09-09</span></td><td><a href='/guix/commit/gnu/packages/bash.scm?id=0aeb13485055975d71ec8283040f007c79599bba'>Merge branch 'master' into core-updates</a></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-09-04 17:25:11 +0200'>2018-09-04</span></td><td><a href='/guix/commit/gnu/packages/bash.scm?id=ca719424455465fca4b872c371daf2a46de88b33'>Switch to Guile-Gcrypt.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-07-03 10:43:09 +0300'>2018-07-03</span></td><td><a href='/guix/commit/gnu/packages/bash.scm?id=1aa5c246e91c0c9f926783c110322c4953249349'>gnu: bash: Update to patch level 23.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2018-03-20 00:49:05 -0400'>2018-03-20</span></td><td><a href='/guix/commit/gnu/packages/bash.scm?id=647888845c0d7b9ea1b51a3e3492d4d2382f4468'>Merge branch 'master' into core-updates</a></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2018-03-19 14:44:13 +0100'>2018-03-19</span></td><td><a href='/guix/commit/gnu/packages/bash.scm?id=504be7db587d5ba2f5d777b45920f3f1229b7243'>gnu: bash-completion: Update to 2.8.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-03-16 10:19:22 -0400'>2018-03-16</span></td><td><a href='/guix/commit/gnu/packages/bash.scm?id=8809a15389dfd8ae226af04b102facc8874947f7'>gnu: bash: Return #t from 'install-sh-symlink' phase.</a><span class='msg-avail'>...</span></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2018-03-04 15:21:30 +0100'>2018-03-04</span></td><td><a href='/guix/commit/gnu/packages/bash.scm?id=1382bde93c3ccb5be6b846b932edd7707fac1a3e'>gnu: bash: Don't specify default configuration filenames.</a><span class='msg-avail'>...</span></td><td>Roel Janssen</td></tr>
<tr><td><span title='2018-02-20 19:54:25 +0100'>2018-02-20</span></td><td><a href='/guix/commit/gnu/packages/bash.scm?id=9102ce124c807a6a3d9e8f492adafd830cf833f3'>gnu: bash: Update to patch level 19.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2017-07-23 19:06:49 -0400'>2017-07-23</span></td><td><a href='/guix/commit/gnu/packages/bash.scm?id=e081e2dd0b4c3a842d0bac6384545861c76e02d5'>Merge branch 'master' into core-updates</a></td><td>Leo Famulari</td></tr>
<tr><td><span title='2017-07-23 11:05:54 +0300'>2017-07-23</span></td><td><a href='/guix/commit/gnu/packages/bash.scm?id=8f155e3cff0c6ffed5f0b91e9fc9c1bf98a8c6b6'>gnu: bash-completion: Update to 2.7.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2017-07-10 14:37:53 -0400'>2017-07-10</span></td><td><a href='/guix/commit/gnu/packages/bash.scm?id=c8eb2b8c60d954b4522555a5c75b7bb4be5a1a4d'>Merge branch 'master' into core-updates</a></td><td>Leo Famulari</td></tr>
<tr><td><span title='2017-07-06 01:28:05 +0200'>2017-07-06</span></td><td><a href='/guix/commit/gnu/packages/bash.scm?id=ab3cac37850d5bc511688922080de58b84cd609c'>gnu: bash-completion: Update to 2.6.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>