projects/guix·blob javascript-team · refs

253 lines · 9.1 KiB

1;;; GNU Guix --- Functional package management for GNU
2;;; Copyright © 2022 Hartmut Goebel <[email protected]>
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-hexpm)
20 #:use-module (guix import hexpm)
21 #:use-module (guix base32)
22 #:use-module (gcrypt hash)
23 #:use-module (guix tests)
24 #:use-module (srfi srfi-64)
25 #:use-module (ice-9 binary-ports)
26 #:use-module (ice-9 match))
27
28(define test-bla-package
29 "{\"name\": \"bla\",
30 \"html_url\": \"https://hex.pm/packages/bla\",
31 \"docs_html_url\": null,
32 \"meta\": {
33 \"description\": \"A cool package\",
34 \"licenses\": [\"MIT\", \"Apache-2.0\"]
35 },
36 \"releases\": [
37 {\"url\": \"https://hex.pm/api/packages/bla/releases/1.5.0\",
38 \"version\": \"1.5.0\"},
39 {\"url\": \"https://hex.pm/api/packages/bla/releases/1.4.7\",
40 \"version\": \"1.4.7\"}
41 ]
42}")
43
44(define test-bla-release
45 "{
46 \"version\": \"1.5.0\",
47 \"url\": \"https://hex.pm/api/packages/bla/releases/1.5.0\",
48 \"requirements\": {
49 \"blubb\":{\"app\": \"blubb\",
50 \"optional\": false,
51 \"requirement\": \"~>0.3\"
52 },
53 \"fasel\":{\"app\": \"fasel\",
54 \"optional\": false,
55 \"requirement\": \"~>1.0\"
56 }
57 },
58 \"meta\":{ \"build_tools\":[\"mix\", \"make\", \"rebar3\"] }
59 }")
60
61(define test-blubb-package
62 "{\"name\": \"blubb\",
63 \"latest_stable_version\": \"0.3.1\",
64 \"latest_version\": \"0.3.1\",
65 \"html_url\": \"https://hex.pm/packages/blubb\",
66 \"docs_html_url\": null,
67 \"meta\": {
68 \"description\": \"Another cool package\",
69 \"licenses\": [\"MIT\"]
70 },
71 \"releases\": [
72 {\"url\": \"https://hex.pm/api/packages/blubb/releases/0.3.1\",
73 \"version\": \"0.3.1\"},
74 {\"url\": \"https://hex.pm/api/packages/blubb/releases/0.3.0\",
75 \"version\": \"0.3.0\"}
76 ]
77}")
78
79(define test-blubb-release
80 "{
81 \"version\": \"0.3.1\",
82 \"url\": \"https://hex.pm/api/packages/blubb/releases/0.3.1\",
83 \"requirements\": {
84 \"fasel\":{\"app\": \"fasel\",
85 \"optional\": false,
86 \"requirement\": \"~>1.0\"
87 }
88 },
89 \"meta\": { \"build_tools\":[\"mix\"] }
90 }")
91
92(define test-fasel-package
93 "{\"name\": \"fasel\",
94 \"latest_stable_version\": \"1.2.1\",
95 \"latest_version\": \"1.2.1\",
96 \"html_url\": \"https://hex.pm/packages/fasel\",
97 \"docs_html_url\": null,
98 \"meta\": {
99 \"description\": \"Yet another cool package\",
100 \"licenses\": [\"GPL\"]
101 },
102 \"releases\": [
103 {\"url\": \"https://hex.pm/api/packages/fasel/releases/1.2.1\",
104 \"version\": \"1.2.1\"}
105 ]
106}")
107
108(define test-fasel-release
109 "{
110 \"version\": \"1.2.1\",
111 \"url\": \"https://hex.pm/api/packages/fasel/releases/1.2.1\",
112 \"requirements\" :{},
113 \"meta\":{ \"build_tools\":[\"make\"] }
114 }")
115
116(test-begin "hexpm")
117
118(test-assert "hexpm->guix-package"
119 ;; Replace network resources with sample data.
120 (mock ((guix http-client) http-fetch
121 (lambda (url . rest)
122 (match url
123 ("https://hex.pm/api/packages/bla"
124 (values (open-input-string test-bla-package)
125 (string-length test-bla-package)))
126 ("https://hex.pm/api/packages/bla/releases/1.5.0"
127 (values (open-input-string test-bla-release)
128 (string-length test-bla-release)))
129 (_ (error "http-fetch got unexpected URL: " url)))))
130 (mock ((guix build download) url-fetch
131 (lambda* (url file-name
132 #:key
133 (mirrors '()) verify-certificate?)
134 (with-output-to-file file-name
135 (lambda ()
136 (display
137 (match url
138 ("https://repo.hex.pm/tarballs/bla-1.5.0.tar"
139 "source")
140 (_ (error "url-fetch got unexpected URL: " url))))))))
141 (match (hexpm->guix-package "bla")
142 (`(package
143 (name "erlang-bla")
144 (version "1.5.0")
145 (source
146 (origin
147 (method url-fetch)
148 (uri (hexpm-uri "bla" version))
149 (sha256
150 (base32
151 "0zcl4dgcmqwl1g5xb901pd6dz61r1xgmac9mqlwvh022paa6gks1"))))
152 (build-system rebar-build-system)
153 (inputs (list erlang-blubb erlang-fasel))
154 (synopsis "A cool package")
155 (description "This package provides a cool package.")
156 (home-page "https://hex.pm/packages/bla")
157 (license (list license:expat license:asl2.0)))
158 #t)
159 (x
160 (pk 'fail x #f))))))
161
162(test-assert "hexpm-recursive-import"
163 ;; Replace network resources with sample data.
164 (mock ((guix http-client) http-fetch
165 (lambda (url . rest)
166 (match url
167 ("https://hex.pm/api/packages/bla"
168 (values (open-input-string test-bla-package)
169 (string-length test-bla-package)))
170 ("https://hex.pm/api/packages/bla/releases/1.5.0"
171 (values (open-input-string test-bla-release)
172 (string-length test-bla-release)))
173 ("https://hex.pm/api/packages/blubb"
174 (values (open-input-string test-blubb-package)
175 (string-length test-blubb-package)))
176 ("https://hex.pm/api/packages/blubb/releases/0.3.1"
177 (values (open-input-string test-blubb-release)
178 (string-length test-blubb-release)))
179 ("https://hex.pm/api/packages/fasel"
180 (values (open-input-string test-fasel-package)
181 (string-length test-fasel-package)))
182 ("https://hex.pm/api/packages/fasel/releases/1.2.1"
183 (values (open-input-string test-fasel-release)
184 (string-length test-fasel-release)))
185 (_ (error "http-fetch got unexpected URL: " url)))))
186 (mock ((guix build download) url-fetch
187 (lambda* (url file-name
188 #:key
189 (mirrors '()) verify-certificate?)
190 (with-output-to-file file-name
191 (lambda ()
192 (display
193 (match url
194 ("https://repo.hex.pm/tarballs/bla-1.5.0.tar"
195 "bla-source")
196 ("https://repo.hex.pm/tarballs/blubb-0.3.1.tar"
197 "blubb-source")
198 ("https://repo.hex.pm/tarballs/fasel-1.2.1.tar"
199 "fasel-source")
200 (_ (error "url-fetch got unexpected URL: " url))))))))
201 (match (hexpm-recursive-import "bla")
202 (`((package
203 (name "erlang-blubb")
204 (version "0.3.1")
205 (source
206 (origin
207 (method url-fetch)
208 (uri (hexpm-uri "blubb" version))
209 (sha256
210 (base32
211 "17y88b5y8ld7s1c2bcwwwa04pf1cl4402i9zk3inna221ps3ppj2"))))
212 (build-system mix-build-system)
213 (inputs (list erlang-fasel))
214 (synopsis "Another cool package")
215 (description "Another cool package.")
216 (home-page "https://hex.pm/packages/blubb")
217 (license license:expat))
218 (package
219 (name "erlang-fasel")
220 (version "1.2.1")
221 (source
222 (origin
223 (method url-fetch)
224 (uri (hexpm-uri "fasel" version))
225 (sha256
226 (base32
227 "1k6d70mxwqgq78jrbr7yqnw187yki74jnagybi7nacrj4a67qjha"))))
228 (build-system gnu-build-system)
229 (synopsis "Yet another cool package")
230 (description "Yet another cool package.")
231 (home-page "https://hex.pm/packages/fasel")
232 (license "GPL"))
233 (package
234 (name "erlang-bla")
235 (version "1.5.0")
236 (source
237 (origin
238 (method url-fetch)
239 (uri (hexpm-uri "bla" version))
240 (sha256
241 (base32
242 "0d3gj746c4swbb1m6ycylxb239jsavvdcizag6bfbg2aqccxwij8"))))
243 (build-system rebar-build-system)
244 (inputs (list erlang-blubb erlang-fasel))
245 (synopsis "A cool package")
246 (description "This package provides a cool package.")
247 (home-page "https://hex.pm/packages/bla")
248 (license (list license:expat license:asl2.0))))
249 #t)
250 (x
251 (pk 'fail x #f))))))
252
253(test-end "hexpm")