File: SpecificDBTests.hs

package info (click to toggle)
hdbc-sqlite3 2.3.3.1-11
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 180 kB
  • sloc: haskell: 701; ansic: 146; makefile: 32
file content (11 lines) | stat: -rw-r--r-- 262 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
 
module SpecificDBTests where
import Database.HDBC
import Database.HDBC.Sqlite3
import Test.HUnit
import TestMisc(setup)

testgetTables = setup $ \dbh ->
    do r <- getTables dbh
       ["hdbctest2"] @=? r

tests = TestList [TestLabel "getTables" testgetTables]