test/Doctests.hs

   1 module Main ( main )
   2 where
   3
   4 import Test.DocTest ( doctest )
   5 import System.FilePath.Find ((==?), always, extension, find)
   6
   7 find_sources :: IO [FilePath]
   8 find_sources = find always (extension ==? ".hs") "src/"
   9
  10 main :: IO ()
  11 main = do
  12   sources <- find_sources
  13   doctest $ ["-isrc", "-idist/build/mailbox-count/autogen" ] ++ sources