Permalink
Browse files

improved driver tests.

  • Loading branch information...
1 parent 6b59e68 commit b3266a668d2789d5d9922fe77c3a69aa94892322 @fukamachi committed Jan 30, 2012
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/test.lisp
View
@@ -41,10 +41,10 @@
(setf result (execute query))
(is-type result '<dbd-query>)
(let ((result (fetch result)))
- (is-type result 'property-list)
+ (is-type result '(non-nil property-list))
(is (getf result :|name|) "fukamachi"))
(let ((result (fetch result)))
- (is-type result 'property-list)
+ (is-type result '(non-nil property-list))
(is (getf result :|name|) "matsuyama"))
(is (fetch result) nil)))
@@ -54,7 +54,7 @@
(is-type query '<dbd-query>)
(setf result (execute query "matsuyama"))
(is-type result '<dbd-query>)
- (is-type (fetch result) 'property-list)
+ (is-type (fetch result) '(non-nil property-list))
(is (fetch result) nil)))
(deftest |with-transaction|

0 comments on commit b3266a6

Please sign in to comment.