Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

improved driver tests.

  • Loading branch information...
commit b3266a668d2789d5d9922fe77c3a69aa94892322 1 parent 6b59e68
@fukamachi authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/test.lisp
View
6 src/test.lisp
@@ -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|
Please sign in to comment.
Something went wrong with that request. Please try again.