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

use test-group

Browse Source
master
Moritz Heidkamp 13 years ago
parent c8a5172bcd
commit e5ce524449
1 changed files with 23 additions and 25 deletions
Show Stats Download Patch File Download Diff File

6
tests/ansi-test.scm
Unescape Escape View File

@ -1,7 +1,7 @@
(use test) (use test)
(import ssql) (import ssql)
(test-begin "selects") (test-group "selects"
(test "Simple query" (test "Simple query"
"SELECT actors.firstname, actors.lastname FROM actors" "SELECT actors.firstname, actors.lastname FROM actors"
(ssql->sql #f `(select (columns actors.firstname actors.lastname) (ssql->sql #f `(select (columns actors.firstname actors.lastname)
@ -25,6 +25,4 @@
(test "Order" (test "Order"
"SELECT lastname, firstname FROM people ORDER BY lastname DESC, firstname" "SELECT lastname, firstname FROM people ORDER BY lastname DESC, firstname"
(ssql->sql #f '(select (columns lastname firstname) (from people) (order (desc lastname) firstname)))) (ssql->sql #f '(select (columns lastname firstname) (from people) (order (desc lastname) firstname)))))
(test-end "selects")

Write Preview
Loading…
Cancel
Save