;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
;;;
;;; 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-print)
  #:use-module (guix import print)
  #:use-module (guix build-system gnu)
  #:use-module (guix download)
  #:use-module (guix packages)
  #:use-module (guix licenses)
  #:use-module (srfi srfi-64))

(test-begin "print")

(define pkg
  (package
    (name "test")
    (version "1.2.3")
    (source (origin
              (method url-fetch)
              (uri (string-append "file:///tmp/test-"
                                  version ".tar.gz"))
              (sha256
               (base32
                "070pwb7brdcn1mfvplkd56vjc7lbz4iznzkqvfsakvgbv68k71ah"))))
    (build-system gnu-build-system)
    (home-page "http://gnu.org")
    (synopsis "Dummy")
    (description "This is a dummy package.")
    (license gpl3+)))

(test-equal "simple package"
  (package->code pkg)
  '(package
     (name "test")
     (version "1.2.3")
     (source (origin
               (method url-fetch)
               (uri (string-append "file:///tmp/test-"
                                   version ".tar.gz"))
               (sha256
                (base32
                 "070pwb7brdcn1mfvplkd56vjc7lbz4iznzkqvfsakvgbv68k71ah"))))
     (build-system gnu-build-system)
     (home-page "http://gnu.org")
     (synopsis "Dummy")
     (description "This is a dummy package.")
     (license gpl3+)))

(test-end "print")
g/?id=48d5818a0e9cf9ceec4e1b76ee4309e048e5f57e'>root</a>/<a href='/guix/log/gnu?id=48d5818a0e9cf9ceec4e1b76ee4309e048e5f57e'>gnu</a>/<a href='/guix/log/gnu/packages?id=48d5818a0e9cf9ceec4e1b76ee4309e048e5f57e'>packages</a>/<a href='/guix/log/gnu/packages/benchmark.scm?id=48d5818a0e9cf9ceec4e1b76ee4309e048e5f57e'>benchmark.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/packages/benchmark.scm?id=48d5818a0e9cf9ceec4e1b76ee4309e048e5f57e&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2018-11-07 21:09:00 +0100'>2018-11-07</span></td><td><a href='/guix/commit/gnu/packages/benchmark.scm?id=b31e1561611ebe4916890183b24e6e13cb83bf59'>gnu: fio: Update to 3.11.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-06-14 15:41:09 +0200'>2018-06-14</span></td><td><a href='/guix/commit/gnu/packages/benchmark.scm?id=f715f102e076872d560ea2c12a9618f99ef1f707'>gnu: fio: Update to 3.7.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2018-04-26 21:08:58 +0200'>2018-04-26</span></td><td><a href='/guix/commit/gnu/packages/benchmark.scm?id=1cc3e26b6aeb4acd406b7f57a436bf4c4b35aa93'>gnu: fio: Use INVOKE.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-04-25 15:09:22 +0200'>2018-04-25</span></td><td><a href='/guix/commit/gnu/packages/benchmark.scm?id=5843dab8fbb8f4583e37c16a9295b7b7917eebd8'>gnu: fio: Update to 3.6.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-02-22 14:15:17 +0100'>2018-02-22</span></td><td><a href='/guix/commit/gnu/packages/benchmark.scm?id=fdc38cb6caa1a99f723c3adb7e8dc86341af2bb0'>gnu: fio: Update to 3.5.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-02-14 20:23:19 +0100'>2018-02-14</span></td><td><a href='/guix/commit/gnu/packages/benchmark.scm?id=1a46a6d02d55e50062fd767ce14cadbbbdc0e9f5'>gnu: fio: Update to 3.4.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-01-10 23:40:36 +0100'>2018-01-10</span></td><td><a href='/guix/commit/gnu/packages/benchmark.scm?id=cd661a4175ec1a51ec69aee8cec398b20fd29df7'>gnu: fio: Update to 3.3.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2017-11-05 16:16:51 +0100'>2017-11-05</span></td><td><a href='/guix/commit/gnu/packages/benchmark.scm?id=7561be869939cfab80f409d16478f302e56a6033'>gnu: fio: Update to 3.2.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2017-11-05 12:29:46 +0200'>2017-11-05</span></td><td><a href='/guix/commit/gnu/packages/benchmark.scm?id=50c229caf9b8d09944838f0fb92d3121bbb2a4bc'>gnu: fio: Update to 3.1.</a><span class='msg-avail'>...</span></td><td>Manolis Ragkousis</td></tr>
<tr><td><span title='2017-10-05 12:09:17 +0200'>2017-10-05</span></td><td><a href='/guix/commit/gnu/packages/benchmark.scm?id=04717e9406f3b5171ad28ed67d926ce0e25da94d'>gnu: Add imb-openmpi.</a><span class='msg-avail'>...</span></td><td>Dave Love</td></tr>
<tr><td><span title='2017-05-21 16:33:42 +0200'>2017-05-21</span></td><td><a href='/guix/commit/gnu/packages/benchmark.scm?id=20d2e1faa9deb12abcb094941c904ea16a1e2ecc'>gnu: fio: Update to 2.20.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2017-04-16 21:23:51 +0200'>2017-04-16</span></td><td><a href='/guix/commit/gnu/packages/benchmark.scm?id=0d82fafea4475896a00fabadd12bee6515ea8c7f'>gnu: fio: Update to 2.19.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2017-03-28 16:38:17 +0200'>2017-03-28</span></td><td><a href='/guix/commit/gnu/packages/benchmark.scm?id=aadead6f17ef240714d06513e8b4f42b9f0ecf85'>gnu: fio: Enable rbd support.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2017-03-28 15:51:28 +0200'>2017-03-28</span></td><td><a href='/guix/commit/gnu/packages/benchmark.scm?id=f125ec8ef2ae3648047f85ab9f8b554b5a13bbbc'>gnu: fio: Install python scripts in separate output.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2017-02-24 19:44:10 +0100'>2017-02-24</span></td><td><a href='/guix/commit/gnu/packages/benchmark.scm?id=cf46d0715096da47535815519e2d711e631e8fd7'>gnu: fio: Update to 2.18.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>