mirror of
https://codeberg.org/guix/guix.git
synced 2026-09-01 02:44:59 +00:00
Maxim Cournoyer
ef58e493c3
* guix/build/node-build-system.scm (with-atomic-json-file-replacement): Call
json->scm with #:ordered #t.
* tests/node.scm ("modify-json, ordering"): New test.
("delete-dev-dependencies/except"): Adjust expected output accordingly.
Change-Id: I9cf0475a7bac0cad8f5fd3d479c50eb35eac3f32
109 lines
3.7 KiB
Scheme
109 lines
3.7 KiB
Scheme
;;; GNU Guix --- Tests for the node-build-system procedures.
|
|
;;; Copyright © 2026 Maxim Cournoyer <maxim@guixotic.coop>
|
|
;;;
|
|
;;; 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/>.
|
|
|
|
(use-modules (json)
|
|
(guix build node-build-system)
|
|
(guix tests)
|
|
(srfi srfi-64))
|
|
|
|
(define (package.json)
|
|
"Sample package.json file."
|
|
(call-with-output-string
|
|
(lambda (out)
|
|
(scm->json
|
|
'(("devDependencies"
|
|
("typescript-eslint" . "^8.61.0")
|
|
("typescript" . "^5.9.3")
|
|
("typedoc" . "^0.28.19")
|
|
("htmlparser2" . "^10.1.0")
|
|
("eslint" . "^10.4.1")
|
|
("@types/node" . "^25.9.2"))
|
|
("dependencies"
|
|
("domelementtype" . "^3.0.0")
|
|
("boolbase" . ">=2.0.0"))
|
|
("peerDependencies"
|
|
("mkdirp" . ">=1.0.0")
|
|
("react" . "^16.8.0"))
|
|
("engines" ("node" . ">=20.19.0"))
|
|
("repository"
|
|
("url" . "https://example.com/dummy/dummy.git")
|
|
("type" . "git"))
|
|
("scripts"
|
|
("test" . "npm run test")
|
|
("lint" . "eslint .")
|
|
("build" . "tsc"))
|
|
("files" . #("dist" "src" "!**/*.spec.ts"))
|
|
("sideEffects" . #f)
|
|
("exports"
|
|
("." ("default" . "./dist/index.js") ("types" . "./dist/index.d.ts")))
|
|
("types" . "dist/index.d.ts")
|
|
("main" . "dist/index.js")
|
|
("license" . "GPL-3.0")
|
|
("description" . "Dummy package.json")
|
|
("version" . "6.0.1")
|
|
("name" . "dummy")
|
|
("type" . "module"))
|
|
out #:pretty #t))))
|
|
|
|
(define* (modify-json* #:rest all-arguments)
|
|
"Wrap modify-json to use our package.json test sample and avoid file I/O.
|
|
It also returns the data as an alist directly."
|
|
(mock ((guix build utils) with-atomic-file-replacement
|
|
(lambda (_ proc)
|
|
(call-with-input-string (package.json)
|
|
(lambda (in)
|
|
(call-with-output-string
|
|
(lambda (out)
|
|
(proc in out)))))))
|
|
(json-string->scm (apply modify-json all-arguments)
|
|
#:ordered #t)))
|
|
|
|
|
|
(test-begin "node related tests")
|
|
|
|
(test-equal "modify-json, ordering"
|
|
'(("mkdirp" . ">=1.0.0")
|
|
("react" . "^16.8.0"))
|
|
(assoc-ref (modify-json* (modify-json-fields
|
|
'("peerDependencies.react")
|
|
(lambda (field-path data key)
|
|
data)))
|
|
"peerDependencies"))
|
|
|
|
(test-equal "delete-dependencies"
|
|
'(("domelementtype" . "^3.0.0"))
|
|
(assoc-ref (modify-json*
|
|
(delete-dependencies '("boolbase")))
|
|
"dependencies"))
|
|
|
|
(test-equal "delete-dependencies/except"
|
|
'(("boolbase" . ">=2.0.0"))
|
|
(assoc-ref (modify-json*
|
|
(delete-dependencies/except '("boolbase")))
|
|
"dependencies"))
|
|
|
|
(test-equal "delete-dev-dependencies/except"
|
|
'(("typescript" . "^5.9.3")
|
|
("@types/node" . "^25.9.2"))
|
|
(assoc-ref (modify-json*
|
|
(delete-dev-dependencies/except
|
|
'("typescript" "@types/node")))
|
|
"devDependencies"))
|
|
|
|
(test-end)
|