guix_mirror_bot pushed a commit to branch javascript-team in repository guix.
commit 7bcfbab25b85785e3e9e6f86e79a65b833158f43 Author: Maxim Cournoyer <[email protected]> AuthorDate: Sun Aug 2 18:50:55 2026 +0900 tests: Move modify-json ordering test to tests/json-utils.scm. * tests/node.scm ("modify-json, ordering"): Move to... * tests/json-utils.scm ("modify-json, ordering"): ... here. --- tests/json-utils.scm | 12 +++++++++++- tests/node.scm | 9 --------- 2 files changed, 11 insertions(+), 10 deletions(-) diff --git a/tests/json-utils.scm b/tests/json-utils.scm index 3f0ad0b8a0d..30f63774345 100644 --- a/tests/json-utils.scm +++ b/tests/json-utils.scm @@ -56,7 +56,8 @@ captures the written output as a string." "Mock modify-json* with input from the package.json procedure." (mock ((guix build utils) with-atomic-file-replacement with-atomic-file-replacement/mock) - (json-string->scm (apply modify-json all-arguments)))) + (json-string->scm (apply modify-json all-arguments) + #:ordered #t))) (test-begin "json-utils") @@ -214,6 +215,15 @@ captures the written output as a string." ((modify-json-fields '(42) (lambda (field data key) data)) (fresh-sample-json))) +(test-equal "modify-json, ordering" + '(("baz" . "^3.0.0") + ("qux" . "^4.0.0")) + (assoc-ref (modify-json* (modify-json-fields + '("devDependencies.qux") + (lambda (field-path data key) + data))) ;no-op + "devDependencies")) + ;;; ;;; modify-json (deprecated wrapper) ;;; diff --git a/tests/node.scm b/tests/node.scm index 7328ac91e8e..55236f0df43 100644 --- a/tests/node.scm +++ b/tests/node.scm @@ -76,15 +76,6 @@ It also returns the data as an alist directly." (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*
