;;; 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-pack)
  #:use-module (guix scripts pack)
  #:use-module (guix store)
  #:use-module (guix derivations)
  #:use-module (guix profiles)
  #:use-module (guix monads)
  #:use-module (guix grafts)
  #:use-module (guix tests)
  #:use-module (guix gexp)
  #:use-module (gnu packages bootstrap)
  #:use-module (srfi srfi-64))

(define %store
  (open-connection-for-tests))

;; Globally disable grafts because they can trigger early builds.
(%graft? #f)

(define-syntax-rule (test-assertm name exp)
  (test-assert name
    (run-with-store %store exp
                    #:guile-for-build (%guile-for-build))))

(define %gzip-compressor
  ;; Compressor that uses the bootstrap 'gzip'.
  ((@ (guix scripts pack) compressor) "gzip"
   "gz"
   #~(#+(file-append %bootstrap-coreutils&co "/bin/gzip") "-6n")))

(define %tar-bootstrap %bootstrap-coreutils&co)


(test-begin "pack")

(unless (network-reachable?) (test-skip 1))
(test-assertm "self-contained-tarball"
  (mlet* %store-monad
      ((profile (profile-derivation (packages->manifest
                                     (list %bootstrap-guile))
                                    #:hooks '()
                                    #:locales? #f))
       (tarball (self-contained-tarball "pack" profile
                                        #:symlinks '(("/bin/Guile"
                                                      -> "bin/guile"))
                                        #:compressor %gzip-compressor
                                        #:tar %tar-bootstrap))
       (check   (gexp->derivation
                 "check-tarball"
                 #~(let ((guile (string-append "." #$profile "/bin")))
                     (setenv "PATH"
                             (string-append #$%tar-bootstrap "/bin"))
                     (system* "tar" "xvf" #$tarball)
                     (mkdir #$output)
                     (exit
                      (and (file-exists? (string-append guile "/guile"))
                           (string=? (string-append #$%bootstrap-guile "/bin")
                                     (readlink guile))
                           (string=? (string-append (string-drop guile 1)
                                                    "/guile")
                                     (readlink "bin/Guile"))))))))
    (built-derivations (list check))))

(test-end)
ef='/guix/commit/gnu/packages/security-token.scm?id=569adffe4b595096da8d17c34b5df3aa5689d4f5'>gnu: pcsc-lite: Update to 1.8.24.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-09-20 04:50:34 +0200'>2018-09-20</span></td><td><a href='/guix/commit/gnu/packages/security-token.scm?id=84c7fbfd6d1c24c14ae9a719b5aa2a41853cf4a5'>gnu: ccid: Update to 1.4.30.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-09-19 15:08:00 -0400'>2018-09-19</span></td><td><a href='/guix/commit/gnu/packages/security-token.scm?id=508d5c5fa883a3cee53f8da358d853d4b245496c'>gnu: OpenSC: Update to 0.19.0 [security fixes].</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2018-08-23 17:16:41 +0200'>2018-08-23</span></td><td><a href='/guix/commit/gnu/packages/security-token.scm?id=574e2ee8eadae80b780923beb6aa4104317624dd'>gnu: yubico-piv-tool: Update to 1.6.1.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-08-15 14:52:58 +0200'>2018-08-15</span></td><td><a href='/guix/commit/gnu/packages/security-token.scm?id=aa3ad4b11981013ed6a73481f5829f20561d84e6'>gnu: yubico-piv-tool: Update to 1.6.0 [fixes CVE-2018-14779, CVE-2018-14780].</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-08-15 14:45:45 +0200'>2018-08-15</span></td><td><a href='/guix/commit/gnu/packages/security-token.scm?id=5799e5ae07a09d7d83ab64edb3a19e92243c9547'>gnu: opensc: Update to 0.18.0.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-08-12 02:50:21 +0530'>2018-08-12</span></td><td><a href='/guix/commit/gnu/packages/security-token.scm?id=fab8a9f9c33e889e70a3fb2358d986c72e17efc3'>gnu: ccid: Move pcsc-lite from inputs to native-inputs.</a><span class='msg-avail'>...</span></td><td>Arun Isaac</td></tr>
<tr><td><span title='2018-06-22 22:00:25 +0200'>2018-06-22</span></td><td><a href='/guix/commit/gnu/packages/security-token.scm?id=9253b4ffc7e9fd1ab7713a5a51fbeeb7fd79a1cc'>gnu: eid-mw: Update to 4.4.3.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-06-22 22:00:25 +0200'>2018-06-22</span></td><td><a href='/guix/commit/gnu/packages/security-token.scm?id=080093ff6a5be997ec1458a8d0e0ca300ee3fc46'>gnu: eid-mw: Fix build.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-06-22 22:00:25 +0200'>2018-06-22</span></td><td><a href='/guix/commit/gnu/packages/security-token.scm?id=13151c326a2fb97d2d10e8fcf68d4bba15f20d1e'>gnu: eid-mw: Don't use unstable tarball.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-06-04 18:27:59 +0200'>2018-06-04</span></td><td><a href='/guix/commit/gnu/packages/security-token.scm?id=01c6607af9f308aa85483b096153c8f9c6b6adb1'>gnu: ccid, pcsc-lite: Move away from alioth.debian.org.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-05-01 22:48:33 -0700'>2018-05-01</span></td><td><a href='/guix/commit/gnu/packages/security-token.scm?id=ba8d8820fc823eff8e71ab3157e3728f67094373'>gnu: Add yubico-piv-tool.</a><span class='msg-avail'>...</span></td><td>Chris Marusich</td></tr>
<tr><td><span title='2018-05-01 22:44:07 -0700'>2018-05-01</span></td><td><a href='/guix/commit/gnu/packages/security-token.scm?id=a6706f30cbf1ac5fb9d9961d389a571963f08e7a'>gnu: Add opensc.</a><span class='msg-avail'>...</span></td><td>Chris Marusich</td></tr>