test: Rename Util to Common, and move more imports to it so test modules will have less to import
commitfeeebd7af65543b34b7c407e546a7707feeb2a14
authorJoey Adams <joeyadams3.14159@gmail.com>
dateFri 18 May 2012, 00:10 (14 years ago)
parent6191a36
postgresql-simple.cabal+1−1
@@ -70,9 +70,9 @@ test-suite test
7070 hs-source-dirs: test
7171 main-is: Main.hs
7272 other-modules:
73+ Common
7374 Bytea
7475 Notify
75− Util
7676
7777 ghc-options: -Wall -fno-warn-name-shadowing -fno-warn-unused-do-bind
7878
test/Bytea.hs+2−6
@@ -1,12 +1,8 @@
11{-# LANGUAGE OverloadedStrings #-}
22module Bytea (testBytea) where
33
4−import Util (md5)
5−
6−import Database.PostgreSQL.Simple
7−import Test.HUnit
8−
9−import qualified Data.ByteString as B
4+import Common
5+import qualified Data.ByteString as B
106
117testBytea :: Connection -> Test
128testBytea conn = TestList
test/Util.hs → test/Common.hsrenamed+7−3
@@ -1,9 +1,13 @@
1−module Util (
1+module Common (
2+ module Database.PostgreSQL.Simple,
3+ module Test.HUnit,
24 md5,
35) where
46
5−import Data.ByteString (ByteString)
6−import Data.Text (Text)
7+import Data.ByteString (ByteString)
8+import Data.Text (Text)
9+import Database.PostgreSQL.Simple
10+import Test.HUnit
711
812import qualified Crypto.Hash.MD5 as MD5
913import qualified Data.ByteString.Base16 as Base16
test/Notify.hs+2−2
@@ -1,14 +1,14 @@
11{-# LANGUAGE OverloadedStrings #-}
22module Notify (testNotify) where
33
4+import Common
5+
46import Control.Applicative
57import Control.Concurrent
68import Control.Monad
79import Data.Function
810import Data.List
9−import Database.PostgreSQL.Simple
1011import Database.PostgreSQL.Simple.Notification
11−import Test.HUnit
1212
1313import qualified Data.ByteString as B
1414