From b2a6da33c29ccdb159aa15e98fdd68aa26600c6b Mon Sep 17 00:00:00 2001 From: Moritz Heidkamp Date: Wed, 17 Aug 2011 20:39:35 +0200 Subject: [PATCH] it's not like I created that API myself --- ssql.scm | 2 +- tests/ansi-test.scm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/ssql.scm b/ssql.scm index 24d4cff..b739c15 100644 --- a/ssql.scm +++ b/ssql.scm @@ -111,7 +111,7 @@ (sprintf "INSERT INTO ~A VALUES ~A" into (string-intersperse (map (lambda (val) - (self (car val) (cdr val))) + (self 'ssql->sql val)) values) ", "))) ((insert (('into table) ('columns columns ...) values ...)) diff --git a/tests/ansi-test.scm b/tests/ansi-test.scm index cd0a483..b9ddb08 100644 --- a/tests/ansi-test.scm +++ b/tests/ansi-test.scm @@ -45,9 +45,9 @@ (select (columns id) (from actors) (where (and (= firstname "Helge") (= lastname "Schneider")))))))) - (test "multiple records" + (test "multiple records using vectors for the records" "INSERT INTO actors (firstname, lastname) VALUES ('Sylvester', 'Stallone'), ('Arnold', 'Schwarzenegger')" - (ssql->sql #f '(insert (into actors) (columns firstname lastname) (values "Sylvester" "Stallone") (values "Arnold" "Schwarzenegger")))) + (ssql->sql #f '(insert (into actors) (columns firstname lastname) #("Sylvester" "Stallone") #("Arnold" "Schwarzenegger")))) (test "without explicit columns" "INSERT INTO actors VALUES ('Marlon', 'Brando')"