;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 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-ipfs)
  #:use-module (guix ipfs)
  #:use-module ((guix utils) #:select (call-with-temporary-directory))
  #:use-module (guix tests)
  #:use-module (web uri)
  #:use-module (srfi srfi-64))

;; Test the (guix ipfs) module.

(define (ipfs-gateway-running?)
  "Return true if the IPFS gateway is running at %IPFS-BASE-URL."
  (let* ((uri    (string->uri (%ipfs-base-url)))
         (socket (socket AF_INET SOCK_STREAM 0)))
    (define connected?
      (catch 'system-error
        (lambda ()
          (format (current-error-port)
                  "probing IPFS gateway at localhost:~a...~%"
                  (uri-port uri))
          (connect socket AF_INET INADDR_LOOPBACK (uri-port uri))
          #t)
        (const #f)))

    (close-port socket)
    connected?))

(unless (ipfs-gateway-running?)
  (test-skip 1))

(test-assert "add-file-tree + restore-file-tree"
  (call-with-temporary-directory
   (lambda (directory)
     (let* ((source  (dirname (search-path %load-path "guix/base32.scm")))
            (target  (string-append directory "/r"))
            (content (pk 'content (add-file-tree source))))
       (restore-file-tree (content-name content) target)
       (file=? source target)))))
></table>
<div class='path'>path: <a href='/guix/log/?id=408427a36c6545115068d5f06de2ea21407374c6'>root</a>/<a href='/guix/log/tests?id=408427a36c6545115068d5f06de2ea21407374c6'>tests</a>/<a href='/guix/log/tests/hackage.scm?id=408427a36c6545115068d5f06de2ea21407374c6'>hackage.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/tests/hackage.scm?id=408427a36c6545115068d5f06de2ea21407374c6&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-12-05 19:17:41 +0100'>2021-12-05</span></td><td><a href='/guix/commit/tests/hackage.scm?id=9bc0f45df5d6aed217020b1183dca54989844fb0'>Merge remote-tracking branch 'origin/master' into core-updates-frozen</a></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2021-12-01 17:53:25 +0100'>2021-12-01</span></td><td><a href='/guix/commit/tests/hackage.scm?id=39f4ef59ffc37259de40f67c476a1a720aa8d007'>build-system: haskell: Add ‘hackage-uri’ procedure.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/build-system/haskell (hackage-uri): New procedure.
* guix/import/hackage.scm (hackage-module-&gt;sexp, latest-release): Use it.
* tests/hackage.scm (match-ghc-foo, match-ghc-foo-6, match-ghc-foo-revision,
match-ghc-foo-import): Adjust accordingly.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Xinglu Chen</td></tr>
<tr><td><span title='2021-09-17 01:25:52 +0200'>2021-09-17</span></td><td><a href='/guix/commit/tests/hackage.scm?id=5c3cb22c9b2810669999e044b2de5e9331011a83'>Merge branch 'master' into core-updates-frozen</a><span class='msg-avail'>...<span class='msg-tooltip'> Conflicts:
	gnu/packages/bioinformatics.scm
	gnu/packages/chez.scm
	gnu/packages/docbook.scm
	gnu/packages/ebook.scm
	gnu/packages/gnome.scm
	gnu/packages/linux.scm
	gnu/packages/networking.scm
	gnu/packages/python-web.scm
	gnu/packages/python-xyz.scm
	gnu/packages/tex.scm
	gnu/packages/version-control.scm
	gnu/packages/xml.scm
	guix/build-system/dune.scm
	guix/build-system/go.scm
	guix/build-system/linux-module.scm
	guix/packages.scm
</span></span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2021-09-15 14:28:38 +0200'>2021-09-15</span></td><td><a href='/guix/commit/tests/hackage.scm?id=a840caccaee8c9492f4cc8a7ba802ef54391f199'>import: cabal: Treat identifier names correctly.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/import/cabal.scm (is-id): Accept the location as an argument.  Don’t
check if the identifier name is a reserved keyword unless it is the first word
on the line.
(lex-word): Adjust accordingly.
* tests/hackage ("hackage-&gt;guix-package tests flag executable"): Expect it to
pass.

Fixes: &lt;https://issues.guix.gnu.org/25138&gt;
Signed-off-by: Lars-Dominik Braun &lt;lars@6xq.net&gt;
</span></span></td><td>Xinglu Chen</td></tr>
<tr><td><span title='2021-07-20 23:43:29 +0200'>2021-07-20</span></td><td><a href='/guix/commit/tests/hackage.scm?id=81a87222a1c26fca9fd642213129184ea0fb5185'>import: hackage: Emit new-style package inputs.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/import/hackage.scm (hackage-module-&gt;sexp)[dependencies]
[native-dependencies]: Make into a list of symbols.
[maybe-inputs]: Wrap INPUTS in 'list' instead of 'quasiquote'.
* tests/hackage.scm (match-ghc-foo)
(match-ghc-foo-6)
(match-ghc-foo-revision)
(match-ghc-foo-import): Adjust accordingly.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Sarah Morgensen</td></tr>
<tr><td><span title='2021-06-25 15:12:05 +0200'>2021-06-25</span></td><td><a href='/guix/commit/tests/hackage.scm?id=dfac3e643a924ccefc997b4433a0b5c35928d657'>import: hackage: Support "common" field and imports</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://issues.guix.gnu.org/48701&gt;.

* guix/import/cabal.scm (make-cabal-parser): Modify.
(is-common): New variable.
(lex-common): New procedure.
(is-id): Modify.
(eval-cabal): Modify.
* tests/hackage.scm ("hackage-&gt;guix-package test cabal import") New test.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Philip Munksgaard</td></tr>
<tr><td><span title='2021-05-22 23:39:27 +0200'>2021-05-22</span></td><td><a href='/guix/commit/tests/hackage.scm?id=cfec09a9928e171a724f630ba652ea0241d52e92'>import: hackage: Prefix licenses with 'license:'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/import/hackage.scm (string-&gt;license): Prefix the value of the license
field with ‘license:’.
* tests/hackage.scm (match-ghc-foo, match-ghc-foo-6, match-ghc-foo-revision):
Adjust accordingly.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Xinglu Chen</td></tr>