mirror of
git://git.savannah.gnu.org/guix/data-service.git
synced 2023-12-14 03:23:03 +01:00
Add a new test to cover some of the loading new revisions code
This commit is contained in:
parent
5d06a28577
commit
544dc1558f
2 changed files with 81 additions and 0 deletions
|
@ -67,6 +67,7 @@ TEST_EXTENSIONS = .scm
|
|||
|
||||
TESTS = \
|
||||
tests/branch-updated-emails.scm \
|
||||
tests/jobs-load-new-guix-revision.scm \
|
||||
tests/model-derivation.scm \
|
||||
tests/model-git-branch.scm \
|
||||
tests/model-git-repository.scm \
|
||||
|
|
80
tests/jobs-load-new-guix-revision.scm
Normal file
80
tests/jobs-load-new-guix-revision.scm
Normal file
|
@ -0,0 +1,80 @@
|
|||
(define-module (tests model-license)
|
||||
#:use-module (srfi srfi-64)
|
||||
#:use-module (ice-9 match)
|
||||
#:use-module (squee)
|
||||
#:use-module (guix utils)
|
||||
#:use-module (guix tests)
|
||||
#:use-module (guix-data-service database)
|
||||
#:use-module (tests mock-inferior)
|
||||
#:use-module (guix-data-service model git-repository)
|
||||
#:use-module (guix-data-service jobs load-new-guix-revision))
|
||||
|
||||
(test-begin "jobs-load-new-guix-revision")
|
||||
|
||||
(with-postgresql-connection
|
||||
(lambda (conn)
|
||||
(test-equal "select-job-for-commit works"
|
||||
'()
|
||||
(select-job-for-commit conn "does not exist"))
|
||||
|
||||
(test-equal "test job success"
|
||||
#t
|
||||
(mock
|
||||
((guix-data-service jobs load-new-guix-revision)
|
||||
store-item-for-git-repository-id-and-commit
|
||||
(lambda (conn git-repository-id commit)
|
||||
"/gnu/store/test"))
|
||||
|
||||
(mock
|
||||
((guix-data-service jobs load-new-guix-revision)
|
||||
extract-information-from
|
||||
(lambda (conn git-repository-id commit store-path)
|
||||
#t))
|
||||
|
||||
(enqueue-load-new-guix-revision-job
|
||||
conn
|
||||
(git-repository-url->git-repository-id conn "test-url")
|
||||
"test-commit"
|
||||
"test-source")
|
||||
|
||||
(process-next-load-new-guix-revision-job conn))))
|
||||
|
||||
(test-equal "test build store item failure"
|
||||
#f
|
||||
(mock
|
||||
((guix-data-service jobs load-new-guix-revision)
|
||||
store-item-for-git-repository-id-and-commit
|
||||
(lambda (conn git-repository-id commit)
|
||||
#f))
|
||||
|
||||
(enqueue-load-new-guix-revision-job
|
||||
conn
|
||||
(git-repository-url->git-repository-id conn "test-url")
|
||||
"test-commit"
|
||||
"test-source")
|
||||
|
||||
(process-next-load-new-guix-revision-job conn)))
|
||||
|
||||
(test-equal "test extract information failure"
|
||||
#f
|
||||
(mock
|
||||
((guix-data-service jobs load-new-guix-revision)
|
||||
store-item-for-git-repository-id-and-commit
|
||||
(lambda (conn git-repository-id commit)
|
||||
"/gnu/store/test"))
|
||||
|
||||
(mock
|
||||
((guix-data-service jobs load-new-guix-revision)
|
||||
extract-information-from
|
||||
(lambda (conn git-repository-id commit store-path)
|
||||
#f))
|
||||
|
||||
(enqueue-load-new-guix-revision-job
|
||||
conn
|
||||
(git-repository-url->git-repository-id conn "test-url")
|
||||
"test-commit"
|
||||
"test-source")
|
||||
|
||||
(process-next-load-new-guix-revision-job conn))))))
|
||||
|
||||
(test-end)
|
Loading…
Reference in a new issue