Separate the Network.DNS.RBL.Weight module and fix the doctests.
[dead/harbl.git] / test / Doctests.hs
1 module Main
2 where
3
4 import Test.DocTest
5 import System.FilePath.Find ((==?), always, extension, find)
6
7 find_lib_sources :: IO [FilePath]
8 find_lib_sources = find always (extension ==? ".hs") "harbl/src/"
9
10 find_cli_sources :: IO [FilePath]
11 find_cli_sources = find always (extension ==? ".hs") "harbl-cli/src/"
12
13 main :: IO ()
14 main = do
15 lib_sources <- find_lib_sources
16 cli_sources <- find_cli_sources
17 let sources = lib_sources ++ cli_sources
18 let flags = ["-iharbl/src", "-iharbl-cli/src", "-idist/build/autogen"]
19 doctest $ flags ++ sources