diff options
Diffstat (limited to 'tests/model-git-branch.scm')
| -rw-r--r-- | tests/model-git-branch.scm | 30 |
1 files changed, 4 insertions, 26 deletions
diff --git a/tests/model-git-branch.scm b/tests/model-git-branch.scm index 46412bc..1bcc1c3 100644 --- a/tests/model-git-branch.scm +++ b/tests/model-git-branch.scm @@ -17,32 +17,10 @@ conn (lambda (conn) (let* ((url "test-url") - (id (git-repository-url->git-repository-id conn url))) - (insert-git-branch-entry conn - "master" - "test-commit" - id - (current-date))) - #t) - #:always-rollback? #t)) - - (test-assert "insert-git-branch-entry works twice" - (with-postgresql-transaction - conn - (lambda (conn) - (let* ((url "test-url") - (id (git-repository-url->git-repository-id conn url))) - (insert-git-branch-entry conn - "master" - "test-commit" - id - (current-date)) - (insert-git-branch-entry conn - "master" - "test-commit" - id - (current-date))) - #t) + (git-repository-id + (git-repository-url->git-repository-id conn url))) + (insert-git-branch-entry conn git-repository-id "master") + #t)) #:always-rollback? #t)))) (test-end) |