diff options
Diffstat (limited to 'tests/model-lint-checker.scm')
| -rw-r--r-- | tests/model-lint-checker.scm | 37 |
1 files changed, 14 insertions, 23 deletions
diff --git a/tests/model-lint-checker.scm b/tests/model-lint-checker.scm index e6740b1..73ac405 100644 --- a/tests/model-lint-checker.scm +++ b/tests/model-lint-checker.scm @@ -16,32 +16,23 @@ conn (lambda (conn) (define data - `((name-1 #t ,(string->number (insert-lint-checker-description-set - conn '(37)))) - (name-2 #f ,(string->number (insert-lint-checker-description-set - conn '(38)))))) + `#((name-1 + #t + ,(lint-checker-description-data->lint-checker-description-set-id + conn + '(("en_US" . "foo")))) + (name-2 + #f + ,(lint-checker-description-data->lint-checker-description-set-id + conn + '(("en_US" . "bar")))))) (match (lint-checkers->lint-checker-ids conn data) - (((? number? id1) (? number? id2)) - #t))) - #:always-rollback? #t)) - - (test-assert "double insert" - (with-postgresql-transaction - conn - (lambda (conn) - (define data - `((name-1 #t ,(string->number (insert-lint-checker-description-set - conn '(37)))) - (name-2 #f ,(string->number (insert-lint-checker-description-set - conn '(38)))))) - - (match (lint-checkers->lint-checker-ids conn data) - (((? number? id1) (? number? id2)) + (#((? number? id1) (? number? id2)) (match (lint-checkers->lint-checker-ids conn data) - (((? number? second-id1) (? number? second-id2)) - (and (eq? id1 second-id1) - (eq? id2 second-id2))))))) + (#((? number? second-id1) (? number? second-id2)) + (and (= id1 second-id1) + (= id2 second-id2))))))) #:always-rollback? #t)))) (test-end) |