diff options
Diffstat (limited to 'tests/model-lint-warning-message.scm')
| -rw-r--r-- | tests/model-lint-warning-message.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/model-lint-warning-message.scm b/tests/model-lint-warning-message.scm index 7231a34..88cedd1 100644 --- a/tests/model-lint-warning-message.scm +++ b/tests/model-lint-warning-message.scm @@ -20,7 +20,7 @@ conn (lambda (conn) (match (lint-warning-message-data->lint-warning-message-ids conn data) - (((? number? id1) (? number? id2)) + (#((? number? id1) (? number? id2)) #t))) #:always-rollback? #t)) @@ -29,11 +29,11 @@ conn (lambda (conn) (match (lint-warning-message-data->lint-warning-message-ids conn data) - (((? number? id1) (? number? id2)) + (#((? number? id1) (? number? id2)) (match (lint-warning-message-data->lint-warning-message-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-assert "single set insert" @@ -53,7 +53,7 @@ ((? number? id) (match (lint-warning-message-data->lint-warning-message-set-id conn data) ((? number? second-id) - (eq? id second-id)))))) + (= id second-id)))))) #:always-rollback? #t)))) (test-end) |