Browse files

added an unit test for b8c0840.

  • Loading branch information...
1 parent 63ac16e commit bb1dd5c14e0c9e69b12c74d3399b9485aeb4c14e @fukamachi committed Jan 7, 2013
Showing with 3 additions and 0 deletions.
  1. +3 −0 src/test.lisp
View
3 src/test.lisp
@@ -50,6 +50,9 @@
(let ((result (fetch result)))
(is-type result '(non-nil property-list))
(is (getf result :|name|) "matsuyama"))
+ (is (fetch result) nil))
+ (let* ((query (prepare *db* "SELECT * FROM person WHERE name = ?"))
+ (result (execute query nil)))
(is (fetch result) nil)))
(deftest |place holder|

0 comments on commit bb1dd5c

Please sign in to comment.