tests/print.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2017, 2020 Ricardo Wurmus <rekado@elephly.net>
   3 ;;;
   4 ;;; This file is part of GNU Guix.
   5 ;;;
   6 ;;; GNU Guix is free software; you can redistribute it and/or modify it
   7 ;;; under the terms of the GNU General Public License as published by
   8 ;;; the Free Software Foundation; either version 3 of the License, or (at
   9 ;;; your option) any later version.
  10 ;;;
  11 ;;; GNU Guix is distributed in the hope that it will be useful, but
  12 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 ;;; GNU General Public License for more details.
  15 ;;;
  16 ;;; You should have received a copy of the GNU General Public License
  17 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 (define-module (test-print)
  20   #:use-module (guix import print)
  21   #:use-module (guix build-system gnu)
  22   #:use-module (guix download)
  23   #:use-module (guix packages)
  24   #:use-module ((guix licenses) #:prefix license:)
  25   #:use-module (srfi srfi-64))
  26
  27 (define-syntax-rule (define-with-source object source expr)
  28   (begin
  29     (define object expr)
  30     (define source 'expr)))
  31
  32 (test-begin "print")
  33
  34 (define-with-source pkg pkg-source
  35   (package
  36     (name "test")
  37     (version "1.2.3")
  38     (source (origin
  39               (method url-fetch)
  40               (uri (string-append "file:///tmp/test-"
  41                                   version ".tar.gz"))
  42               (sha256
  43                (base32
  44                 "070pwb7brdcn1mfvplkd56vjc7lbz4iznzkqvfsakvgbv68k71ah"))))
  45     (build-system (@ (guix build-system gnu) gnu-build-system))
  46     (home-page "http://gnu.org")
  47     (synopsis "Dummy")
  48     (description "This is a dummy package.")
  49     (license license:gpl3+)))
  50
  51 (define-with-source pkg-with-inputs pkg-with-inputs-source
  52   (package
  53     (name "test")
  54     (version "1.2.3")
  55     (source (origin
  56               (method url-fetch)
  57               (uri (string-append "file:///tmp/test-"
  58                                   version ".tar.gz"))
  59               (sha256
  60                (base32
  61                 "070pwb7brdcn1mfvplkd56vjc7lbz4iznzkqvfsakvgbv68k71ah"))))
  62     (build-system (@ (guix build-system gnu) gnu-build-system))
  63     (inputs `(("coreutils" ,(@ (gnu packages base) coreutils))
  64               ("glibc" ,(@ (gnu packages base) glibc) "debug")))
  65     (home-page "http://gnu.org")
  66     (synopsis "Dummy")
  67     (description "This is a dummy package.")
  68     (license license:gpl3+)))
  69
  70 (test-equal "simple package"
  71   `(define-public test ,pkg-source)
  72   (package->code pkg))
  73
  74 (test-equal "package with inputs"
  75   `(define-public test ,pkg-with-inputs-source)
  76   (package->code pkg-with-inputs))
  77
  78 (test-end "print")