;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017, 2020 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) #:prefix license:)
  #:use-module (srfi srfi-64))

(define-syntax-rule (define-with-source object source expr)
  (begin
    (define object expr)
    (define source 'expr)))

(test-begin "print")

(define-with-source pkg pkg-source
  (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 (@ (guix build-system gnu) gnu-build-system))
    (home-page "http://gnu.org")
    (synopsis "Dummy")
    (description "This is a dummy package.")
    (license license:gpl3+)))

(define-with-source pkg-with-inputs pkg-with-inputs-source
  (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 (@ (guix build-system gnu) gnu-build-system))
    (inputs `(("coreutils" ,(@ (gnu packages base) coreutils))
              ("glibc" ,(@ (gnu packages base) glibc) "debug")))
    (home-page "http://gnu.org")
    (synopsis "Dummy")
    (description "This is a dummy package.")
    (license license:gpl3+)))

(test-equal "simple package"
  `(define-public test ,pkg-source)
  (package->code pkg))

(test-equal "package with inputs"
  `(define-public test ,pkg-with-inputs-source)
  (package->code pkg-with-inputs))

(test-end "print")
uthor</th></tr>
<tr><td><span title='2022-01-17 00:18:23 +0100'>2022-01-17</span></td><td><a href='/guix/commit/gnu/packages/matrix.scm?id=863b7b7dd7059e9e2c78f89b501919042159eccd'>gnu: pantalaimon: Add needed inputs</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/matrix.scm (pantalaimon)
&lt;propagated-inputs&gt;: Add python-dbus, python-notify2, python-pydbus, and
python-pygobject.
&lt;arguments&gt;: Run sanity-check phase.

Co-authored-by: Aleksandr Vityazev &lt;avityazev@posteo.org&gt;
Signed-off-by: Nicolas Goaziou &lt;mail@nicolasgoaziou.fr&gt;
</span></span></td><td>Morgan Smith</td></tr>
<tr><td><span title='2022-01-12 23:50:15 +0100'>2022-01-12</span></td><td><a href='/guix/commit/gnu/packages/matrix.scm?id=fb6de84a6b9ed38fc4fbf4fad89a0f8fe25111eb'>gnu: python-matrix-synapse-ldap3: Fix build.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/matrix.scm (python-matrix-synapse-ldap3)[arguments]: Delete
sanity check.
</span></span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2022-01-11 18:36:38 +0100'>2022-01-11</span></td><td><a href='/guix/commit/gnu/packages/matrix.scm?id=6a86d59e28250771a3a0537108869f8c5bdee0a4'>gnu: pantalaimon: Disable sanity check.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/matrix.scm (pantalaimon)[arguments]: Disable sanity-check phase.
</span></span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2021-12-13 17:48:25 +0100'>2021-12-13</span></td><td><a href='/guix/commit/gnu/packages/matrix.scm?id=8394619baceb118df92e355377fd543bb1aa501a'>gnu: Simplify package inputs.</a><span class='msg-avail'>...<span class='msg-tooltip'>This commit was obtained by running:

  ./pre-inst-env guix style

without any additional argument.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-10-18 09:02:42 +0200'>2021-10-18</span></td><td><a href='/guix/commit/gnu/packages/matrix.scm?id=276e2f38b0a531344c2b3825848ce6cb89c7c34a'>gnu: Add pantalaimon.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/matrix.scm (pantalaimon): New variable.

Signed-off-by: Lars-Dominik Braun &lt;lars@6xq.net&gt;
</span></span></td><td>Sébastien Lerique</td></tr>
<tr><td><span title='2021-10-18 09:02:42 +0200'>2021-10-18</span></td><td><a href='/guix/commit/gnu/packages/matrix.scm?id=481b16478310eb6b73c086def3b7952fefaced18'>gnu: Add python-matrix-nio.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/matrix.scm (python-matrix-nio): New variable.

Signed-off-by: Lars-Dominik Braun &lt;lars@6xq.net&gt;
</span></span></td><td>Sébastien Lerique</td></tr>
<tr><td><span title='2021-10-15 13:06:11 +0200'>2021-10-15</span></td><td><a href='/guix/commit/gnu/packages/matrix.scm?id=57f2b19edfb1f4da628876ccd4698199a9a1b724'>gnu: synapse: Downgrade to 1.29.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>As discussed in [1] and [2], python-synapse 1.44.0 does not work with
our version of python-cryptography.

[1]: https://lists.gnu.org/archive/html/guix-patches/2021-10/msg00732.html
[2]: https://issues.guix.gnu.org/issue/48655

This reverts commit a6c30da4dc963e8a6282773fd1c2048d856a6cb4.

* gnu/packages/matrix.scm (synapse): Downgrade to 1.29.0.

Signed-off-by: Tobias Geerinckx-Rice &lt;me@tobias.gr&gt;
</span></span></td><td>Felix Gruber</td></tr>
<tr><td><span title='2021-10-12 18:13:29 +0200'>2021-10-12</span></td><td><a href='/guix/commit/gnu/packages/matrix.scm?id=a6c30da4dc963e8a6282773fd1c2048d856a6cb4'>gnu: synapse: Update to 1.44.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/matrix.scm (synapse): Update to 1.44.0.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Felix Gruber</td></tr>
<tr><td><span title='2021-04-01 15:14:28 +0300'>2021-04-01</span></td><td><a href='/guix/commit/gnu/packages/matrix.scm?id=536fa1bd236f958fdbdb518cd406d28493755538'>gnu: Add python-matrix-client.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/matrix.scm (python-matrix-client): New variable.

Signed-off-by: Efraim Flashner &lt;efraim@flashner.co.il&gt;
</span></span></td><td>Giacomo Leidi</td></tr>
<tr><td><span title='2021-03-25 16:59:01 +0000'>2021-03-25</span></td><td><a href='/guix/commit/gnu/packages/matrix.scm?id=0098fcecf0c196fd645c1dc44d2897ef1d58c730'>gnu: synapse: Update to 1.29.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/matrix.scm (synapse): Update to 1.29.0.
</span></span></td><td>Rafa Gálvez</td></tr>