branch: main
commit 6cd9b3b444500f468095fa3bcfb670ef3468f526
Author: Romain GARBAGE <romain.garb...@inria.fr>
AuthorDate: Thu Mar 27 13:03:38 2025 +0100
forges: Add tests for forge-get-token.
* Makefile.am: Add test file.
* tests/forges.scm: New file.
Signed-off-by: Ludovic Courtès <l...@gnu.org>
---
Makefile.am | 1 +
tests/forges.scm | 33 +++++++++++++++++++++++++++++++++
2 files changed, 34 insertions(+)
diff --git a/Makefile.am b/Makefile.am
index 6f20fcd..89e3079 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -182,6 +182,7 @@ TESTS = \
## tests/basic.sh # takes too long to execute
tests/store.scm \
tests/database.scm \
+ tests/forges.scm \
tests/forgejo.scm \
tests/forges-notification.scm \
tests/gitlab.scm \
diff --git a/tests/forges.scm b/tests/forges.scm
new file mode 100644
index 0000000..84b85f2
--- /dev/null
+++ b/tests/forges.scm
@@ -0,0 +1,33 @@
+;;; forges.scm -- tests for (cuirass forges) module
+;;; Copyright © 2025 Romain GARBAGE <romain.garb...@inria.fr>
+;;;
+;;; This file is part of Cuirass.
+;;;
+;;; Cuirass 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.
+;;;
+;;; Cuirass 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 Cuirass. If not, see <http://www.gnu.org/
+
+(use-modules (cuirass forges))
+
+(parameterize ((%forge-token-directory (mkdtemp "/tmp/cuirass-tokens-XXXXXX")))
+ (call-with-output-file (pk 'file (string-append (pk 'tmp
(%forge-token-directory))
+ "/host-name"))
+ (lambda (port)
+ (display "namespace 0000-token-0000" port)))
+
+ (test-equal "forge-get-token: return existing token"
+ "0000-token-0000"
+ (forge-get-token "host-name" "namespace"))
+
+ (test-equal "forge-get-token: undefined namespace"
+ #f
+ (forge-get-token "host-name" "non-existing")))
