diff options
Diffstat (limited to 'tests/jobs-load-new-guix-revision.scm')
-rw-r--r-- | tests/jobs-load-new-guix-revision.scm | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/tests/jobs-load-new-guix-revision.scm b/tests/jobs-load-new-guix-revision.scm index 14d0e33..cbd9adc 100644 --- a/tests/jobs-load-new-guix-revision.scm +++ b/tests/jobs-load-new-guix-revision.scm @@ -82,7 +82,24 @@ ((id) (process-load-new-guix-revision-job id)))))) - (exec-query conn "TRUNCATE load_new_guix_revision_jobs CASCADE"))) + (exec-query conn "TRUNCATE load_new_guix_revision_jobs CASCADE") + + (test-assert "test duplicate job handling" + (with-postgresql-transaction + conn + (lambda (conn) + (enqueue-load-new-guix-revision-job + conn + (git-repository-url->git-repository-id conn "test-url") + "test-commit" + "test-source") + (enqueue-load-new-guix-revision-job + conn + (git-repository-url->git-repository-id conn "test-url") + "test-commit" + "test-source") + #t) + #:always-rollback? #t)))) (test-end) |