2021-08-10 15:07:20 +00:00
|
|
|
|
;;; GNU Guix --- Functional package management for GNU
|
|
|
|
|
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
|
|
|
|
|
;;;
|
|
|
|
|
;;; 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-minetest)
|
import/minetest: Define an updater for mods on ContentDB.
Only detecting updates is currently supported. To actually
perform the uppdates, a patch like
<https://issues.guix.gnu.org/50072#4> is required.
* guix/import/minetest.scm
(version-style,minetest-package?,latest-minetest-release): New procedures.
(%minetest-updater): New updater.
* tests/minetest.scm
(upstream-source->sexp,expected-sexp,example-package): New procedure.
(test-release,test-no-release): New macro's.
("same version","new version (dotted)","new version (date)")
("new version (git -> dotted)","dotted->date","date->dotted")
("no commit informaton, no new release")
("minetest is not a minetest mod")
("technic is a minetest mod")
("upstream-name is required"): New tests.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
2021-09-20 13:27:08 +00:00
|
|
|
|
#:use-module (guix build-system minetest)
|
|
|
|
|
#:use-module (guix upstream)
|
2021-08-10 15:07:20 +00:00
|
|
|
|
#:use-module (guix memoization)
|
|
|
|
|
#:use-module (guix import minetest)
|
|
|
|
|
#:use-module (guix import utils)
|
|
|
|
|
#:use-module (guix tests)
|
import/minetest: Define an updater for mods on ContentDB.
Only detecting updates is currently supported. To actually
perform the uppdates, a patch like
<https://issues.guix.gnu.org/50072#4> is required.
* guix/import/minetest.scm
(version-style,minetest-package?,latest-minetest-release): New procedures.
(%minetest-updater): New updater.
* tests/minetest.scm
(upstream-source->sexp,expected-sexp,example-package): New procedure.
(test-release,test-no-release): New macro's.
("same version","new version (dotted)","new version (date)")
("new version (git -> dotted)","dotted->date","date->dotted")
("no commit informaton, no new release")
("minetest is not a minetest mod")
("technic is a minetest mod")
("upstream-name is required"): New tests.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
2021-09-20 13:27:08 +00:00
|
|
|
|
#:use-module (guix packages)
|
|
|
|
|
#:use-module (guix git-download)
|
|
|
|
|
#:use-module ((gnu packages minetest)
|
|
|
|
|
#:select (minetest minetest-technic))
|
|
|
|
|
#:use-module ((gnu packages base)
|
|
|
|
|
#:select (hello))
|
2021-08-10 15:07:20 +00:00
|
|
|
|
#:use-module (json)
|
|
|
|
|
#:use-module (ice-9 match)
|
|
|
|
|
#:use-module (srfi srfi-1)
|
|
|
|
|
#:use-module (srfi srfi-26)
|
|
|
|
|
#:use-module (srfi srfi-34)
|
|
|
|
|
#:use-module (srfi srfi-64))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;; Some procedures for populating a ‘fake’ ContentDB server.
|
|
|
|
|
|
|
|
|
|
(define* (make-package-sexp #:key
|
|
|
|
|
(guix-name "minetest-foo")
|
2021-09-07 11:24:24 +00:00
|
|
|
|
;; This is not a proper version number but
|
|
|
|
|
;; ContentDB often does not include version
|
|
|
|
|
;; numbers.
|
|
|
|
|
(version "2021-07-25")
|
2021-08-10 15:07:20 +00:00
|
|
|
|
(home-page "https://example.org/foo")
|
|
|
|
|
(repo "https://example.org/foo.git")
|
|
|
|
|
(synopsis "synopsis")
|
|
|
|
|
(guix-description "description")
|
|
|
|
|
(guix-license
|
|
|
|
|
'(list license:cc-by-sa4.0 license:lgpl3+))
|
|
|
|
|
(inputs '())
|
|
|
|
|
(upstream-name "Author/foo")
|
|
|
|
|
#:allow-other-keys)
|
|
|
|
|
`(package
|
|
|
|
|
(name ,guix-name)
|
2021-09-07 11:24:24 +00:00
|
|
|
|
(version ,version)
|
2021-08-10 15:07:20 +00:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url ,(and (not (eq? repo 'null)) repo))
|
|
|
|
|
(commit #f)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 #f))
|
|
|
|
|
(file-name (git-file-name name version))))
|
|
|
|
|
(build-system minetest-mod-build-system)
|
|
|
|
|
,@(maybe-propagated-inputs inputs)
|
|
|
|
|
(home-page ,home-page)
|
|
|
|
|
(synopsis ,synopsis)
|
|
|
|
|
(description ,guix-description)
|
|
|
|
|
(license ,guix-license)
|
|
|
|
|
(properties
|
|
|
|
|
,(list 'quasiquote
|
|
|
|
|
`((upstream-name . ,upstream-name))))))
|
|
|
|
|
|
|
|
|
|
(define* (make-package-json #:key
|
|
|
|
|
(author "Author")
|
|
|
|
|
(name "foo")
|
|
|
|
|
(media-license "CC-BY-SA-4.0")
|
|
|
|
|
(license "LGPL-3.0-or-later")
|
|
|
|
|
(short-description "synopsis")
|
|
|
|
|
(long-description "description")
|
|
|
|
|
(repo "https://example.org/foo.git")
|
|
|
|
|
(website "https://example.org/foo")
|
|
|
|
|
(forums 321)
|
|
|
|
|
(score 987.654)
|
|
|
|
|
(downloads 123)
|
|
|
|
|
(type "mod")
|
|
|
|
|
#:allow-other-keys)
|
|
|
|
|
`(("author" . ,author)
|
|
|
|
|
("content_warnings" . #())
|
|
|
|
|
("created_at" . "2018-05-23T19:58:07.422108")
|
|
|
|
|
("downloads" . ,downloads)
|
|
|
|
|
("forums" . ,forums)
|
|
|
|
|
("issue_tracker" . "https://example.org/foo/issues")
|
|
|
|
|
("license" . ,license)
|
|
|
|
|
("long_description" . ,long-description)
|
|
|
|
|
("maintainers" . #("maintainer"))
|
|
|
|
|
("media_license" . ,media-license)
|
|
|
|
|
("name" . ,name)
|
|
|
|
|
("provides" . #("stuff"))
|
|
|
|
|
("release" . 456)
|
|
|
|
|
("repo" . ,repo)
|
|
|
|
|
("score" . ,score)
|
|
|
|
|
("screenshots" . #())
|
|
|
|
|
("short_description" . ,short-description)
|
|
|
|
|
("state" . "APPROVED")
|
|
|
|
|
("tags" . #("some" "tags"))
|
|
|
|
|
("thumbnail" . null)
|
|
|
|
|
("title" . "The name")
|
|
|
|
|
("type" . ,type)
|
|
|
|
|
("url" . ,(string-append "https://content.minetest.net/packages/"
|
|
|
|
|
author "/" name "/download/"))
|
|
|
|
|
("website" . ,website)))
|
|
|
|
|
|
2021-09-07 11:24:24 +00:00
|
|
|
|
(define* (make-releases-json #:key (commit #f) (title "2021-07-25") #:allow-other-keys)
|
2021-08-10 15:07:20 +00:00
|
|
|
|
`#((("commit" . ,commit)
|
|
|
|
|
("downloads" . 469)
|
|
|
|
|
("id" . 8614)
|
|
|
|
|
("max_minetest_version" . null)
|
|
|
|
|
("min_minetest_version" . null)
|
|
|
|
|
("release_date" . "2021-07-25T01:10:23.207584")
|
2021-09-07 11:24:24 +00:00
|
|
|
|
("title" . ,title))))
|
2021-08-10 15:07:20 +00:00
|
|
|
|
|
|
|
|
|
(define* (make-dependencies-json #:key (author "Author")
|
|
|
|
|
(name "foo")
|
|
|
|
|
(requirements '(("default" #f ())))
|
|
|
|
|
#:allow-other-keys)
|
|
|
|
|
`((,(string-append author "/" name)
|
|
|
|
|
. ,(list->vector
|
|
|
|
|
(map (match-lambda
|
|
|
|
|
((symbolic-name optional? implementations)
|
|
|
|
|
`(("is_optional" . ,optional?)
|
|
|
|
|
("name" . ,symbolic-name)
|
|
|
|
|
("packages" . ,(list->vector implementations)))))
|
|
|
|
|
requirements)))
|
|
|
|
|
("something/else" . #())))
|
|
|
|
|
|
|
|
|
|
(define* (make-packages-keys-json #:key (author "Author")
|
|
|
|
|
(name "Name")
|
|
|
|
|
(type "mod"))
|
|
|
|
|
`(("author" . ,author)
|
|
|
|
|
("name" . ,name)
|
|
|
|
|
("type" . ,type)))
|
|
|
|
|
|
|
|
|
|
(define (call-with-packages thunk . argument-lists)
|
|
|
|
|
;; Don't reuse results from previous tests.
|
|
|
|
|
(invalidate-memoization! contentdb-fetch)
|
|
|
|
|
(invalidate-memoization! minetest->guix-package)
|
|
|
|
|
(define (scm->json-port scm)
|
|
|
|
|
(open-input-string (scm->json-string scm)))
|
|
|
|
|
(define (handle-package url requested-author requested-name . rest)
|
|
|
|
|
(define relevant-argument-list
|
|
|
|
|
(any (lambda (argument-list)
|
|
|
|
|
(apply (lambda* (#:key (author "Author") (name "foo")
|
|
|
|
|
#:allow-other-keys)
|
|
|
|
|
(and (equal? requested-author author)
|
|
|
|
|
(equal? requested-name name)
|
|
|
|
|
argument-list))
|
|
|
|
|
argument-list))
|
|
|
|
|
argument-lists))
|
|
|
|
|
(when (not relevant-argument-list)
|
|
|
|
|
(error "the package ~a/~a should be irrelevant, but ~a is fetched"
|
|
|
|
|
requested-author requested-name url))
|
|
|
|
|
(scm->json-port
|
|
|
|
|
(apply (match rest
|
|
|
|
|
(("") make-package-json)
|
|
|
|
|
(("dependencies" "") make-dependencies-json)
|
|
|
|
|
(("releases" "") make-releases-json)
|
|
|
|
|
(_ (error "TODO ~a" rest)))
|
|
|
|
|
relevant-argument-list)))
|
|
|
|
|
(define (handle-mod-search sort)
|
|
|
|
|
;; Produce search results, sorted by SORT in descending order.
|
|
|
|
|
(define arguments->key
|
|
|
|
|
(match sort
|
|
|
|
|
("score" (lambda* (#:key (score 987.654) #:allow-other-keys)
|
|
|
|
|
score))
|
|
|
|
|
("downloads" (lambda* (#:key (downloads 123) #:allow-other-keys)
|
|
|
|
|
downloads))))
|
|
|
|
|
(define argument-list->key (cut apply arguments->key <>))
|
|
|
|
|
(define (greater x y)
|
|
|
|
|
(> (argument-list->key x) (argument-list->key y)))
|
|
|
|
|
(define sorted-argument-lists (sort-list argument-lists greater))
|
|
|
|
|
(define* (arguments->json #:key (author "Author") (name "Foo") (type "mod")
|
|
|
|
|
#:allow-other-keys)
|
|
|
|
|
(and (string=? type "mod")
|
|
|
|
|
`(("author" . ,author)
|
|
|
|
|
("name" . ,name)
|
|
|
|
|
("type" . ,type))))
|
|
|
|
|
(define argument-list->json (cut apply arguments->json <>))
|
|
|
|
|
(scm->json-port
|
|
|
|
|
(list->vector (filter-map argument-list->json sorted-argument-lists))))
|
|
|
|
|
(mock ((guix http-client) http-fetch
|
|
|
|
|
(lambda* (url #:key headers)
|
|
|
|
|
(unless (string-prefix? "mock://api/packages/" url)
|
|
|
|
|
(error "the URL ~a should not be used" url))
|
|
|
|
|
(define resource
|
|
|
|
|
(substring url (string-length "mock://api/packages/")))
|
|
|
|
|
(define components (string-split resource #\/))
|
|
|
|
|
(match components
|
|
|
|
|
((author name . rest)
|
|
|
|
|
(apply handle-package url author name rest))
|
|
|
|
|
(((? (cut string-prefix? "?type=mod&q=" <>) query))
|
|
|
|
|
(handle-mod-search
|
|
|
|
|
(cond ((string-contains query "sort=score") "score")
|
|
|
|
|
((string-contains query "sort=downloads") "downloads")
|
|
|
|
|
(#t (error "search query ~a has unknown sort key"
|
|
|
|
|
query)))))
|
|
|
|
|
(_
|
|
|
|
|
(error "the URL ~a should have an author and name component"
|
|
|
|
|
url)))))
|
|
|
|
|
(parameterize ((%contentdb-api "mock://api/"))
|
|
|
|
|
(thunk))))
|
|
|
|
|
|
|
|
|
|
(define* (minetest->guix-package* #:key (author "Author") (name "foo")
|
|
|
|
|
(sort %default-sort-key)
|
|
|
|
|
#:allow-other-keys)
|
|
|
|
|
(minetest->guix-package (string-append author "/" name) #:sort sort))
|
|
|
|
|
|
|
|
|
|
(define (imported-package-sexp* primary-arguments . secondary-arguments)
|
|
|
|
|
"Ask the importer to import a package specified by PRIMARY-ARGUMENTS,
|
|
|
|
|
during a dynamic where that package and the packages specified by
|
|
|
|
|
SECONDARY-ARGUMENTS are available on ContentDB."
|
|
|
|
|
(apply call-with-packages
|
|
|
|
|
(lambda ()
|
|
|
|
|
;; The memoization cache is reset by call-with-packages
|
|
|
|
|
(apply minetest->guix-package* primary-arguments))
|
|
|
|
|
primary-arguments
|
|
|
|
|
secondary-arguments))
|
|
|
|
|
|
|
|
|
|
(define (imported-package-sexp . extra-arguments)
|
|
|
|
|
"Ask the importer to import a package specified by EXTRA-ARGUMENTS,
|
|
|
|
|
during a dynamic extent where that package is available on ContentDB."
|
|
|
|
|
(imported-package-sexp* extra-arguments))
|
|
|
|
|
|
|
|
|
|
(define-syntax-rule (test-package test-case . extra-arguments)
|
|
|
|
|
(test-equal test-case
|
|
|
|
|
(make-package-sexp . extra-arguments)
|
|
|
|
|
(imported-package-sexp . extra-arguments)))
|
|
|
|
|
|
|
|
|
|
(define-syntax-rule (test-package* test-case primary-arguments extra-arguments
|
|
|
|
|
...)
|
|
|
|
|
(test-equal test-case
|
|
|
|
|
(apply make-package-sexp primary-arguments)
|
|
|
|
|
(imported-package-sexp* primary-arguments extra-arguments ...)))
|
|
|
|
|
|
|
|
|
|
(test-begin "minetest")
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;; Package names
|
|
|
|
|
(test-package "minetest->guix-package")
|
|
|
|
|
(test-package "minetest->guix-package, _ → - in package name"
|
|
|
|
|
#:name "foo_bar"
|
|
|
|
|
#:guix-name "minetest-foo-bar"
|
|
|
|
|
#:upstream-name "Author/foo_bar")
|
|
|
|
|
|
2021-09-27 14:06:31 +00:00
|
|
|
|
(test-equal "elaborate names, unambiguous"
|
2021-08-10 15:07:20 +00:00
|
|
|
|
"Jeija/mesecons"
|
|
|
|
|
(call-with-packages
|
|
|
|
|
(cut elaborate-contentdb-name "mesecons")
|
|
|
|
|
'(#:name "mesecons" #:author "Jeija")
|
|
|
|
|
'(#:name "something" #:author "else")))
|
|
|
|
|
|
2021-09-27 14:06:31 +00:00
|
|
|
|
(test-equal "elaborate name, ambiguous (highest score)"
|
2021-08-10 15:07:20 +00:00
|
|
|
|
"Jeija/mesecons"
|
|
|
|
|
(call-with-packages
|
|
|
|
|
;; #:sort "score" is the default
|
|
|
|
|
(cut elaborate-contentdb-name "mesecons")
|
|
|
|
|
'(#:name "mesecons" #:author "Jeijc" #:score 777)
|
|
|
|
|
'(#:name "mesecons" #:author "Jeijb" #:score 888)
|
|
|
|
|
'(#:name "mesecons" #:author "Jeija" #:score 999)))
|
|
|
|
|
|
|
|
|
|
|
2021-09-27 14:06:31 +00:00
|
|
|
|
(test-equal "elaborate name, ambiguous (most downloads)"
|
2021-08-10 15:07:20 +00:00
|
|
|
|
"Jeija/mesecons"
|
|
|
|
|
(call-with-packages
|
|
|
|
|
(cut elaborate-contentdb-name "mesecons" #:sort "downloads")
|
|
|
|
|
'(#:name "mesecons" #:author "Jeijc" #:downloads 777)
|
|
|
|
|
'(#:name "mesecons" #:author "Jeijb" #:downloads 888)
|
|
|
|
|
'(#:name "mesecons" #:author "Jeija" #:downloads 999)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;; Determining the home page
|
|
|
|
|
(test-package "minetest->guix-package, website is used as home page"
|
|
|
|
|
#:home-page "web://site"
|
|
|
|
|
#:website "web://site")
|
|
|
|
|
(test-package "minetest->guix-package, if absent, the forum is used"
|
|
|
|
|
#:home-page '(minetest-topic 628)
|
|
|
|
|
#:forums 628
|
|
|
|
|
#:website 'null)
|
|
|
|
|
(test-package "minetest->guix-package, if absent, the git repo is used"
|
|
|
|
|
#:home-page "https://github.com/minetest-mods/mesecons"
|
|
|
|
|
#:forums 'null
|
|
|
|
|
#:website 'null
|
|
|
|
|
#:repo "https://github.com/minetest-mods/mesecons")
|
|
|
|
|
(test-package "minetest->guix-package, all home page information absent"
|
|
|
|
|
#:home-page #f
|
|
|
|
|
#:forums 'null
|
|
|
|
|
#:website 'null
|
|
|
|
|
#:repo 'null)
|
|
|
|
|
|
2021-09-07 11:24:24 +00:00
|
|
|
|
|
|
|
|
|
;; Determining the version number
|
|
|
|
|
|
|
|
|
|
(test-package "conventional version number" #:version "1.2.3" #:title "1.2.3")
|
|
|
|
|
;; See e.g. orwell/basic_trains
|
|
|
|
|
(test-package "v-prefixed version number" #:version "1.2.3" #:title "v1.2.3")
|
|
|
|
|
;; Many mods on ContentDB use dates as release titles. In that case, the date
|
|
|
|
|
;; will have to do.
|
|
|
|
|
(test-package "dates as version number"
|
|
|
|
|
#:version "2021-01-01" #:title "2021-01-01")
|
|
|
|
|
|
2021-08-10 15:07:20 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;; Dependencies
|
2021-09-27 14:06:31 +00:00
|
|
|
|
(test-package* "minetest->guix-package, unambiguous dependency"
|
2021-08-10 15:07:20 +00:00
|
|
|
|
(list #:requirements '(("mesecons" #f
|
|
|
|
|
("Jeija/mesecons"
|
|
|
|
|
"some-modpack/containing-mese")))
|
|
|
|
|
#:inputs '("minetest-mesecons"))
|
|
|
|
|
(list #:author "Jeija" #:name "mesecons")
|
|
|
|
|
(list #:author "some-modpack" #:name "containing-mese" #:type "modpack"))
|
|
|
|
|
|
2021-09-27 14:06:31 +00:00
|
|
|
|
(test-package* "minetest->guix-package, ambiguous dependency (highest score)"
|
2021-08-10 15:07:20 +00:00
|
|
|
|
(list #:name "frobnicate"
|
|
|
|
|
#:guix-name "minetest-frobnicate"
|
|
|
|
|
#:upstream-name "Author/frobnicate"
|
|
|
|
|
#:requirements '(("frob" #f
|
|
|
|
|
("Author/foo" "Author/bar")))
|
|
|
|
|
;; #:sort "score" is the default
|
|
|
|
|
#:inputs '("minetest-bar"))
|
|
|
|
|
(list #:author "Author" #:name "foo" #:score 0)
|
|
|
|
|
(list #:author "Author" #:name "bar" #:score 9999))
|
|
|
|
|
|
2021-09-27 14:06:31 +00:00
|
|
|
|
(test-package* "minetest->guix-package, ambiguous dependency (most downloads)"
|
2021-08-10 15:07:20 +00:00
|
|
|
|
(list #:name "frobnicate"
|
|
|
|
|
#:guix-name "minetest-frobnicate"
|
|
|
|
|
#:upstream-name "Author/frobnicate"
|
|
|
|
|
#:requirements '(("frob" #f
|
|
|
|
|
("Author/foo" "Author/bar")))
|
|
|
|
|
#:inputs '("minetest-bar")
|
|
|
|
|
#:sort "downloads")
|
|
|
|
|
(list #:author "Author" #:name "foo" #:downloads 0)
|
|
|
|
|
(list #:author "Author" #:name "bar" #:downloads 9999))
|
|
|
|
|
|
|
|
|
|
(test-package "minetest->guix-package, optional dependency"
|
|
|
|
|
#:requirements '(("mesecons" #t
|
|
|
|
|
("Jeija/mesecons"
|
|
|
|
|
"some-modpack/containing-mese")))
|
|
|
|
|
#:inputs '())
|
|
|
|
|
|
2021-09-07 11:05:56 +00:00
|
|
|
|
;; See e.g. 'orwell/basic_trains'
|
|
|
|
|
(test-package* "minetest->guix-package, multiple dependencies implemented by one mod"
|
|
|
|
|
(list #:name "frobnicate"
|
|
|
|
|
#:guix-name "minetest-frobnicate"
|
|
|
|
|
#:upstream-name "Author/frobnicate"
|
|
|
|
|
#:requirements '(("frob" #f ("Author/frob"))
|
|
|
|
|
("frob_x" #f ("Author/frob")))
|
|
|
|
|
#:inputs '("minetest-frob"))
|
|
|
|
|
(list #:author "Author" #:name "frob"))
|
|
|
|
|
|
2021-08-10 15:07:20 +00:00
|
|
|
|
|
|
|
|
|
;; License
|
|
|
|
|
(test-package "minetest->guix-package, identical licenses"
|
|
|
|
|
#:guix-license 'license:lgpl3+
|
|
|
|
|
#:license "LGPL-3.0-or-later"
|
|
|
|
|
#:media-license "LGPL-3.0-or-later")
|
|
|
|
|
|
|
|
|
|
;; Sorting
|
|
|
|
|
(let* ((make-package
|
|
|
|
|
(lambda arguments
|
|
|
|
|
(json->package (apply make-package-json arguments))))
|
|
|
|
|
(x (make-package #:score 0))
|
|
|
|
|
(y (make-package #:score 1))
|
|
|
|
|
(z (make-package #:score 2)))
|
|
|
|
|
(test-equal "sort-packages, already sorted"
|
|
|
|
|
(list z y x)
|
|
|
|
|
(sort-packages (list z y x)))
|
|
|
|
|
(test-equal "sort-packages, reverse"
|
|
|
|
|
(list z y x)
|
|
|
|
|
(sort-packages (list x y z))))
|
|
|
|
|
|
import/minetest: Define an updater for mods on ContentDB.
Only detecting updates is currently supported. To actually
perform the uppdates, a patch like
<https://issues.guix.gnu.org/50072#4> is required.
* guix/import/minetest.scm
(version-style,minetest-package?,latest-minetest-release): New procedures.
(%minetest-updater): New updater.
* tests/minetest.scm
(upstream-source->sexp,expected-sexp,example-package): New procedure.
(test-release,test-no-release): New macro's.
("same version","new version (dotted)","new version (date)")
("new version (git -> dotted)","dotted->date","date->dotted")
("no commit informaton, no new release")
("minetest is not a minetest mod")
("technic is a minetest mod")
("upstream-name is required"): New tests.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
2021-09-20 13:27:08 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;; Update detection
|
|
|
|
|
(define (upstream-source->sexp upstream-source)
|
2022-01-05 14:07:50 +00:00
|
|
|
|
(define url (upstream-source-urls upstream-source))
|
|
|
|
|
(unless (git-reference? url)
|
|
|
|
|
(error "a <git-reference> is expected"))
|
import/minetest: Define an updater for mods on ContentDB.
Only detecting updates is currently supported. To actually
perform the uppdates, a patch like
<https://issues.guix.gnu.org/50072#4> is required.
* guix/import/minetest.scm
(version-style,minetest-package?,latest-minetest-release): New procedures.
(%minetest-updater): New updater.
* tests/minetest.scm
(upstream-source->sexp,expected-sexp,example-package): New procedure.
(test-release,test-no-release): New macro's.
("same version","new version (dotted)","new version (date)")
("new version (git -> dotted)","dotted->date","date->dotted")
("no commit informaton, no new release")
("minetest is not a minetest mod")
("technic is a minetest mod")
("upstream-name is required"): New tests.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
2021-09-20 13:27:08 +00:00
|
|
|
|
`(,(upstream-source-package upstream-source)
|
|
|
|
|
,(upstream-source-version upstream-source)
|
|
|
|
|
,(git-reference-url url)
|
|
|
|
|
,(git-reference-commit url)))
|
|
|
|
|
|
|
|
|
|
(define* (expected-sexp #:key
|
|
|
|
|
(repo "https://example.org/foo.git")
|
|
|
|
|
(guix-name "minetest-foo")
|
|
|
|
|
(new-version "0.8")
|
|
|
|
|
(commit "44941798d222901b8f381b3210957d880b90a2fc")
|
|
|
|
|
#:allow-other-keys)
|
|
|
|
|
`(,guix-name ,new-version ,repo ,commit))
|
|
|
|
|
|
|
|
|
|
(define* (example-package #:key
|
|
|
|
|
(source 'auto)
|
|
|
|
|
(repo "https://example.org/foo.git")
|
|
|
|
|
(old-version "0.8")
|
|
|
|
|
(commit "44941798d222901b8f381b3210957d880b90a2fc")
|
|
|
|
|
#:allow-other-keys)
|
|
|
|
|
(package
|
|
|
|
|
(name "minetest-foo")
|
|
|
|
|
(version old-version)
|
|
|
|
|
(source
|
|
|
|
|
(if (eq? source 'auto)
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url repo)
|
|
|
|
|
(commit commit #;"808f9ffbd3106da4c92d2367b118b98196c9e81e")))
|
|
|
|
|
(sha256 #f) ; not important for the following tests
|
|
|
|
|
(file-name (git-file-name name version)))
|
|
|
|
|
source))
|
|
|
|
|
(build-system minetest-mod-build-system)
|
|
|
|
|
(license #f)
|
|
|
|
|
(synopsis #f)
|
|
|
|
|
(description #f)
|
|
|
|
|
(home-page #f)
|
|
|
|
|
(properties '((upstream-name . "Author/foo")))))
|
|
|
|
|
|
|
|
|
|
(define-syntax-rule (test-release test-case . arguments)
|
|
|
|
|
(test-equal test-case
|
|
|
|
|
(expected-sexp . arguments)
|
|
|
|
|
(and=>
|
|
|
|
|
(call-with-packages
|
|
|
|
|
(cut latest-minetest-release (example-package . arguments))
|
|
|
|
|
(list . arguments))
|
|
|
|
|
upstream-source->sexp)))
|
|
|
|
|
|
|
|
|
|
(define-syntax-rule (test-no-release test-case . arguments)
|
|
|
|
|
(test-equal test-case
|
|
|
|
|
#f
|
|
|
|
|
(call-with-packages
|
|
|
|
|
(cut latest-minetest-release (example-package . arguments))
|
|
|
|
|
(list . arguments))))
|
|
|
|
|
|
|
|
|
|
(test-release "same version"
|
|
|
|
|
#:old-version "0.8" #:title "0.8" #:new-version "0.8"
|
|
|
|
|
#:commit "44941798d222901b8f381b3210957d880b90a2fc")
|
|
|
|
|
|
|
|
|
|
(test-release "new version (dotted)"
|
|
|
|
|
#:old-version "0.8" #:title "0.9.0" #:new-version "0.9.0"
|
|
|
|
|
#:commit "c8855b991880897b2658dc90164e29c96e2aeb3a")
|
|
|
|
|
|
|
|
|
|
(test-release "new version (date)"
|
|
|
|
|
#:old-version "2014-11-17" #:title "2015-11-04"
|
|
|
|
|
#:new-version "2015-11-04"
|
|
|
|
|
#:commit "c8855b991880897b2658dc90164e29c96e2aeb3a")
|
|
|
|
|
|
|
|
|
|
(test-release "new version (git -> dotted)"
|
|
|
|
|
#:old-version
|
|
|
|
|
(git-version "0.8" "1" "90422555f114d3af35e7cc4b5b6d59a5c226adc4")
|
|
|
|
|
#:title "0.9.0" #:new-version "0.9.0"
|
|
|
|
|
#:commit "90422555f114d3af35e7cc4b5b6d59a5c226adc4")
|
|
|
|
|
|
|
|
|
|
;; There might actually be a new release, but guix cannot compare dates
|
|
|
|
|
;; with regular version numbers.
|
|
|
|
|
(test-no-release "dotted -> date"
|
|
|
|
|
#:old-version "0.8" #:title "2015-11-04"
|
|
|
|
|
#:commit "c8855b991880897b2658dc90164e29c96e2aeb3a")
|
|
|
|
|
|
|
|
|
|
(test-no-release "date -> dotted"
|
|
|
|
|
#:old-version "2014-11-07" #:title "0.8"
|
|
|
|
|
#:commit "c8855b991880897b2658dc90164e29c96e2aeb3a")
|
|
|
|
|
|
|
|
|
|
;; Don't let "guix refresh -t minetest" tell there are new versions
|
|
|
|
|
;; if Guix has insufficient information to actually perform the update,
|
|
|
|
|
;; when using --with-latest or "guix refresh -u".
|
|
|
|
|
(test-no-release "no commit information, no new release"
|
|
|
|
|
#:old-version "0.8" #:title "0.9.0" #:new-version "0.9.0"
|
|
|
|
|
#:commit #false)
|
|
|
|
|
|
|
|
|
|
(test-assert "minetest is not a minetest mod"
|
|
|
|
|
(not (minetest-package? minetest)))
|
|
|
|
|
(test-assert "GNU hello is not a minetest mod"
|
|
|
|
|
(not (minetest-package? hello)))
|
|
|
|
|
(test-assert "technic is a minetest mod"
|
|
|
|
|
(minetest-package? minetest-technic))
|
|
|
|
|
(test-assert "upstream-name is required"
|
|
|
|
|
(not (minetest-package?
|
|
|
|
|
(package (inherit minetest-technic)
|
|
|
|
|
(properties '())))))
|
|
|
|
|
|
2021-08-10 15:07:20 +00:00
|
|
|
|
(test-end "minetest")
|
2021-09-07 11:03:12 +00:00
|
|
|
|
|
|
|
|
|
;;; Local Variables:
|
|
|
|
|
;;; eval: (put 'test-package* 'scheme-indent-function 1)
|
import/minetest: Define an updater for mods on ContentDB.
Only detecting updates is currently supported. To actually
perform the uppdates, a patch like
<https://issues.guix.gnu.org/50072#4> is required.
* guix/import/minetest.scm
(version-style,minetest-package?,latest-minetest-release): New procedures.
(%minetest-updater): New updater.
* tests/minetest.scm
(upstream-source->sexp,expected-sexp,example-package): New procedure.
(test-release,test-no-release): New macro's.
("same version","new version (dotted)","new version (date)")
("new version (git -> dotted)","dotted->date","date->dotted")
("no commit informaton, no new release")
("minetest is not a minetest mod")
("technic is a minetest mod")
("upstream-name is required"): New tests.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
2021-09-20 13:27:08 +00:00
|
|
|
|
;;; eval: (put 'test-release 'scheme-indent-function 1)
|
|
|
|
|
;;; eval: (put 'test-no-release 'scheme-indent-function 1)
|
2021-09-07 11:03:12 +00:00
|
|
|
|
;;; End:
|