;;; 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")
df3baff081d'>root</a>/<a href='/guix/log/gnu?id=910ac0effe886a5aa2b3315b43c01df3baff081d'>gnu</a>/<a href='/guix/log/gnu/packages?id=910ac0effe886a5aa2b3315b43c01df3baff081d'>packages</a>/<a href='/guix/log/gnu/packages/node.scm?id=910ac0effe886a5aa2b3315b43c01df3baff081d'>node.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/node.scm?id=910ac0effe886a5aa2b3315b43c01df3baff081d&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2018-09-26 00:33:01 +0200'>2018-09-26</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=e789b85841aa013c4f6bd18f4dff99b30bf0b3a4'>gnu: Add Node LTS.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-09-26 00:33:01 +0200'>2018-09-26</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=020c4ef18e2a1ab877de803d697ca96acfa46624'>gnu: node: Delete expired tests.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-06-26 02:17:03 +0200'>2018-06-26</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=e90271604aa0b5ffd815f9000ec264a639aeecc8'>gnu: Use HTTPS for nodejs.org.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-06-26 02:17:03 +0200'>2018-06-26</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=5112238fd67106605d578f7f16e54b836c8cf732'>gnu: node: Return #t from all phases.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-04-30 04:03:54 -0400'>2018-04-30</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=3d5ad159b336a9903b31d0be7ae052dbc8d5bfcc'>Merge branch 'master' into core-updates</a></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2018-04-24 16:28:44 +0200'>2018-04-24</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=a65d88f2a50e7d4aa72a28706389934e4c48afe1'>gnu: node: Update to 9.11.1.</a><span class='msg-avail'>...</span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2018-03-29 17:34:41 +0200'>2018-03-29</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=5576cfabf3485e0cf794cc3de085a3578151ee64'>Merge branch 'master' into core-updates</a></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-03-28 23:33:53 +0200'>2018-03-28</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=ce353a548fcb7cae11c32579bff3bef9a7663830'>gnu: node: Update to 9.10.0.</a><span class='msg-avail'>...</span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2018-03-22 19:15:24 +0100'>2018-03-22</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=282e48eae92b1988fc7fddbf206030ccf1623728'>gnu: node: Update to 9.9.0.</a><span class='msg-avail'>...</span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2018-03-16 09:08:31 -0400'>2018-03-16</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=6cbee49d6668eb7fd738080666f66febfce8c7e8'>gnu: All snippets report errors using exceptions, else return #t.</a><span class='msg-avail'>...</span></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2018-03-12 18:04:16 +0100'>2018-03-12</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=fe5d4f81be40e68b8cbb846595e6f40d6cdbca13'>gnu: node: Use more unbundled dependencies.</a><span class='msg-avail'>...</span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2018-03-12 18:04:05 +0100'>2018-03-12</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=f06e391338346cae54d23071f49e572b4b6e5bb3'>gnu: node: Update to 9.8.0.</a><span class='msg-avail'>...</span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2018-02-02 17:21:06 +0100'>2018-02-02</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=b0881e0b55bf15d8111625607eb92968b65979ff'>gnu: node: Update to 9.4.0.</a><span class='msg-avail'>...</span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2017-12-25 00:15:18 +0100'>2017-12-25</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=80f642acd48831b3459c99b53c23bbab462ed0e4'>gnu: node: Update to 9.3.0.</a><span class='msg-avail'>...</span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2017-11-28 10:04:26 +0100'>2017-11-28</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=797d238789f7635bdd55aae103db1a7c4ff33798'>gnu: node: Update to 8.9.1.</a><span class='msg-avail'>...</span></td><td>Mike Gerwitz</td></tr>