Main.lhs

|
Module      :  Main
Copyright   :  (c) 2004 Oleg Kiselyov, Alistair Bayley
License     :  BSD-style
Maintainer  :  oleg@pobox.com, alistair@abayley.org
Stability   :  experimental
Portability :  non-portable
 
Simple driver module, mainly for testing.
Imports test modules and runs test suites.
 
This project is now hosted at haskell.org:
 
@darcs get <http://darcs.haskell.org/takusen>@
 
Invoke main like this (assuming the compiled executable is called @takusen@):
 
 > takusen stub noperf
 > takusen sqlite noperf "" "" dbname
 > takusen oracle noperf "" "" dbname  -- no username, so os-authenticated
 > takusen mssql noperf user paswd dbname


> module Main (main) where


> import Database.Sqlite.Test.Enumerator as Sqlite
> import Database.Oracle.Test.Enumerator as Oracle
> --import Database.Test.MultiConnect as Multi
> import Database.ODBC.Test.Enumerator as ODBC
> import Database.Stub.Test.Enumerator as Stub
> --import Database.MSSqlServer.Test.Enumerator as MSSql
> import Database.PostgreSQL.Test.Enumerator as PGSql
> import System.Environment (getArgs)
> import Database.Test.Performance as Perf
> import Database.Test.Util as Util
> import Foreign.C.Test.UTF8 as UTF8


> main :: IO ()
> main = do
>   args <- getArgs
>   if (length args < 2)
>     then showUsage
>     else do
>       let (impl:perf:as) = args
>       doTests impl perf as

> showUsage = do
>   putStrLn "usage: takusen backend {no}perf user pswd database"

> doTests impl perf args = do
>   let runPerf = if perf == "perf" then Perf.RunTests else Perf.Don'tRunTests
>   case lookup impl backendTests of
>     Nothing -> putStrLn $ "No backend for " ++ impl ++ "."
>     Just test -> test runPerf args

> backendTests :: [(String, Perf.ShouldRunTests -> [String] -> IO ())]
> backendTests =
>   [ ("sqlite", Sqlite.runTest)
>   , ("pgsql", PGSql.runTest)
>   , ("odbc", ODBC.runTest)
>   --, ("mssql", MSSql.runTest)
>   , ("oracle", Oracle.runTest)
>   --, ("multi", Multi.runTest)
>   , ("stub", Stub.runTest)
>   , ("utf8", UTF8.runTest)
>   , ("util", Util.runTest)
>   ]