openClosedb = sqlTestCase $ 
    do dbh <- connectDB
       disconnect dbh
openClosedb = sqlTestCase $ 
    do dbh <- connectDB
       disconnect dbh
openClosedb = sqlTestCase $ 
    do dbh <- connectDB
       disconnect dbh