Add signleFinish test.

hdbc · Feb 26, 2012 · 6af842c · 6af842c
1 parent cfd0b43
commit 6af842c
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/testsrc/TestSbasics.hs b/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,