Add an initial test

Along with the buildsystem changes to make `make check` work.
This commit is contained in:
Christopher Baines 2019-04-14 10:08:11 +01:00
parent d69f77d59e
commit ef4fd5ab4f
5 changed files with 59 additions and 0 deletions

View 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)