[jackhill/guix/guix.git] / tests / hackage.scm

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
;;; Copyright © 2019 Robert Vollmert <rob@vllmrt.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-hackage)
  #:use-module (guix import cabal)
  #:use-module (guix import hackage)
  #:use-module (guix tests)
  #:use-module (srfi srfi-64)
  #:use-module (ice-9 match))

(define test-cabal-1
  "name: foo
version: 1.0.0
homepage: http://test.org
synopsis: synopsis
description: description
license: BSD3
executable cabal
  build-depends:
    HTTP       >= 4000.2.5 && < 4000.3,
    mtl        >= 2.0      && < 3
")

(define test-cabal-2
  "name: foo
version: 1.0.0
homepage: http://test.org
synopsis: synopsis
description: description
license: BSD3
executable cabal {
build-depends:
  HTTP       >= 4000.2.5 && < 4000.3,
  mtl        >= 2.0      && < 3
}
")

;; Check compiler implementation test with and without spaces.
(define test-cabal-3
  "name: foo
version: 1.0.0
homepage: http://test.org
synopsis: synopsis
description: description
license: BSD3
library
  if impl(ghc >= 7.2 && < 7.6)
    Build-depends: ghc-a
  if impl(ghc>=7.2&&<7.6)
    Build-depends: ghc-b
  if impl(ghc == 7.8)
    Build-depends: 
      HTTP       >= 4000.2.5 && < 4000.3,
      mtl        >= 2.0      && < 3
")

;; Check "-any", "-none" when name is different.
(define test-cabal-4
  "name: foo
version: 1.0.0
homepage: http://test.org
synopsis: synopsis
description: description
license: BSD3
library
  if impl(ghcjs -any)
    Build-depends: ghc-a
  if impl(ghc>=7.2&&<7.6)
    Build-depends: ghc-b
  if impl(ghc == 7.8)
    Build-depends: 
      HTTP       >= 4000.2.5 && < 4000.3,
      mtl        >= 2.0      && < 3
")

;; Check "-any", "-none".
(define test-cabal-5
  "name: foo
version: 1.0.0
homepage: http://test.org
synopsis: synopsis
description: description
license: BSD3
library
  if impl(ghc == 7.8)
    Build-depends: 
      HTTP       >= 4000.2.5 && < 4000.3,
  if impl(ghc -any)
    Build-depends: mtl        >= 2.0      && < 3
  if impl(ghc>=7.2&&<7.6)
    Build-depends: ghc-b
")

;; Check "custom-setup".
(define test-cabal-6
  "name: foo
build-type: Custom
version: 1.0.0
homepage: http://test.org
synopsis: synopsis
description: description
license: BSD3
custom-setup
  setup-depends: base >= 4.7 && < 5,
                 Cabal >= 1.24,
                 haskell-gi == 0.21.*
library
  if impl(ghc>=7.2&&<7.6)
    Build-depends: ghc-b
  if impl(ghc == 7.8)
    Build-depends: 
      HTTP       >= 4000.2.5 && < 4000.3,
      mtl        >= 2.0      && < 3
")

;; A fragment of a real Cabal file with minor modification to check precedence
;; of 'and' over 'or', missing final newline, spaces between keywords and
;; parentheses and between key and column.
(define test-read-cabal-1
  "name: test-me
library
  -- Choose which library versions to use.
  if flag(base4point8)
    Build-depends: base >= 4.8 && < 5
  else
    if flag(base4)
      Build-depends: base >= 4 && < 4.8
    else
      if flag(base3)
        Build-depends: base >= 3 && < 4
      else
        Build-depends: base < 3
  if flag(base4point8) || flag (base4) && flag(base3)
    Build-depends: random
  Build-depends : containers

  -- Modules that are always built.
  Exposed-Modules:
    Test.QuickCheck.Exception")

(test-begin "hackage")

(define-syntax-rule (define-package-matcher name pattern)
  (define* (name obj)
    (match obj
      (pattern #t)
      (x       (pk 'fail x #f)))))

(define-package-matcher match-ghc-foo
  ('package
    ('name "ghc-foo")
    ('version "1.0.0")
    ('source
     ('origin
       ('method 'url-fetch)
       ('uri ('string-append
              "https://hackage.haskell.org/package/foo/foo-"
              'version
              ".tar.gz"))
       ('sha256
        ('base32
         (? string? hash)))))
    ('build-system 'haskell-build-system)
    ('inputs
     ('quasiquote
      (("ghc-http" ('unquote 'ghc-http)))))
    ('home-page "http://test.org")
    ('synopsis (? string?))
    ('description (? string?))
    ('license 'bsd-3)))

(define* (eval-test-with-cabal test-cabal matcher #:key (cabal-environment '()))
  (define port (open-input-string test-cabal))
  (matcher (hackage->guix-package "foo" #:port port #:cabal-environment cabal-environment)))

(test-assert "hackage->guix-package test 1"
  (eval-test-with-cabal test-cabal-1 match-ghc-foo))

(test-assert "hackage->guix-package test 2"
  (eval-test-with-cabal test-cabal-2 match-ghc-foo))

(test-assert "hackage->guix-package test 3"
  (eval-test-with-cabal test-cabal-3 match-ghc-foo
                        #:cabal-environment '(("impl" . "ghc-7.8"))))

(test-assert "hackage->guix-package test 4"
  (eval-test-with-cabal test-cabal-4 match-ghc-foo
                        #:cabal-environment '(("impl" . "ghc-7.8"))))

(test-assert "hackage->guix-package test 5"
  (eval-test-with-cabal test-cabal-5 match-ghc-foo
                        #:cabal-environment '(("impl" . "ghc-7.8"))))

(define-package-matcher match-ghc-foo-6
  ('package
    ('name "ghc-foo")
    ('version "1.0.0")
    ('source
     ('origin
       ('method 'url-fetch)
       ('uri ('string-append
              "https://hackage.haskell.org/package/foo/foo-"
              'version
              ".tar.gz"))
       ('sha256
        ('base32
         (? string? hash)))))
    ('build-system 'haskell-build-system)
    ('inputs
     ('quasiquote
      (("ghc-b" ('unquote 'ghc-b))
       ("ghc-http" ('unquote 'ghc-http)))))
    ('native-inputs
     ('quasiquote
      (("ghc-haskell-gi" ('unquote 'ghc-haskell-gi)))))
    ('home-page "http://test.org")
    ('synopsis (? string?))
    ('description (? string?))
    ('license 'bsd-3)))

(test-assert "hackage->guix-package test 6"
  (eval-test-with-cabal test-cabal-6 match-ghc-foo-6))

;; Check multi-line layouted description.
(define test-cabal-multiline-layout
  "name: foo
version: 1.0.0
homepage: http://test.org
synopsis: synopsis
description:   first line
               second line
license: BSD3
executable cabal
  build-depends:
    HTTP       >= 4000.2.5 && < 4000.3,
    mtl        >= 2.0      && < 3
")

(test-assert "hackage->guix-package test multiline desc (layout)"
  (eval-test-with-cabal test-cabal-multiline-layout match-ghc-foo))

;; Check multi-line braced description.
(define test-cabal-multiline-braced
  "name: foo
version: 1.0.0
homepage: http://test.org
synopsis: synopsis
description: {
first line
second line
}
license: BSD3
executable cabal
  build-depends:
    HTTP       >= 4000.2.5 && < 4000.3,
    mtl        >= 2.0      && < 3
")

(test-assert "hackage->guix-package test multiline desc (braced)"
  (eval-test-with-cabal test-cabal-multiline-braced match-ghc-foo))

;; Check mixed layout. Compare e.g. warp.
(define test-cabal-mixed-layout
  "name: foo
version: 1.0.0
homepage: http://test.org
synopsis: synopsis
description: description
license: BSD3
executable cabal
    build-depends:
      HTTP       >= 4000.2.5 && < 4000.3,
      mtl        >= 2.0      && < 3
  ghc-options: -Wall
")

;; Fails: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=35743
(test-expect-fail 1)
(test-assert "hackage->guix-package test mixed layout"
  (eval-test-with-cabal test-cabal-mixed-layout match-ghc-foo))

;; Check flag executable. Compare e.g. darcs.
(define test-cabal-flag-executable
  "name: foo
version: 1.0.0
homepage: http://test.org
synopsis: synopsis
description: description
license: BSD3
flag executable
  description: Build executable
  default:     True
executable cabal
  if !flag(executable)
    buildable: False
  else
    buildable: True

  build-depends:
    HTTP       >= 4000.2.5 && < 4000.3,
    mtl        >= 2.0      && < 3
")

;; Fails: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=25138
(test-expect-fail 1)
(test-assert "hackage->guix-package test flag executable"
  (eval-test-with-cabal test-cabal-flag-executable match-ghc-foo))

;; Check Hackage Cabal revisions.
(define test-cabal-revision
  "name: foo
version: 1.0.0
x-revision: 2
homepage: http://test.org
synopsis: synopsis
description: description
license: BSD3
executable cabal
  build-depends:
    HTTP       >= 4000.2.5 && < 4000.3,
    mtl        >= 2.0      && < 3
")

(define-package-matcher match-ghc-foo-revision
  ('package
    ('name "ghc-foo")
    ('version "1.0.0")
    ('source
     ('origin
       ('method 'url-fetch)
       ('uri ('string-append
              "https://hackage.haskell.org/package/foo/foo-"
              'version
              ".tar.gz"))
       ('sha256
        ('base32
         (? string? hash)))))
    ('build-system 'haskell-build-system)
    ('inputs
     ('quasiquote
      (("ghc-http" ('unquote 'ghc-http)))))
    ('arguments
     ('quasiquote
      ('#:cabal-revision
       ("2" "0xxd88fb659f0krljidbvvmkh9ppjnx83j0nqzx8whcg4n5qbyng"))))
    ('home-page "http://test.org")
    ('synopsis (? string?))
    ('description (? string?))
    ('license 'bsd-3)))

(test-assert "hackage->guix-package test cabal revision"
  (eval-test-with-cabal test-cabal-revision match-ghc-foo-revision))

(test-assert "read-cabal test 1"
  (match (call-with-input-string test-read-cabal-1 read-cabal)
    ((("name" ("test-me"))
      ('section 'library
                (('if ('flag "base4point8")
                      (("build-depends" ("base >= 4.8 && < 5")))
                      (('if ('flag "base4")
                            (("build-depends" ("base >= 4 && < 4.8")))
                            (('if ('flag "base3")
                                  (("build-depends" ("base >= 3 && < 4")))
                                  (("build-depends" ("base < 3"))))))))
                 ('if ('or ('flag "base4point8")
                           ('and ('flag "base4") ('flag "base3")))
                      (("build-depends" ("random")))
                      ())
                 ("build-depends" ("containers"))
                 ("exposed-modules" ("Test.QuickCheck.Exception")))))
     #t)
    (x (pk 'fail x #f))))

(test-end "hackage")
Commit	Line	Data
b29455cf FB	1	;;; GNU Guix --- Functional package management for GNU
b29455cf FB	2	;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
b46a9b9a	3	;;; Copyright © 2019 Robert Vollmert <rob@vllmrt.net>
b29455cf FB	4	;;;
	5	;;; This file is part of GNU Guix.
	6	;;;
	7	;;; GNU Guix is free software; you can redistribute it and/or modify it
	8	;;; under the terms of the GNU General Public License as published by
	9	;;; the Free Software Foundation; either version 3 of the License, or (at
	10	;;; your option) any later version.
	11	;;;
	12	;;; GNU Guix is distributed in the hope that it will be useful, but
	13	;;; WITHOUT ANY WARRANTY; without even the implied warranty of
	14	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	;;; GNU General Public License for more details.
	16	;;;
	17	;;; You should have received a copy of the GNU General Public License
	18	;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
	19
	20	(define-module (test-hackage)
a4154748	21	#:use-module (guix import cabal)
b29455cf FB	22	#:use-module (guix import hackage)
	23	#:use-module (guix tests)
	24	#:use-module (srfi srfi-64)
	25	#:use-module (ice-9 match))
	26
	27	(define test-cabal-1
	28	"name: foo
	29	version: 1.0.0
	30	homepage: http://test.org
	31	synopsis: synopsis
	32	description: description
	33	license: BSD3
	34	executable cabal
	35	build-depends:
	36	HTTP >= 4000.2.5 && < 4000.3,
	37	mtl >= 2.0 && < 3
	38	")
	39
b29455cf	40	(define test-cabal-2
b29455cf FB	41	"name: foo
	42	version: 1.0.0
	43	homepage: http://test.org
	44	synopsis: synopsis
	45	description: description
	46	license: BSD3
a4154748 FB	47	executable cabal {
	48	build-depends:
	49	HTTP >= 4000.2.5 && < 4000.3,
	50	mtl >= 2.0 && < 3
	51	}
b29455cf FB	52	")
b29455cf FB	53
d3c827e4 FB	54	;; Check compiler implementation test with and without spaces.
	55	(define test-cabal-3
	56	"name: foo
	57	version: 1.0.0
	58	homepage: http://test.org
	59	synopsis: synopsis
	60	description: description
	61	license: BSD3
	62	library
	63	if impl(ghc >= 7.2 && < 7.6)
	64	Build-depends: ghc-a
	65	if impl(ghc>=7.2&&<7.6)
	66	Build-depends: ghc-b
	67	if impl(ghc == 7.8)
	68	Build-depends:
	69	HTTP >= 4000.2.5 && < 4000.3,
	70	mtl >= 2.0 && < 3
	71	")
	72
e39a44f3 DM	73	;; Check "-any", "-none" when name is different.
	74	(define test-cabal-4
	75	"name: foo
	76	version: 1.0.0
	77	homepage: http://test.org
	78	synopsis: synopsis
	79	description: description
	80	license: BSD3
	81	library
	82	if impl(ghcjs -any)
	83	Build-depends: ghc-a
	84	if impl(ghc>=7.2&&<7.6)
	85	Build-depends: ghc-b
	86	if impl(ghc == 7.8)
	87	Build-depends:
	88	HTTP >= 4000.2.5 && < 4000.3,
	89	mtl >= 2.0 && < 3
	90	")
	91
	92	;; Check "-any", "-none".
	93	(define test-cabal-5
	94	"name: foo
	95	version: 1.0.0
	96	homepage: http://test.org
	97	synopsis: synopsis
	98	description: description
	99	license: BSD3
	100	library
	101	if impl(ghc == 7.8)
	102	Build-depends:
	103	HTTP >= 4000.2.5 && < 4000.3,
	104	if impl(ghc -any)
	105	Build-depends: mtl >= 2.0 && < 3
	106	if impl(ghc>=7.2&&<7.6)
	107	Build-depends: ghc-b
	108	")
	109
	110	;; Check "custom-setup".
	111	(define test-cabal-6
	112	"name: foo
	113	build-type: Custom
	114	version: 1.0.0
	115	homepage: http://test.org
	116	synopsis: synopsis
	117	description: description
	118	license: BSD3
	119	custom-setup
	120	setup-depends: base >= 4.7 && < 5,
	121	Cabal >= 1.24,
	122	haskell-gi == 0.21.*
	123	library
	124	if impl(ghc>=7.2&&<7.6)
	125	Build-depends: ghc-b
	126	if impl(ghc == 7.8)
	127	Build-depends:
	128	HTTP >= 4000.2.5 && < 4000.3,
	129	mtl >= 2.0 && < 3
	130	")
	131
a4154748	132	;; A fragment of a real Cabal file with minor modification to check precedence
d3c827e4 FB	133	;; of 'and' over 'or', missing final newline, spaces between keywords and
d3c827e4 FB	134	;; parentheses and between key and column.
a4154748 FB	135	(define test-read-cabal-1
	136	"name: test-me
	137	library
	138	-- Choose which library versions to use.
	139	if flag(base4point8)
	140	Build-depends: base >= 4.8 && < 5
	141	else
	142	if flag(base4)
	143	Build-depends: base >= 4 && < 4.8
	144	else
	145	if flag(base3)
	146	Build-depends: base >= 3 && < 4
	147	else
	148	Build-depends: base < 3
d3c827e4	149	if flag(base4point8) \|\| flag (base4) && flag(base3)
a4154748	150	Build-depends: random
d3c827e4	151	Build-depends : containers
a4154748 FB	152
	153	-- Modules that are always built.
	154	Exposed-Modules:
d3c827e4	155	Test.QuickCheck.Exception")
b29455cf FB	156
	157	(test-begin "hackage")
	158
55c98f32 RV	159	(define-syntax-rule (define-package-matcher name pattern)
	160	(define* (name obj)
	161	(match obj
	162	(pattern #t)
	163	(x (pk 'fail x #f)))))
	164
	165	(define-package-matcher match-ghc-foo
	166	('package
	167	('name "ghc-foo")
	168	('version "1.0.0")
	169	('source
	170	('origin
	171	('method 'url-fetch)
	172	('uri ('string-append
	173	"https://hackage.haskell.org/package/foo/foo-"
	174	'version
	175	".tar.gz"))
	176	('sha256
	177	('base32
	178	(? string? hash)))))
	179	('build-system 'haskell-build-system)
	180	('inputs
	181	('quasiquote
ea35f5c5	182	(("ghc-http" ('unquote 'ghc-http)))))
55c98f32 RV	183	('home-page "http://test.org")
	184	('synopsis (? string?))
	185	('description (? string?))
	186	('license 'bsd-3)))
	187
	188	(define* (eval-test-with-cabal test-cabal matcher #:key (cabal-environment '()))
4110cde0 RV	189	(define port (open-input-string test-cabal))
4110cde0 RV	190	(matcher (hackage->guix-package "foo" #:port port #:cabal-environment cabal-environment)))
b29455cf FB	191
b29455cf FB	192	(test-assert "hackage->guix-package test 1"
55c98f32	193	(eval-test-with-cabal test-cabal-1 match-ghc-foo))
b29455cf FB	194
b29455cf FB	195	(test-assert "hackage->guix-package test 2"
55c98f32	196	(eval-test-with-cabal test-cabal-2 match-ghc-foo))
b29455cf	197
d3c827e4	198	(test-assert "hackage->guix-package test 3"
55c98f32	199	(eval-test-with-cabal test-cabal-3 match-ghc-foo
d3c827e4 FB	200	#:cabal-environment '(("impl" . "ghc-7.8"))))
d3c827e4 FB	201
e39a44f3	202	(test-assert "hackage->guix-package test 4"
55c98f32	203	(eval-test-with-cabal test-cabal-4 match-ghc-foo
e39a44f3 DM	204	#:cabal-environment '(("impl" . "ghc-7.8"))))
	205
	206	(test-assert "hackage->guix-package test 5"
55c98f32	207	(eval-test-with-cabal test-cabal-5 match-ghc-foo
e39a44f3 DM	208	#:cabal-environment '(("impl" . "ghc-7.8"))))
e39a44f3 DM	209
55c98f32 RV	210	(define-package-matcher match-ghc-foo-6
	211	('package
	212	('name "ghc-foo")
	213	('version "1.0.0")
	214	('source
	215	('origin
	216	('method 'url-fetch)
	217	('uri ('string-append
	218	"https://hackage.haskell.org/package/foo/foo-"
	219	'version
	220	".tar.gz"))
	221	('sha256
	222	('base32
	223	(? string? hash)))))
	224	('build-system 'haskell-build-system)
	225	('inputs
	226	('quasiquote
	227	(("ghc-b" ('unquote 'ghc-b))
ea35f5c5	228	("ghc-http" ('unquote 'ghc-http)))))
55c98f32 RV	229	('native-inputs
	230	('quasiquote
	231	(("ghc-haskell-gi" ('unquote 'ghc-haskell-gi)))))
	232	('home-page "http://test.org")
	233	('synopsis (? string?))
	234	('description (? string?))
	235	('license 'bsd-3)))
	236
e39a44f3	237	(test-assert "hackage->guix-package test 6"
55c98f32	238	(eval-test-with-cabal test-cabal-6 match-ghc-foo-6))
e39a44f3	239
b46a9b9a	240	;; Check multi-line layouted description.
959c9d15	241	(define test-cabal-multiline-layout
64d31813 RV	242	"name: foo
	243	version: 1.0.0
	244	homepage: http://test.org
	245	synopsis: synopsis
	246	description: first line
	247	second line
	248	license: BSD3
	249	executable cabal
	250	build-depends:
	251	HTTP >= 4000.2.5 && < 4000.3,
	252	mtl >= 2.0 && < 3
	253	")
	254
959c9d15 RV	255	(test-assert "hackage->guix-package test multiline desc (layout)"
959c9d15 RV	256	(eval-test-with-cabal test-cabal-multiline-layout match-ghc-foo))
64d31813	257
b46a9b9a	258	;; Check multi-line braced description.
959c9d15 RV	259	(define test-cabal-multiline-braced
	260	"name: foo
	261	version: 1.0.0
	262	homepage: http://test.org
	263	synopsis: synopsis
	264	description: {
	265	first line
	266	second line
	267	}
	268	license: BSD3
	269	executable cabal
	270	build-depends:
	271	HTTP >= 4000.2.5 && < 4000.3,
	272	mtl >= 2.0 && < 3
	273	")
	274
	275	(test-assert "hackage->guix-package test multiline desc (braced)"
	276	(eval-test-with-cabal test-cabal-multiline-braced match-ghc-foo))
64d31813	277
b46a9b9a RV	278	;; Check mixed layout. Compare e.g. warp.
	279	(define test-cabal-mixed-layout
	280	"name: foo
	281	version: 1.0.0
	282	homepage: http://test.org
	283	synopsis: synopsis
	284	description: description
	285	license: BSD3
	286	executable cabal
	287	build-depends:
	288	HTTP >= 4000.2.5 && < 4000.3,
	289	mtl >= 2.0 && < 3
	290	ghc-options: -Wall
	291	")
	292
	293	;; Fails: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=35743
	294	(test-expect-fail 1)
	295	(test-assert "hackage->guix-package test mixed layout"
	296	(eval-test-with-cabal test-cabal-mixed-layout match-ghc-foo))
	297
	298	;; Check flag executable. Compare e.g. darcs.
	299	(define test-cabal-flag-executable
	300	"name: foo
	301	version: 1.0.0
	302	homepage: http://test.org
	303	synopsis: synopsis
	304	description: description
	305	license: BSD3
	306	flag executable
	307	description: Build executable
	308	default: True
	309	executable cabal
	310	if !flag(executable)
	311	buildable: False
	312	else
	313	buildable: True
	314
	315	build-depends:
	316	HTTP >= 4000.2.5 && < 4000.3,
	317	mtl >= 2.0 && < 3
	318	")
	319
	320	;; Fails: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=25138
	321	(test-expect-fail 1)
	322	(test-assert "hackage->guix-package test flag executable"
	323	(eval-test-with-cabal test-cabal-flag-executable match-ghc-foo))
	324
ca45da9f RV	325	;; Check Hackage Cabal revisions.
	326	(define test-cabal-revision
	327	"name: foo
	328	version: 1.0.0
	329	x-revision: 2
	330	homepage: http://test.org
	331	synopsis: synopsis
	332	description: description
	333	license: BSD3
	334	executable cabal
	335	build-depends:
	336	HTTP >= 4000.2.5 && < 4000.3,
	337	mtl >= 2.0 && < 3
	338	")
	339
	340	(define-package-matcher match-ghc-foo-revision
	341	('package
	342	('name "ghc-foo")
	343	('version "1.0.0")
	344	('source
	345	('origin
	346	('method 'url-fetch)
	347	('uri ('string-append
	348	"https://hackage.haskell.org/package/foo/foo-"
	349	'version
	350	".tar.gz"))
	351	('sha256
	352	('base32
	353	(? string? hash)))))
	354	('build-system 'haskell-build-system)
	355	('inputs
	356	('quasiquote
	357	(("ghc-http" ('unquote 'ghc-http)))))
	358	('arguments
	359	('quasiquote
	360	('#:cabal-revision
	361	("2" "0xxd88fb659f0krljidbvvmkh9ppjnx83j0nqzx8whcg4n5qbyng"))))
	362	('home-page "http://test.org")
	363	('synopsis (? string?))
	364	('description (? string?))
	365	('license 'bsd-3)))
	366
	367	(test-assert "hackage->guix-package test cabal revision"
	368	(eval-test-with-cabal test-cabal-revision match-ghc-foo-revision))
	369
a4154748 FB	370	(test-assert "read-cabal test 1"
	371	(match (call-with-input-string test-read-cabal-1 read-cabal)
	372	((("name" ("test-me"))
	373	('section 'library
0be46592 RV	374	(('if ('flag "base4point8")
	375	(("build-depends" ("base >= 4.8 && < 5")))
	376	(('if ('flag "base4")
	377	(("build-depends" ("base >= 4 && < 4.8")))
	378	(('if ('flag "base3")
	379	(("build-depends" ("base >= 3 && < 4")))
	380	(("build-depends" ("base < 3"))))))))
	381	('if ('or ('flag "base4point8")
	382	('and ('flag "base4") ('flag "base3")))
	383	(("build-depends" ("random")))
	384	())
	385	("build-depends" ("containers"))
	386	("exposed-modules" ("Test.QuickCheck.Exception")))))
b29455cf	387	#t)
a4154748	388	(x (pk 'fail x #f))))
b29455cf FB	389
b29455cf FB	390	(test-end "hackage")