Add an initial test
Along with the buildsystem changes to make `make check` work.
This commit is contained in:
parent
d69f77d59e
commit
ef4fd5ab4f
5 changed files with 59 additions and 0 deletions
18
tests/model-derivation.scm
Normal file
18
tests/model-derivation.scm
Normal file
|
|
@ -0,0 +1,18 @@
|
|||
(define-module (test-model-derivation)
|
||||
#:use-module (srfi srfi-64)
|
||||
#:use-module (guix-data-service database)
|
||||
#:use-module (guix-data-service model derivation))
|
||||
|
||||
(test-begin "test-model-derivation")
|
||||
|
||||
(with-postgresql-connection
|
||||
(lambda (conn)
|
||||
(test-equal "valid-systems"
|
||||
'()
|
||||
(valid-systems conn))
|
||||
|
||||
(test-equal "count-derivations"
|
||||
'("0")
|
||||
(count-derivations conn))))
|
||||
|
||||
(test-end)
|
||||
Loading…
Add table
Add a link
Reference in a new issue