;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014, 2015, 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-builders)
  #:use-module (guix download)
  #:use-module (guix build-system)
  #:use-module (guix build-system gnu)
  #:use-module (guix store)
  #:use-module (guix utils)
  #:use-module (guix base32)
  #:use-module (guix derivations)
  #:use-module (gcrypt hash)
  #:use-module (guix tests)
  #:use-module ((guix packages)
   </td></tr></table>
<table class='tabs'><tr><td>
<a class='active' href='/tracifyjs/about/?h=templatifyjs'>about</a><a href='/tracifyjs/?h=templatifyjs'>summary</a><a href='/tracifyjs/refs/?h=templatifyjs&amp;id=efcf167e5efc95a82678db2056396dcf94993641'>refs</a><a href='/tracifyjs/log/?h=templatifyjs'>log</a><a href='/tracifyjs/tree/?h=templatifyjs&amp;id=efcf167e5efc95a82678db2056396dcf94993641'>tree</a><a href='/tracifyjs/commit/?h=templatifyjs&amp;id=efcf167e5efc95a82678db2056396dcf94993641'>commit</a><a href='/tracifyjs/diff/?h=templatifyjs&amp;id=efcf167e5efc95a82678db2056396dcf94993641'>diff</a></td><td class='form'><form class='right' method='get' action='/tracifyjs/log/'>
<input type='hidden' name='h' value='templatifyjs'/><input type='hidden' name='id' value='efcf167e5efc95a82678db2056396dcf94993641'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<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='content'><div id='summary'>etch* %store file 'sha256 hash)))
    (and (file-exists? out)
         (valid-path? %store out))))

(test-assert "url-fetch, file URI"
  (let* ((file (search-path %load-path "guix.scm"))
         (hash (call-with-input-file file port-sha256))
         (out  (url-fetch* %store
                           (string-append "file://" (canonicalize-path file))
                           'sha256 hash)))
    (and (file-exists? out)
         (valid-path? %store out))))

(test-assert "gnu-build-system"
  (build-system? gnu-build-system))

(test-end "builders")