Christopher Baines
d3913a14d5
squee, returns all data as strings, and expects strings as inputs to queries. So, keeping the ids as strings was easy initially, but it means that you can't tell from the type whether it should be quoted, or not... Therefore, handle ids as strings, converting them to numbers when they're fetched from the database, and back to strings as part of the queries.
37 lines
1.1 KiB
Scheme
37 lines
1.1 KiB
Scheme
(define-module (tests model-lint-checker)
|
|
#:use-module (srfi srfi-64)
|
|
#:use-module (ice-9 match)
|
|
#:use-module (guix-data-service database)
|
|
#:use-module (guix-data-service model lint-checker))
|
|
|
|
(test-begin "test-model-lint-checker")
|
|
|
|
(define data
|
|
'((name-1 "description-1" #t)
|
|
(name-2 "description-2" #f)))
|
|
|
|
(with-postgresql-connection
|
|
"test-model-lint-checker"
|
|
(lambda (conn)
|
|
(test-assert "single insert"
|
|
(with-postgresql-transaction
|
|
conn
|
|
(lambda (conn)
|
|
(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)
|
|
(match (lint-checkers->lint-checker-ids conn data)
|
|
(((? 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)))))))
|
|
#:always-rollback? #t))))
|
|
|
|
(test-end)
|