suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add table-based db tests

Browse Source 
Allows testing for mysql char type (see previous commit comment)
This commit is contained in:
Ryan Culpepper 2012-11-14 19:56:56 -05:00
parent 8db023c624
commit ab88a2a9bd
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
collects/tests/db/db/sql-types.rkt
View File

@ -119,6 +119,21 @@
(define-check (check-roundtrip c value) (define-check (check-roundtrip c value)
(check-roundtrip* c value check-equal?)) (check-roundtrip* c value check-equal?))
;; FIXME: change to testing flag?
(define (temp-table-ok?)
(ANYFLAGS 'postgresql 'mysql))
(define (setup-temp-table c type)
(query-exec c (format "create temporary table testing_temp_table (v ~a)" type)))
(define (check-roundtrip*/table c value check-equal?)
(query-exec c "delete from testing_temp_table")
(query-exec c (sql "insert into testing_temp_table (v) values ($1)") value)
(check-equal? (query-value c "select v from testing_temp_table") value))
(define-check (check-roundtrip/table c value)
(check-roundtrip*/table c value check-equal?))
(define (check-value/text* c val text check-val-equal? check-text-equal?) (define (check-value/text* c val text check-val-equal? check-text-equal?)
(cond [(ANYFLAGS 'postgresql) (cond [(ANYFLAGS 'postgresql)
(let* ([tname (pg-type-name (current-type))] (let* ([tname (pg-type-name (current-type))]
@ -184,6 +199,9 @@
(check-equal? (query-value c (format "select ~a = any ($1)" elt) (list->pg-array lst)) (check-equal? (query-value c (format "select ~a = any ($1)" elt) (list->pg-array lst))
in?)) in?))
(define-check (check-trim-string=? a b)
(check-equal? (string-trim a) (string-trim b)))
(define some-dates (define some-dates
`((,(sql-date 1776 07 04) "1776-07-04") `((,(sql-date 1776 07 04) "1776-07-04")
(,(sql-date 2000 01 01) "2000-01-01") (,(sql-date 2000 01 01) "2000-01-01")
@ -381,6 +399,15 @@
(lambda (n) (lambda (n)
(integer->char (add1 n)))))))))) (integer->char (add1 n))))))))))
(type-test-case '(character)
(call-with-connection
(lambda (c)
(when (temp-table-ok?)
(setup-temp-table c "char(5)")
(check-roundtrip*/table c "" check-trim-string=?)
(check-roundtrip*/table c "abc" check-trim-string=?)
(check-roundtrip*/table c "abcde" check-trim-string=?)))))
(type-test-case '(date) (type-test-case '(date)
(call-with-connection (call-with-connection
(lambda (c) (lambda (c)