1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2014 David Thompson <davet@gnu.org>
3 ;;; Copyright © 2016 David Craven <david@craven.ch>
4 ;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org>
6 ;;; This file is part of GNU Guix.
8 ;;; GNU Guix is free software; you can redistribute it and/or modify it
9 ;;; under the terms of the GNU General Public License as published by
10 ;;; the Free Software Foundation; either version 3 of the License, or (at
11 ;;; your option) any later version.
13 ;;; GNU Guix is distributed in the hope that it will be useful, but
14 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 ;;; GNU General Public License for more details.
18 ;;; You should have received a copy of the GNU General Public License
19 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
21 (define-module (test-crate)
22 #:use-module (guix import crate)
23 #:use-module (guix base32)
24 #:use-module (guix build-system cargo)
25 #:use-module (gcrypt hash)
26 #:use-module (guix tests)
27 #:use-module (ice-9 iconv)
28 #:use-module (ice-9 match)
29 #:use-module (srfi srfi-64))
31 (define test-foo-crate
34 \"max_version\": \"1.0.0\",
36 \"description\": \"summary\",
37 \"homepage\": \"http://example.com\",
38 \"repository\": \"http://example.com\",
39 \"keywords\": [\"dummy\" \"test\"],
40 \"categories\": [\"test\"]
41 \"actual_versions\": [
44 \"license\": \"MIT OR Apache-2.0\",
46 \"dependencies\": \"/api/v1/crates/foo/1.0.0/dependencies\"
53 (define test-foo-dependencies
57 \"crate_id\": \"bar\",
63 (define test-root-crate
66 \"max_version\": \"1.0.0\",
68 \"description\": \"summary\",
69 \"homepage\": \"http://example.com\",
70 \"repository\": \"http://example.com\",
71 \"keywords\": [\"dummy\" \"test\"],
72 \"categories\": [\"test\"]
73 \"actual_versions\": [
76 \"license\": \"MIT OR Apache-2.0\",
78 \"dependencies\": \"/api/v1/crates/root/1.0.0/dependencies\"
85 (define test-root-dependencies
89 \"crate_id\": \"intermediate-1\",
93 \"crate_id\": \"intermediate-2\",
97 \"crate_id\": \"leaf-alice\",
101 \"crate_id\": \"leaf-bob\",
102 \"kind\": \"normal\",
107 (define test-intermediate-1-crate
110 \"max_version\": \"1.0.0\",
111 \"name\": \"intermediate-1\",
112 \"description\": \"summary\",
113 \"homepage\": \"http://example.com\",
114 \"repository\": \"http://example.com\",
115 \"keywords\": [\"dummy\" \"test\"],
116 \"categories\": [\"test\"]
117 \"actual_versions\": [
118 { \"id\": \"intermediate-1\",
120 \"license\": \"MIT OR Apache-2.0\",
122 \"dependencies\": \"/api/v1/crates/intermediate-1/1.0.0/dependencies\"
129 (define test-intermediate-1-dependencies
133 \"crate_id\": \"intermediate-2\",
134 \"kind\": \"normal\",
137 \"crate_id\": \"leaf-alice\",
138 \"kind\": \"normal\",
141 \"crate_id\": \"leaf-bob\",
142 \"kind\": \"normal\",
147 (define test-intermediate-2-crate
150 \"max_version\": \"1.0.0\",
151 \"name\": \"intermediate-2\",
152 \"description\": \"summary\",
153 \"homepage\": \"http://example.com\",
154 \"repository\": \"http://example.com\",
155 \"keywords\": [\"dummy\" \"test\"],
156 \"categories\": [\"test\"]
157 \"actual_versions\": [
158 { \"id\": \"intermediate-2\",
160 \"license\": \"MIT OR Apache-2.0\",
162 \"dependencies\": \"/api/v1/crates/intermediate-2/1.0.0/dependencies\"
169 (define test-intermediate-2-dependencies
173 \"crate_id\": \"leaf-bob\",
174 \"kind\": \"normal\",
179 (define test-leaf-alice-crate
182 \"max_version\": \"1.0.0\",
183 \"name\": \"leaf-alice\",
184 \"description\": \"summary\",
185 \"homepage\": \"http://example.com\",
186 \"repository\": \"http://example.com\",
187 \"keywords\": [\"dummy\" \"test\"],
188 \"categories\": [\"test\"]
189 \"actual_versions\": [
190 { \"id\": \"leaf-alice\",
192 \"license\": \"MIT OR Apache-2.0\",
194 \"dependencies\": \"/api/v1/crates/leaf-alice/1.0.0/dependencies\"
201 (define test-leaf-alice-dependencies
206 (define test-leaf-bob-crate
209 \"max_version\": \"1.0.0\",
210 \"name\": \"leaf-bob\",
211 \"description\": \"summary\",
212 \"homepage\": \"http://example.com\",
213 \"repository\": \"http://example.com\",
214 \"keywords\": [\"dummy\" \"test\"],
215 \"categories\": [\"test\"]
216 \"actual_versions\": [
217 { \"id\": \"leaf-bob\",
219 \"license\": \"MIT OR Apache-2.0\",
221 \"dependencies\": \"/api/v1/crates/leaf-bob/1.0.0/dependencies\"
228 (define test-leaf-bob-dependencies
233 (define test-source-hash
236 (define string->license
237 (@@ (guix import crate) string->license))
241 (test-equal "guix-package->crate-name"
243 (guix-package->crate-name
245 "rust-rustc-serialize"
246 (source (dummy-origin
247 (uri (crate-uri "rustc-serialize" "1.0")))))))
249 (test-assert "crate->guix-package"
250 ;; Replace network resources with sample data.
251 (mock ((guix http-client) http-fetch
254 ("https://crates.io/api/v1/crates/foo"
255 (open-input-string test-foo-crate))
256 ("https://crates.io/api/v1/crates/foo/1.0.0/download"
257 (set! test-source-hash
258 (bytevector->nix-base32-string
259 (sha256 (string->bytevector "empty file\n" "utf-8"))))
260 (open-input-string "empty file\n"))
261 ("https://crates.io/api/v1/crates/foo/1.0.0/dependencies"
262 (open-input-string test-foo-dependencies))
263 (_ (error "Unexpected URL: " url)))))
264 (match (crate->guix-package "foo")
270 ('uri ('crate-uri "foo" 'version))
271 ('file-name ('string-append 'name "-" 'version ".tar.gz"))
275 ('build-system 'cargo-build-system)
278 ('#:cargo-inputs (("rust-bar" ('unquote rust-bar))))))
279 ('home-page "http://example.com")
280 ('synopsis "summary")
281 ('description "summary")
282 ('license ('list 'license:expat 'license:asl2.0)))
283 (string=? test-source-hash hash))
287 (test-assert "cargo-recursive-import"
288 ;; Replace network resources with sample data.
289 (mock ((guix http-client) http-fetch
292 ("https://crates.io/api/v1/crates/root"
293 (open-input-string test-root-crate))
294 ("https://crates.io/api/v1/crates/root/1.0.0/download"
295 (set! test-source-hash
296 (bytevector->nix-base32-string
297 (sha256 (string->bytevector "empty file\n" "utf-8"))))
298 (open-input-string "empty file\n"))
299 ("https://crates.io/api/v1/crates/root/1.0.0/dependencies"
300 (open-input-string test-root-dependencies))
301 ("https://crates.io/api/v1/crates/intermediate-1"
302 (open-input-string test-intermediate-1-crate))
303 ("https://crates.io/api/v1/crates/intermediate-1/1.0.0/download"
304 (set! test-source-hash
305 (bytevector->nix-base32-string
306 (sha256 (string->bytevector "empty file\n" "utf-8"))))
307 (open-input-string "empty file\n"))
308 ("https://crates.io/api/v1/crates/intermediate-1/1.0.0/dependencies"
309 (open-input-string test-intermediate-1-dependencies))
310 ("https://crates.io/api/v1/crates/intermediate-2"
311 (open-input-string test-intermediate-2-crate))
312 ("https://crates.io/api/v1/crates/intermediate-2/1.0.0/download"
313 (set! test-source-hash
314 (bytevector->nix-base32-string
315 (sha256 (string->bytevector "empty file\n" "utf-8"))))
316 (open-input-string "empty file\n"))
317 ("https://crates.io/api/v1/crates/intermediate-2/1.0.0/dependencies"
318 (open-input-string test-intermediate-2-dependencies))
319 ("https://crates.io/api/v1/crates/leaf-alice"
320 (open-input-string test-leaf-alice-crate))
321 ("https://crates.io/api/v1/crates/leaf-alice/1.0.0/download"
322 (set! test-source-hash
323 (bytevector->nix-base32-string
324 (sha256 (string->bytevector "empty file\n" "utf-8"))))
325 (open-input-string "empty file\n"))
326 ("https://crates.io/api/v1/crates/leaf-alice/1.0.0/dependencies"
327 (open-input-string test-leaf-alice-dependencies))
328 ("https://crates.io/api/v1/crates/leaf-bob"
329 (open-input-string test-leaf-bob-crate))
330 ("https://crates.io/api/v1/crates/leaf-bob/1.0.0/download"
331 (set! test-source-hash
332 (bytevector->nix-base32-string
333 (sha256 (string->bytevector "empty file\n" "utf-8"))))
334 (open-input-string "empty file\n"))
335 ("https://crates.io/api/v1/crates/leaf-bob/1.0.0/dependencies"
336 (open-input-string test-leaf-bob-dependencies))
337 (_ (error "Unexpected URL: " url)))))
338 (match (crate-recursive-import "root")
339 ;; rust-intermediate-2 has no dependency on the rust-leaf-alice package, so this is a valid ordering
341 ('name "rust-leaf-alice")
342 ('version (? string? ver))
346 ('uri ('crate-uri "leaf-alice" 'version))
348 ('string-append 'name "-" 'version ".tar.gz"))
352 ('build-system 'cargo-build-system)
353 ('home-page "http://example.com")
354 ('synopsis "summary")
355 ('description "summary")
356 ('license ('list 'license:expat 'license:asl2.0)))
358 ('name "rust-leaf-bob")
359 ('version (? string? ver))
363 ('uri ('crate-uri "leaf-bob" 'version))
365 ('string-append 'name "-" 'version ".tar.gz"))
369 ('build-system 'cargo-build-system)
370 ('home-page "http://example.com")
371 ('synopsis "summary")
372 ('description "summary")
373 ('license ('list 'license:expat 'license:asl2.0)))
375 ('name "rust-intermediate-2")
376 ('version (? string? ver))
380 ('uri ('crate-uri "intermediate-2" 'version))
382 ('string-append 'name "-" 'version ".tar.gz"))
386 ('build-system 'cargo-build-system)
389 ('#:cargo-inputs (("rust-leaf-bob" ('unquote rust-leaf-bob))))))
390 ('home-page "http://example.com")
391 ('synopsis "summary")
392 ('description "summary")
393 ('license ('list 'license:expat 'license:asl2.0)))
395 ('name "rust-intermediate-1")
396 ('version (? string? ver))
400 ('uri ('crate-uri "intermediate-1" 'version))
402 ('string-append 'name "-" 'version ".tar.gz"))
406 ('build-system 'cargo-build-system)
409 ('#:cargo-inputs (("rust-intermediate-2" ('unquote rust-intermediate-2))
410 ("rust-leaf-alice" ('unquote rust-leaf-alice))
411 ("rust-leaf-bob" ('unquote rust-leaf-bob))))))
412 ('home-page "http://example.com")
413 ('synopsis "summary")
414 ('description "summary")
415 ('license ('list 'license:expat 'license:asl2.0)))
418 ('version (? string? ver))
422 ('uri ('crate-uri "root" 'version))
424 ('string-append 'name "-" 'version ".tar.gz"))
428 ('build-system 'cargo-build-system)
431 ('#:cargo-inputs (("rust-intermediate-1" ('unquote rust-intermediate-1))
432 ("rust-intermediate-2" ('unquote rust-intermediate-2))
433 ("rust-leaf-alice" ('unquote rust-leaf-alice))
434 ("rust-leaf-bob" ('unquote rust-leaf-bob))))))
435 ('home-page "http://example.com")
436 ('synopsis "summary")
437 ('description "summary")
438 ('license ('list 'license:expat 'license:asl2.0))))
443 (test-equal "licenses: MIT OR Apache-2.0"
444 '(license:expat license:asl2.0)
445 (string->license "MIT OR Apache-2.0"))
447 (test-equal "licenses: Apache-2.0 / MIT"
448 '(license:asl2.0 license:expat)
449 (string->license "Apache-2.0 / MIT"))
451 (test-equal "licenses: Apache-2.0 WITH LLVM-exception"
452 '(license:asl2.0 unknown-license!)
453 (string->license "Apache-2.0 WITH LLVM-exception"))
455 (test-equal "licenses: MIT/Apache-2.0 AND BSD-2-Clause"
456 '(license:expat license:asl2.0 unknown-license!)
457 (string->license "MIT/Apache-2.0 AND BSD-2-Clause"))
459 (test-equal "licenses: MIT/Apache-2.0"
460 '(license:expat license:asl2.0)
461 (string->license "MIT/Apache-2.0"))