From ad267dc86aeea70b3e1e83914f808f21ce98118f Mon Sep 17 00:00:00 2001
From: Mathieu Lirzin <mthl@gnu.org>
Date: Wed, 27 Jul 2016 13:43:53 +0200
Subject: [PATCH] tests: Add missing test group statements.
* tests/base.scm: Add missing 'test-begin' and 'test-end'.
* tests/database.scm: Likewise.
* tests/ui.scm: Likewise.
* tests/utils.scm: Likewise.
---
tests/base.scm | 4 ++++
tests/database.scm | 4 ++++
tests/ui.scm | 4 ++++
tests/utils.scm | 4 ++++
4 files changed, 16 insertions(+)
diff --git a/tests/base.scm b/tests/base.scm
index f902da2e..1cfbecb6 100644
--- a/tests/base.scm
+++ b/tests/base.scm
@@ -19,6 +19,10 @@
(use-modules (cuirass base)
(srfi srfi-64))
+(test-begin "base")
+
(test-error "invalid cache directory"
'wrong-type-arg
(%package-cachedir #f))
+
+(test-end)
diff --git a/tests/database.scm b/tests/database.scm
index 7fa9f1b2..eecef8be 100644
--- a/tests/database.scm
+++ b/tests/database.scm
@@ -45,6 +45,8 @@
;; Global Slot for a job ID in the database.
(make-parameter #t))
+(test-begin "database")
+
(parameterize
((%package-database
;; Use an empty and temporary database for the tests.
@@ -84,3 +86,5 @@
(db-close (%db))))
(位 ()
(delete-file (%package-database)))))
+
+(test-end)
diff --git a/tests/ui.scm b/tests/ui.scm
index 34b1ffdd..62e14321 100644
--- a/tests/ui.scm
+++ b/tests/ui.scm
@@ -19,6 +19,10 @@
(use-modules (cuirass ui)
(srfi srfi-64))
+(test-begin "ui")
+
(test-error "invalid program name"
'wrong-type-arg
(%program-name #f))
+
+(test-end)
diff --git a/tests/utils.scm b/tests/utils.scm
index 4b9d767a..496cbee7 100644
--- a/tests/utils.scm
+++ b/tests/utils.scm
@@ -23,6 +23,8 @@
(define dir-1 (make-parameter ""))
(define dir-2 (make-parameter ""))
+(test-begin "utils")
+
(test-assert "with-directory-excursion"
(let ((old (getcwd))
(tmp (tmpnam)))
@@ -37,3 +39,5 @@
(string=? (dir-2) old)))
(位 ()
(rmdir tmp)))))
+
+(test-end)
--
GitLab