@@ -7,10 +7,10 @@ import qualified Data.Text as T
8main :: IO ()
8main :: IO ()
10− tcounts <- runTestTT (TestList [testBasicDBCFunction
10+ tcounts <- runTestTT (TestList [testBasicDBCFunction,
11− --testErrorDBCFunction,
11+ testErrorDBCFunction,
12− --testExceptionDBCFunction,
12+ testExceptionDBCFunction,
13− --testDBCFunctionWithAtomArguments
13+ testDBCFunctionWithAtomArguments
15 if errors tcounts + failures tcounts > 0 then exitFailure else exitSuccess
15 if errors tcounts + failures tcounts > 0 then exitFailure else exitSuccess