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