mirror of https://notabug.org/mthl/cuirass.git
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.pull/3/head
parent
24bfb61e8e
commit
ad267dc86a
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue