gnu: emacs-volatile-highlights: Fix hash. - guix

diff options

author	Nicolas Goaziou <mail@nicolasgoaziou.fr>	2024-09-15 20:43:17 +0200
committer	Nicolas Goaziou <mail@nicolasgoaziou.fr>	2024-09-15 20:43:17 +0200
commit	61b6c7ceb1e2c3baf9cdfbd05e6ad4f6d2dc2a3c (patch)
tree	ecbad7152a6483a84e01e941751f5baabd3aa9d8 /gnu/packages/vlang.scm
parent	ecc95ecd399ce7917a19ae3e687ea1a92caf830a (diff)
download	guix-61b6c7ceb1e2c3baf9cdfbd05e6ad4f6d2dc2a3c.tar.gz guix-61b6c7ceb1e2c3baf9cdfbd05e6ad4f6d2dc2a3c.zip

gnu: emacs-volatile-highlights: Fix hash.

Latest attempt to fix a build failure, in commit 16ffcce3cdbae2bf8458e8b0bbb68d135099b1b3, ended with the introduction of a hash mismatch. Fix it. * gnu/packages/emacs-xyz.scm (emacs-volatile-highlights): Fix hash. Change-Id: I6c542721da35304bd273c7ae8d676b11780064a6

Diffstat (limited to 'gnu/packages/vlang.scm')

0 files changed, 0 insertions, 0 deletions

r" "elm-xyz-foo-bar" "xyz/foo-bar") (test-upstream-needed "elm-explorations-xyz/foo" "elm-explorations-xyz-foo" "elm-explorations/xyz-foo") (test-upstream-needed "elm-explorations-xyz/foo-bar" "elm-explorations-xyz-foo-bar" "elm-explorations/xyz-foo-bar")) (test-group "no inferred Elm name" ;; Cases that 'infer-elm-package-name' should not attempt to handle, ;; because 'elm->package-name' would never produce such names. (define-syntax-rule (test-not-inferred guix) (test-assert guix (not (infer-elm-package-name guix)))) (test-not-inferred "elm") (test-not-inferred "guile") (test-not-inferred "gcc-toolchain") (test-not-inferred "font-adobe-source-sans-pro"))) (define test-package-registry-json ;; we intentionally list versions in different orders here "{ \"elm/core\": [\"1.0.0\", \"1.0.1\", \"1.0.2\", \"1.0.3\", \"1.0.4\"], \"elm-guix/demo\": [\"2.0.0\", \"3.0.0\", \"1.0.0\"] }") (define test-elm-core-json "{ \"type\": \"package\", \"name\": \"elm/core\", \"summary\": \"Elm's standard libraries\", \"license\": \"BSD-3-Clause\", \"version\": \"1.0.4\", \"exposed-modules\": { \"Primitives\": [ \"Basics\", \"String\", \"Char\", \"Bitwise\", \"Tuple\" ], \"Collections\": [ \"List\", \"Dict\", \"Set\", \"Array\" ], \"Error Handling\": [ \"Maybe\", \"Result\" ], \"Debug\": [ \"Debug\" ], \"Effects\": [ \"Platform.Cmd\", \"Platform.Sub\", \"Platform\", \"Process\", \"Task\" ] }, \"elm-version\": \"0.19.0 <= v < 0.20.0\", \"dependencies\": {}, \"test-dependencies\": {} }") (define test-elm-core-readme "# Core Libraries Every Elm project needs this package! It provides **basic functionality** like addition and subtraction as well as **data structures** like lists, dictionaries, and sets.") (define test-elm-guix-demo-json "{ \"type\": \"package\", \"name\": \"elm-guix/demo\", \"summary\": \"A test for `(guix import elm)`\", \"license\": \"GPL-3.0-or-later\", \"version\": \"3.0.0\", \"exposed-modules\": [ \"Guix.Demo\" ], \"elm-version\": \"0.19.0 <= v < 0.20.0\", \"dependencies\": { \"elm/core\": \"1.0.0 <= v < 2.0.0\" }, \"test-dependencies\": { \"elm/json\": \"1.0.0 <= v < 2.0.0\" } }") (define test-elm-guix-demo-readme ;; intentionally left blank "") (define (directory-sha256 directory) "Returns the string representing the hash of DIRECTORY as would be used in a package definition." (bytevector->nix-base32-string (file-hash* directory #:algorithm (hash-algorithm sha256) #:recursive? #t))) (test-group "(guix import elm)" (call-with-temporary-directory (lambda (dir) ;; Initialize our fake git checkouts. (define elm-core-dir (string-append dir "/test-elm-core-1.0.4")) (define elm-guix-demo-dir (string-append dir "/test-elm-guix-demo-3.0.0")) (for-each (match-lambda ((dir json readme) (mkdir dir) (with-output-to-file (string-append dir "/elm.json") (lambda () (display json))) (with-output-to-file (string-append dir "/README.md") (lambda () (display readme))))) `((,elm-core-dir ,test-elm-core-json ,test-elm-core-readme) (,elm-guix-demo-dir ,test-elm-guix-demo-json ,test-elm-guix-demo-readme))) ;; Replace network resources with sample data. (parameterize ((%elm-package-registry (lambda () (json-string->scm test-package-registry-json))) (%current-elm-checkout (lambda (name version) (match (list name version) (("elm/core" "1.0.4") elm-core-dir) (("elm-guix/demo" "3.0.0") elm-guix-demo-dir))))) (test-assert "(elm->guix-package \"elm/core\")" (match (elm->guix-package "elm/core") (`(package (name "elm-core") (version "1.0.4") (source (elm-package-origin "elm/core" version (base32 ,(? string? hash)))) (build-system elm-build-system) (home-page "https://package.elm-lang.org/packages/elm/core/1.0.4") (synopsis "Elm's standard libraries") (description "Every Elm project needs this package!") (license license:bsd-3)) (equal? (directory-sha256 elm-core-dir) hash)) (x (raise-exception x)))) (test-assert "(elm-recursive-import \"elm-guix/demo\")" (match (elm-recursive-import "elm-guix/demo") (`((package (name "elm-guix-demo") (version "3.0.0") (source (elm-package-origin "elm-guix/demo" version (base32 ,(? string? hash)))) (build-system elm-build-system) (propagated-inputs (list elm-core)) (inputs (list elm-json)) (home-page "https://package.elm-lang.org/packages/elm-guix/demo/3.0.0") (synopsis "A test for `(guix import elm)`") (description "This package provides a test for `(guix import elm)`.") (properties '((upstream-name . "elm-guix/demo"))) (license license:gpl3+))) (equal? (directory-sha256 elm-guix-demo-dir) hash)) (x (raise-exception x)))))))) (test-end "elm")


context:
space:
mode: