diff options
Diffstat (limited to 'tests/model-lint-checker.scm')
-rw-r--r-- | tests/model-lint-checker.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/model-lint-checker.scm b/tests/model-lint-checker.scm index 64088e5..bbc79de 100644 --- a/tests/model-lint-checker.scm +++ b/tests/model-lint-checker.scm @@ -18,7 +18,7 @@ conn (lambda (conn) (match (lint-checkers->lint-checker-ids conn data) - (((? string? id1) (? string? id2)) + (((? number? id1) (? number? id2)) #t))) #:always-rollback? #t)) @@ -27,11 +27,11 @@ conn (lambda (conn) (match (lint-checkers->lint-checker-ids conn data) - (((? string? id1) (? string? id2)) + (((? number? id1) (? number? id2)) (match (lint-checkers->lint-checker-ids conn data) - (((? string? second-id1) (? string? second-id2)) - (and (string=? id1 second-id1) - (string=? id2 second-id2))))))) + (((? number? second-id1) (? number? second-id2)) + (and (eq? id1 second-id1) + (eq? id2 second-id2))))))) #:always-rollback? #t)))) (test-end) |