Test.Tasty.Run

Where we generate the test running boilerplate. Preprocessor arguments arrive via the main function of Discover.

If you need to make `tasty-discover` do something new, it most likely needs to happen here.

Documentation

run :: [String] -> IO ()

Accept some args and run the tests

>>> run ["w", "x", "y", "z"]
...

data Test

Instances

Eq Test

Show Test

stringifyTestList :: IO [String] -> IO String

A list of test function names as a String

>>> stringifyTestList ["prop_one", "prop_two"]
"[\"prop_one\",\"prop_two\"]"

getListOfTests :: FilePath -> IO [String]

All test function names in src

>>> getListOfTests "test/Tasty.hs"
["prop_one"]

getTestFiles :: IO [Test] -> IO [FilePath]

File paths for test files

>>> getTestFiles $ findTests "test/Tasty.hs"
["test/FooTest.hs"]

findTests :: FilePath -> IO [Test]

All tests that are not the src file

>>> findTests "test/Tasty.hs"
[Test {testFile = "test/FooTest.hs", testModule = "Foo"}]

tmpModule :: FilePath -> Config -> [Test] -> String -> String

The holy grail. This tmpModule runs your tests

>>> tmpModule "test/Tasty.hs"
              Config {configModuleName = Nothing}
              [Test {testFile = "test/FooTest.hs", testModule = "Foo"}]
              "[\"prop_one\"]"
...

fileToTest :: FilePath -> FilePath -> Maybe Test

A test file becomes a Test type

>>> fileToTest "test" "FooTest.hs"
Just (Test {testFile = "test/FooTest.hs", testModule = "Foo"})

getFilesRecursive :: FilePath -> IO [FilePath]

All files under baseDir

>>> getFilesRecursive "test/"
["FooTest.hs", "BarTest.hs"]

isValidModuleName :: String -> Bool

Is cs a valid Haskell module name?

>>> isValidModuleName "ModName"
True

>>> isValidModuleName "modName"
False

isValidModuleChar :: Char -> Bool

Is c a valid character in a Haskell module name?

>>> isValidModuleChar '-'
False

>>> isValidModuleChar 'A'
True

importList :: [Test] -> ShowS

Import statements for a list of tests

>>> importList [Test {testFile = "test/SomeOtherTest.hs", testModule = "SomeOther"}]
"import qualified SomeOtherTest\n"

testFile :: Test -> FilePath

testModule :: Test -> String

defaultConfig :: Config