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

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev>
;;; Copyright © 2022 Taiju HIGASHI <higashi@taiju.info>
;;;
;;; 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-gem)
  #:use-module (guix import gem)
  #:use-module (guix base32)
  #:use-module (gcrypt hash)
  #:use-module (guix tests)
  #:use-module ((guix build utils) #:select (delete-file-recursively))
  #:use-module (srfi srfi-64)
  #:use-module (ice-9 match))

(define test-foo-json
  "{
  \"name\": \"foo\",
  \"version\": \"1.0.0\",
  \"sha\": \"f3676eafca9987cb5fe263df1edf2538bf6dafc712b30e17be3543a9680547a8\",
  \"info\": \"A cool gem\",
  \"homepage_uri\": \"https://example.com\",
  \"dependencies\": {
    \"runtime\": [
      { \"name\": \"bundler\" },
      { \"name\": \"bar\" }
    ]
  },
  \"licenses\": [\"MIT\", \"Apache 2.0\"]
}")

(define test-foo-v2-json
  "{
  \"name\": \"foo\",
  \"version\": \"2.0.0\",
  \"sha\": \"f3676eafca9987cb5fe263df1edf2538bf6dafc712b30e17be3543a9680547a8\",
  \"info\": \"A cool gem\",
  \"homepage_uri\": \"https://example.com\",
  \"dependencies\": {
    \"runtime\": [
      { \"name\": \"bundler\" },
      { \"name\": \"bar\" }
    ]
  },
  \"licenses\": [\"MIT\", \"Apache 2.0\"]
}")

(define test-bar-json
  "{
  \"name\": \"bar\",
  \"version\": \"1.0.0\",
  \"sha\": \"f3676eafca9987cb5fe263df1edf2538bf6dafc712b30e17be3543a9680547a8\",
  \"info\": \"Another cool gem\",
  \"homepage_uri\": \"https://example.com\",
  \"dependencies\": {
    \"runtime\": [
      { \"name\": \"bundler\" }
    ]
  },
  \"licenses\": null
}")

(define test-bundler-json
  "{
  \"name\": \"bundler\",
  \"version\": \"1.14.2\",
  \"sha\": \"3bb53e03db0a8008161eb4c816ccd317120d3c415ba6fee6f90bbc7f7eec8690\",
  \"info\": \"Ruby gem bundler\",
  \"homepage_uri\": \"https://bundler.io/\",
  \"dependencies\": {
    \"runtime\": []
  },
  \"licenses\": [\"MIT\"]
}")

(test-begin "gem")

(test-assert "gem->guix-package"
  ;; Replace network resources with sample data.
  (mock ((guix http-client) http-fetch
         (lambda (url . rest)
           (match url
             ("https://rubygems.org/api/v1/gems/foo.json"
              (values (open-input-string test-foo-json)
                      (string-length test-foo-json)))
             (_ (error "Unexpected URL: " url)))))
    (match (gem->guix-package "foo")
      (('package
         ('name "ruby-foo")
         ('version "1.0.0")
         ('source ('origin
                    ('method 'url-fetch)
                    ('uri ('rubygems-uri "foo" 'version))
                    ('sha256
                     ('base32
                      "1a270mlajhrmpqbhxcqjqypnvgrq4pgixpv3w9gwp1wrrapnwrzk"))))
         ('build-system 'ruby-build-system)
         ('propagated-inputs ('list 'bundler 'ruby-bar))
         ('synopsis "A cool gem")
         ('description "This package provides a cool gem")
         ('home-page "https://example.com")
         ('license ('list 'license:expat 'license:asl2.0)))
       #t)
      (x
       (pk 'fail x #f)))))

(test-assert "gem->guix-package with a specific version"
  ;; Replace network resources with sample data.
  (mock ((guix http-client) http-fetch
         (lambda (url . rest)
           (match url
             ("https://rubygems.org/api/v2/rubygems/foo/versions/2.0.0.json"
              (values (open-input-string test-foo-v2-json)
                      (string-length test-foo-v2-json)))
             (_ (error "Unexpected URL: " url)))))
    (match (gem->guix-package "foo" #:version "2.0.0")
      (('package
         ('name "ruby-foo")
         ('version "2.0.0")
         ('source ('origin
                    ('method 'url-fetch)
                    ('uri ('rubygems-uri "foo" 'version))
                    ('sha256
                     ('base32
                      "1a270mlajhrmpqbhxcqjqypnvgrq4pgixpv3w9gwp1wrrapnwrzk"))))
         ('build-system 'ruby-build-system)
         ('propagated-inputs ('list 'bundler 'ruby-bar))
         ('synopsis "A cool gem")
         ('description "This package provides a cool gem")
         ('home-page "https://example.com")
         ('license ('list 'license:expat 'license:asl2.0)))
       #t)
      (x
       (pk 'fail x #f)))))

(test-assert "gem-recursive-import"
  ;; Replace network resources with sample data.
  (mock ((guix http-client) http-fetch
         (lambda (url . rest)
           (match url
             ("https://rubygems.org/api/v1/gems/foo.json"
              (values (open-input-string test-foo-json)
                      (string-length test-foo-json)))
             ("https://rubygems.org/api/v1/gems/bar.json"
              (values (open-input-string test-bar-json)
                      (string-length test-bar-json)))
             ("https://rubygems.org/api/v1/gems/bundler.json"
              (values (open-input-string test-bundler-json)
                      (string-length test-bundler-json)))
             (_ (error "Unexpected URL: " url)))))
        (match (gem-recursive-import "foo")
          ((('package
              ('name "ruby-bar")
              ('version "1.0.0")
              ('source
               ('origin
                 ('method 'url-fetch)
                 ('uri ('rubygems-uri "bar" 'version))
                 ('sha256
                  ('base32
                   "1a270mlajhrmpqbhxcqjqypnvgrq4pgixpv3w9gwp1wrrapnwrzk"))))
              ('build-system 'ruby-build-system)
              ('propagated-inputs ('list 'bundler))
              ('synopsis "Another cool gem")
              ('description "Another cool gem")
              ('home-page "https://example.com")
              ('license #f))                      ;no licensing info
            ('package
              ('name "ruby-bundler")
              ('version "1.14.2")
              ('source
               ('origin
                 ('method 'url-fetch)
                 ('uri ('rubygems-uri "bundler" 'version))
                 ('sha256
                  ('base32
                   "1446xiz7zg0bz7kgx9jv84y0s4hpsg61dj5l3qb0i00avc1kxd9v"))))
              ('build-system 'ruby-build-system)
              ('synopsis "Ruby gem bundler")
              ('description "Ruby gem bundler")
              ('home-page "https://bundler.io/")
              ('license 'license:expat))
            ('package
              ('name "ruby-foo")
              ('version "1.0.0")
              ('source
               ('origin
                 ('method 'url-fetch)
                 ('uri ('rubygems-uri "foo" 'version))
                 ('sha256
                  ('base32
                   "1a270mlajhrmpqbhxcqjqypnvgrq4pgixpv3w9gwp1wrrapnwrzk"))))
              ('build-system 'ruby-build-system)
              ('propagated-inputs ('list 'bundler 'ruby-bar))
              ('synopsis "A cool gem")
              ('description "This package provides a cool gem")
              ('home-page "https://example.com")
              ('license ('list 'license:expat 'license:asl2.0))))
           #t)
          (x
           (pk 'fail x #f)))))

(test-assert "gem-recursive-import with a specific version"
  ;; Replace network resources with sample data.
  (mock ((guix http-client) http-fetch
         (lambda (url . rest)
           (match url
             ("https://rubygems.org/api/v2/rubygems/foo/versions/2.0.0.json"
              (values (open-input-string test-foo-v2-json)
                      (string-length test-foo-v2-json)))
             ("https://rubygems.org/api/v1/gems/bar.json"
              (values (open-input-string test-bar-json)
                      (string-length test-bar-json)))
             ("https://rubygems.org/api/v1/gems/bundler.json"
              (values (open-input-string test-bundler-json)
                      (string-length test-bundler-json)))
             (_ (error "Unexpected URL: " url)))))
        (match (gem-recursive-import "foo" "2.0.0")
          ((('package
              ('name "ruby-bar")
              ('version "1.0.0")
              ('source
               ('origin
                 ('method 'url-fetch)
                 ('uri ('rubygems-uri "bar" 'version))
                 ('sha256
                  ('base32
                   "1a270mlajhrmpqbhxcqjqypnvgrq4pgixpv3w9gwp1wrrapnwrzk"))))
              ('build-system 'ruby-build-system)
              ('propagated-inputs ('list 'bundler))
              ('synopsis "Another cool gem")
              ('description "Another cool gem")
              ('home-page "https://example.com")
              ('license #f))                      ;no licensing info
            ('package
              ('name "ruby-bundler")
              ('version "1.14.2")
              ('source
               ('origin
                 ('method 'url-fetch)
                 ('uri ('rubygems-uri "bundler" 'version))
                 ('sha256
                  ('base32
                   "1446xiz7zg0bz7kgx9jv84y0s4hpsg61dj5l3qb0i00avc1kxd9v"))))
              ('build-system 'ruby-build-system)
              ('synopsis "Ruby gem bundler")
              ('description "Ruby gem bundler")
              ('home-page "https://bundler.io/")
              ('license 'license:expat))
            ('package
              ('name "ruby-foo")
              ('version "2.0.0")
              ('source
               ('origin
                 ('method 'url-fetch)
                 ('uri ('rubygems-uri "foo" 'version))
                 ('sha256
                  ('base32
                   "1a270mlajhrmpqbhxcqjqypnvgrq4pgixpv3w9gwp1wrrapnwrzk"))))
              ('build-system 'ruby-build-system)
              ('propagated-inputs ('list 'bundler 'ruby-bar))
              ('synopsis "A cool gem")
              ('description "This package provides a cool gem")
              ('home-page "https://example.com")
              ('license ('list 'license:expat 'license:asl2.0))))
           #t)
          (x
           (pk 'fail x #f)))))

(test-end "gem")
Commit	Line	Data
a96524cc DT	1	;;; GNU Guix --- Functional package management for GNU
a96524cc DT	2	;;; Copyright © 2015 David Thompson <davet@gnu.org>
506abddb	3	;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
88388766	4	;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
fa7db21f	5	;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev>
5d22261d	6	;;; Copyright © 2022 Taiju HIGASHI <higashi@taiju.info>
a96524cc DT	7	;;;
	8	;;; This file is part of GNU Guix.
	9	;;;
	10	;;; GNU Guix is free software; you can redistribute it and/or modify it
	11	;;; under the terms of the GNU General Public License as published by
	12	;;; the Free Software Foundation; either version 3 of the License, or (at
	13	;;; your option) any later version.
	14	;;;
	15	;;; GNU Guix is distributed in the hope that it will be useful, but
	16	;;; WITHOUT ANY WARRANTY; without even the implied warranty of
	17	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	18	;;; GNU General Public License for more details.
	19	;;;
	20	;;; You should have received a copy of the GNU General Public License
	21	;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
	22
	23	(define-module (test-gem)
	24	#:use-module (guix import gem)
	25	#:use-module (guix base32)
ca719424	26	#:use-module (gcrypt hash)
a96524cc DT	27	#:use-module (guix tests)
	28	#:use-module ((guix build utils) #:select (delete-file-recursively))
	29	#:use-module (srfi srfi-64)
	30	#:use-module (ice-9 match))
	31
88388766	32	(define test-foo-json
a96524cc DT	33	"{
	34	\"name\": \"foo\",
	35	\"version\": \"1.0.0\",
	36	\"sha\": \"f3676eafca9987cb5fe263df1edf2538bf6dafc712b30e17be3543a9680547a8\",
	37	\"info\": \"A cool gem\",
	38	\"homepage_uri\": \"https://example.com\",
	39	\"dependencies\": {
	40	\"runtime\": [
	41	{ \"name\": \"bundler\" },
	42	{ \"name\": \"bar\" }
	43	]
	44	},
	45	\"licenses\": [\"MIT\", \"Apache 2.0\"]
	46	}")
	47
5d22261d TH	48	(define test-foo-v2-json
	49	"{
	50	\"name\": \"foo\",
	51	\"version\": \"2.0.0\",
	52	\"sha\": \"f3676eafca9987cb5fe263df1edf2538bf6dafc712b30e17be3543a9680547a8\",
	53	\"info\": \"A cool gem\",
	54	\"homepage_uri\": \"https://example.com\",
	55	\"dependencies\": {
	56	\"runtime\": [
	57	{ \"name\": \"bundler\" },
	58	{ \"name\": \"bar\" }
	59	]
	60	},
	61	\"licenses\": [\"MIT\", \"Apache 2.0\"]
	62	}")
	63
88388766 OP	64	(define test-bar-json
	65	"{
	66	\"name\": \"bar\",
	67	\"version\": \"1.0.0\",
	68	\"sha\": \"f3676eafca9987cb5fe263df1edf2538bf6dafc712b30e17be3543a9680547a8\",
	69	\"info\": \"Another cool gem\",
	70	\"homepage_uri\": \"https://example.com\",
	71	\"dependencies\": {
	72	\"runtime\": [
5dfe02c6	73	{ \"name\": \"bundler\" }
88388766 OP	74	]
88388766 OP	75	},
c24fe4a5	76	\"licenses\": null
88388766 OP	77	}")
	78
	79	(define test-bundler-json
	80	"{
	81	\"name\": \"bundler\",
	82	\"version\": \"1.14.2\",
	83	\"sha\": \"3bb53e03db0a8008161eb4c816ccd317120d3c415ba6fee6f90bbc7f7eec8690\",
	84	\"info\": \"Ruby gem bundler\",
	85	\"homepage_uri\": \"https://bundler.io/\",
	86	\"dependencies\": {
	87	\"runtime\": []
	88	},
	89	\"licenses\": [\"MIT\"]
	90	}")
	91
a96524cc DT	92	(test-begin "gem")
	93
	94	(test-assert "gem->guix-package"
	95	;; Replace network resources with sample data.
506abddb	96	(mock ((guix http-client) http-fetch
ce8963c5	97	(lambda (url . rest)
a96524cc DT	98	(match url
a96524cc DT	99	("https://rubygems.org/api/v1/gems/foo.json"
88388766 OP	100	(values (open-input-string test-foo-json)
88388766 OP	101	(string-length test-foo-json)))
a96524cc DT	102	(_ (error "Unexpected URL: " url)))))
	103	(match (gem->guix-package "foo")
	104	(('package
	105	('name "ruby-foo")
	106	('version "1.0.0")
	107	('source ('origin
	108	('method 'url-fetch)
	109	('uri ('rubygems-uri "foo" 'version))
	110	('sha256
	111	('base32
	112	"1a270mlajhrmpqbhxcqjqypnvgrq4pgixpv3w9gwp1wrrapnwrzk"))))
	113	('build-system 'ruby-build-system)
fa7db21f	114	('propagated-inputs ('list 'bundler 'ruby-bar))
a96524cc	115	('synopsis "A cool gem")
e88d5fa9	116	('description "This package provides a cool gem")
a96524cc	117	('home-page "https://example.com")
a34b236c	118	('license ('list 'license:expat 'license:asl2.0)))
a96524cc DT	119	#t)
	120	(x
	121	(pk 'fail x #f)))))
	122
5d22261d TH	123	(test-assert "gem->guix-package with a specific version"
	124	;; Replace network resources with sample data.
	125	(mock ((guix http-client) http-fetch
	126	(lambda (url . rest)
	127	(match url
	128	("https://rubygems.org/api/v2/rubygems/foo/versions/2.0.0.json"
	129	(values (open-input-string test-foo-v2-json)
	130	(string-length test-foo-v2-json)))
	131	(_ (error "Unexpected URL: " url)))))
	132	(match (gem->guix-package "foo" #:version "2.0.0")
	133	(('package
	134	('name "ruby-foo")
	135	('version "2.0.0")
	136	('source ('origin
	137	('method 'url-fetch)
	138	('uri ('rubygems-uri "foo" 'version))
	139	('sha256
	140	('base32
	141	"1a270mlajhrmpqbhxcqjqypnvgrq4pgixpv3w9gwp1wrrapnwrzk"))))
	142	('build-system 'ruby-build-system)
	143	('propagated-inputs ('list 'bundler 'ruby-bar))
	144	('synopsis "A cool gem")
	145	('description "This package provides a cool gem")
	146	('home-page "https://example.com")
	147	('license ('list 'license:expat 'license:asl2.0)))
	148	#t)
	149	(x
	150	(pk 'fail x #f)))))
	151
88388766 OP	152	(test-assert "gem-recursive-import"
	153	;; Replace network resources with sample data.
	154	(mock ((guix http-client) http-fetch
	155	(lambda (url . rest)
	156	(match url
	157	("https://rubygems.org/api/v1/gems/foo.json"
	158	(values (open-input-string test-foo-json)
	159	(string-length test-foo-json)))
	160	("https://rubygems.org/api/v1/gems/bar.json"
	161	(values (open-input-string test-bar-json)
	162	(string-length test-bar-json)))
	163	("https://rubygems.org/api/v1/gems/bundler.json"
	164	(values (open-input-string test-bundler-json)
	165	(string-length test-bundler-json)))
	166	(_ (error "Unexpected URL: " url)))))
70a8e132	167	(match (gem-recursive-import "foo")
88388766	168	((('package
ddd59159	169	('name "ruby-bar")
88388766 OP	170	('version "1.0.0")
	171	('source
	172	('origin
	173	('method 'url-fetch)
ddd59159	174	('uri ('rubygems-uri "bar" 'version))
88388766 OP	175	('sha256
	176	('base32
	177	"1a270mlajhrmpqbhxcqjqypnvgrq4pgixpv3w9gwp1wrrapnwrzk"))))
	178	('build-system 'ruby-build-system)
fa7db21f	179	('propagated-inputs ('list 'bundler))
ddd59159 LC	180	('synopsis "Another cool gem")
ddd59159 LC	181	('description "Another cool gem")
88388766	182	('home-page "https://example.com")
c24fe4a5	183	('license #f)) ;no licensing info
88388766 OP	184	('package
	185	('name "ruby-bundler")
	186	('version "1.14.2")
	187	('source
	188	('origin
	189	('method 'url-fetch)
	190	('uri ('rubygems-uri "bundler" 'version))
	191	('sha256
	192	('base32
	193	"1446xiz7zg0bz7kgx9jv84y0s4hpsg61dj5l3qb0i00avc1kxd9v"))))
	194	('build-system 'ruby-build-system)
	195	('synopsis "Ruby gem bundler")
	196	('description "Ruby gem bundler")
	197	('home-page "https://bundler.io/")
	198	('license 'license:expat))
	199	('package
ddd59159	200	('name "ruby-foo")
88388766 OP	201	('version "1.0.0")
	202	('source
	203	('origin
	204	('method 'url-fetch)
ddd59159	205	('uri ('rubygems-uri "foo" 'version))
88388766 OP	206	('sha256
	207	('base32
	208	"1a270mlajhrmpqbhxcqjqypnvgrq4pgixpv3w9gwp1wrrapnwrzk"))))
	209	('build-system 'ruby-build-system)
fa7db21f	210	('propagated-inputs ('list 'bundler 'ruby-bar))
ddd59159 LC	211	('synopsis "A cool gem")
ddd59159 LC	212	('description "This package provides a cool gem")
88388766 OP	213	('home-page "https://example.com")
	214	('license ('list 'license:expat 'license:asl2.0))))
	215	#t)
	216	(x
	217	(pk 'fail x #f)))))
	218
5d22261d TH	219	(test-assert "gem-recursive-import with a specific version"
	220	;; Replace network resources with sample data.
	221	(mock ((guix http-client) http-fetch
	222	(lambda (url . rest)
	223	(match url
	224	("https://rubygems.org/api/v2/rubygems/foo/versions/2.0.0.json"
	225	(values (open-input-string test-foo-v2-json)
	226	(string-length test-foo-v2-json)))
	227	("https://rubygems.org/api/v1/gems/bar.json"
	228	(values (open-input-string test-bar-json)
	229	(string-length test-bar-json)))
	230	("https://rubygems.org/api/v1/gems/bundler.json"
	231	(values (open-input-string test-bundler-json)
	232	(string-length test-bundler-json)))
	233	(_ (error "Unexpected URL: " url)))))
	234	(match (gem-recursive-import "foo" "2.0.0")
	235	((('package
	236	('name "ruby-bar")
	237	('version "1.0.0")
	238	('source
	239	('origin
	240	('method 'url-fetch)
	241	('uri ('rubygems-uri "bar" 'version))
	242	('sha256
	243	('base32
	244	"1a270mlajhrmpqbhxcqjqypnvgrq4pgixpv3w9gwp1wrrapnwrzk"))))
	245	('build-system 'ruby-build-system)
	246	('propagated-inputs ('list 'bundler))
	247	('synopsis "Another cool gem")
	248	('description "Another cool gem")
	249	('home-page "https://example.com")
	250	('license #f)) ;no licensing info
	251	('package
	252	('name "ruby-bundler")
	253	('version "1.14.2")
	254	('source
	255	('origin
	256	('method 'url-fetch)
	257	('uri ('rubygems-uri "bundler" 'version))
	258	('sha256
	259	('base32
	260	"1446xiz7zg0bz7kgx9jv84y0s4hpsg61dj5l3qb0i00avc1kxd9v"))))
	261	('build-system 'ruby-build-system)
	262	('synopsis "Ruby gem bundler")
	263	('description "Ruby gem bundler")
	264	('home-page "https://bundler.io/")
	265	('license 'license:expat))
	266	('package
	267	('name "ruby-foo")
	268	('version "2.0.0")
	269	('source
	270	('origin
	271	('method 'url-fetch)
	272	('uri ('rubygems-uri "foo" 'version))
	273	('sha256
	274	('base32
	275	"1a270mlajhrmpqbhxcqjqypnvgrq4pgixpv3w9gwp1wrrapnwrzk"))))
	276	('build-system 'ruby-build-system)
	277	('propagated-inputs ('list 'bundler 'ruby-bar))
	278	('synopsis "A cool gem")
	279	('description "This package provides a cool gem")
	280	('home-page "https://example.com")
	281	('license ('list 'license:expat 'license:asl2.0))))
	282	#t)
283	(x
284	(pk 'fail x #f)))))
285
a96524cc	286	(test-end "gem")