Permalink
Browse files

Add signleFinish test.

  • Loading branch information...
1 parent cfd0b43 commit 6af842c47796f60133694cd16891bcdc19fcfcd8 @zenzike zenzike committed Feb 26, 2012
Showing with 6 additions and 0 deletions.
  1. +6 −0 testsrc/TestSbasics.hs
View
6 testsrc/TestSbasics.hs
@@ -9,6 +9,11 @@ openClosedb = sqlTestCase $
do dbh <- connectDB
disconnect dbh
+singleFinish = dbTestCase $ \dbh ->
+ do sth <- prepare dbh "SELECT 1 + 1"
+ sExecute sth []
+ finish sth
+
multiFinish = dbTestCase (\dbh ->
do sth <- prepare dbh "SELECT 1 + 1"
sExecute sth []
@@ -137,6 +142,7 @@ testWithTransaction = dbTestCase (\dbh ->
tests = TestList
[
TestLabel "openClosedb" openClosedb,
+ TestLabel "singleFinish" singleFinish,
TestLabel "multiFinish" multiFinish,
TestLabel "basicQueries" basicQueries,
TestLabel "createTable" createTable,

0 comments on commit 6af842c

Please sign in to comment.