build/node: Preserve field order of modified JSON files.

* 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

1 files changed, 11 insertions, 2 deletions

diff --git a/tests/node.scm b/tests/node.scm
index 5159d530a12..7328ac91e8e 100644
--- a/tests/node.scm
+++ b/tests/node.scm
@@ -76,6 +76,15 @@ 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*
@@ -89,8 +98,8 @@ It also returns the data as an alist directly."
              "dependencies"))
 
 (test-equal "delete-dev-dependencies/except"
-  '(("@types/node" . "^25.9.2")
-    ("typescript" . "^5.9.3"))
+  '(("typescript" . "^5.9.3")
+    ("@types/node" . "^25.9.2"))
   (assoc-ref (modify-json*
               (delete-dev-dependencies/except
                '("typescript" "@types/node")))