kritphong
/
ssql
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add group to composition tests

Browse Source
master
Moritz Heidkamp 14 years ago
parent a723338316
commit b3cbead806
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File

7
tests/composition-test.scm
Unescape Escape View File

@ -1,13 +1,14 @@
(use test) (use test)
(import ssql) (import ssql)
(test "simple" (test-group "composition"
(test "simple"
'(select (columns firstname lastname) (from artists) (where (= firstname "Frank"))) '(select (columns firstname lastname) (from artists) (where (= firstname "Frank")))
(ssql-compose #f (ssql-compose #f
'(select (columns firstname lastname) (from artists)) '(select (columns firstname lastname) (from artists))
'((where (= firstname "Frank"))))) '((where (= firstname "Frank")))))
(test "merge" (test "merge"
'(select (columns firstname lastname age) (from artists) (order firstname lastname)) '(select (columns firstname lastname age) (from artists) (order firstname lastname))
(ssql-compose #f '(select (columns firstname lastname) (order firstname)) (ssql-compose #f '(select (columns firstname lastname) (order firstname))
'((columns age) (from artists) (order lastname)))) '((columns age) (from artists) (order lastname)))))
Write Preview
Loading…
Cancel
Save