Skip to content
This repository
Browse code

Add signleFinish test.

  • Loading branch information...
commit 6af842c47796f60133694cd16891bcdc19fcfcd8 1 parent cfd0b43
Nicolas Wu authored February 26, 2012

Showing 1 changed file with 6 additions and 0 deletions. Show diff stats Hide diff stats

  1. 6  testsrc/TestSbasics.hs
6  testsrc/TestSbasics.hs
@@ -9,6 +9,11 @@ openClosedb = sqlTestCase $
9 9
     do dbh <- connectDB
10 10
        disconnect dbh
11 11
 
  12
+singleFinish = dbTestCase $ \dbh ->
  13
+    do sth <- prepare dbh "SELECT 1 + 1"
  14
+       sExecute sth []
  15
+       finish sth
  16
+
12 17
 multiFinish = dbTestCase (\dbh ->
13 18
     do sth <- prepare dbh "SELECT 1 + 1"
14 19
        sExecute sth []
@@ -137,6 +142,7 @@ testWithTransaction = dbTestCase (\dbh ->
137 142
 tests = TestList
138 143
         [
139 144
          TestLabel "openClosedb" openClosedb,
  145
+         TestLabel "singleFinish" singleFinish,
140 146
          TestLabel "multiFinish" multiFinish,
141 147
          TestLabel "basicQueries" basicQueries,
142 148
          TestLabel "createTable" createTable,

0 notes on commit 6af842c

Please sign in to comment.
Something went wrong with that request. Please try again.