- (:setup ("CREATE TABLE ALPHA (A integer, B integer, C varchar (30), d date, f float)"
- "CREATE TABLE BRAVO (jack integer, jill integer)"))
- (:sqldata "ALPHA" "A,B,C,d,f"
- "1,1,'asdf','2010-01-01',3.14"
- "2,1,'blarg','2012-12-21',0.1")
+ (:setup (lambda ()
+ (create-table [alpha] '(([a] integer)
+ ([c] (varchar 30))
+ ([d] date)
+ ([f] float)))
+ (create-table [bravo] '(([foo] integer)
+ ([bar] integer)))))
+ (:sqldata "ALPHA" "A,C,D,F"
+ "1,'asdf','2010-01-01',3.14"
+ "2,'blarg','2012-12-21',0.1"
+ "3,'matey','1992-02-29',0.0")