TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

import: minetest: Fix typos.

Browse source 
* guix/import/minetest.scm (elaborate-contentdb-name): Fix ‘ambiguous’
and ‘thes’ typos.
* tests/minetest.scm: Likewise for all tests.
This commit is contained in:
Tobias Geerinckx-Rice 2021-09-27 16:06:31 +02:00
parent 770ae09860
commit 2f5368d678
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
2 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/import/minetest.scm
View file

@ -203,7 +203,7 @@ (define* (elaborate-contentdb-name name #:key (sort %default-sort-key))
(match correctly-named
((one) (package-keys-full-name one))
((too . many)
(warning (G_ "~a is ambigious, presuming ~a (other options include: ~a)~%")
(warning (G_ "~a is ambiguous, presuming ~a (other options include: ~a)~%")
name (package-keys-full-name too)
(map package-keys-full-name many))
(package-keys-full-name too))
@ -256,7 +256,7 @@ (define* (contentdb-query-packages q #:key
(order "desc"))
"Search ContentDB for Q (a string). Sort by SORT, in ascending order
if ORDER is \"asc\" or descending order if ORDER is \"desc\". TYPE must
be \"mod\", \"game\" or \"txp\", restricting thes search results to
be \"mod\", \"game\" or \"txp\", restricting the search results to
respectively mods, games and texture packs. Limit to at most LIMIT
results. The return value is a list of <package-keys> records."
;; XXX does Guile have something for constructing (and, when necessary,

12
tests/minetest.scm
View file

@ -249,14 +249,14 @@ (define-syntax-rule (test-package* test-case primary-arguments extra-arguments
#:guix-name "minetest-foo-bar"
#:upstream-name "Author/foo_bar")
(test-equal "elaborate names, unambigious"
(test-equal "elaborate names, unambiguous"
"Jeija/mesecons"
(call-with-packages
(cut elaborate-contentdb-name "mesecons")
'(#:name "mesecons" #:author "Jeija")
'(#:name "something" #:author "else")))
(test-equal "elaborate name, ambigious (highest score)"
(test-equal "elaborate name, ambiguous (highest score)"
"Jeija/mesecons"
(call-with-packages
;; #:sort "score" is the default
@ -266,7 +266,7 @@ (define-syntax-rule (test-package* test-case primary-arguments extra-arguments
'(#:name "mesecons" #:author "Jeija" #:score 999)))
(test-equal "elaborate name, ambigious (most downloads)"
(test-equal "elaborate name, ambiguous (most downloads)"
"Jeija/mesecons"
(call-with-packages
(cut elaborate-contentdb-name "mesecons" #:sort "downloads")
@ -308,7 +308,7 @@ (define-syntax-rule (test-package* test-case primary-arguments extra-arguments
;; Dependencies
(test-package* "minetest->guix-package, unambigious dependency"
(test-package* "minetest->guix-package, unambiguous dependency"
(list #:requirements '(("mesecons" #f
("Jeija/mesecons"
"some-modpack/containing-mese")))
@ -316,7 +316,7 @@ (define-syntax-rule (test-package* test-case primary-arguments extra-arguments
(list #:author "Jeija" #:name "mesecons")
(list #:author "some-modpack" #:name "containing-mese" #:type "modpack"))
(test-package* "minetest->guix-package, ambigious dependency (highest score)"
(test-package* "minetest->guix-package, ambiguous dependency (highest score)"
(list #:name "frobnicate"
#:guix-name "minetest-frobnicate"
#:upstream-name "Author/frobnicate"
@ -327,7 +327,7 @@ (define-syntax-rule (test-package* test-case primary-arguments extra-arguments
(list #:author "Author" #:name "foo" #:score 0)
(list #:author "Author" #:name "bar" #:score 9999))
(test-package* "minetest->guix-package, ambigious dependency (most downloads)"
(test-package* "minetest->guix-package, ambiguous dependency (most downloads)"
(list #:name "frobnicate"
#:guix-name "minetest-frobnicate"
#:upstream-name "Author/frobnicate"