From 230a8b05a844a67f2eeb0f554301d1fe2b52a937 Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim@guixotic.coop>
Date: Wed, 10 Jun 2026 09:00:16 +0900
Subject: build/node: Add `delete-dependencies/except' procedure.

This adds a more convenient means to filter out most, but not all, development
dependencies.

* guix/build/node-build-system.scm (%dependency-keys)
(%dev-dependency-keys): New variables.
(delete-dependencies) [#:negate?, #:dependency-keys]: New arguments.  Log
removed dependencies.
(delete-dependencies/except, delete-dev-dependencies/except): New procedures.
* tests/node.scm: New test.
* Makefile.am (SCM_TESTS): Register it.
---
 tests/node.scm | 99 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 99 insertions(+)
 create mode 100644 tests/node.scm

(limited to 'tests')

diff --git a/tests/node.scm b/tests/node.scm
new file mode 100644
index 00000000000..5159d530a12
--- /dev/null
+++ b/tests/node.scm
@@ -0,0 +1,99 @@
+;;; 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 "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"
+  '(("@types/node" . "^25.9.2")
+    ("typescript" . "^5.9.3"))
+  (assoc-ref (modify-json*
+              (delete-dev-dependencies/except
+               '("typescript" "@types/node")))
+             "devDependencies"))
+
+(test-end)
-- 
cgit v1.2.3