test-framework-0.8.1.1: Framework for running and organising tests, with HUnit and QuickCheck support

Safe HaskellSafe
LanguageHaskell98

Test.Framework.Providers.API

Description

This module exports everything that you need to be able to create your own framework test provider. To create a provider you need to:

  • Create an instance of the Testlike class
  • Create an instance of the TestResultlike class
  • Expose a function that lets people construct Test values using your new instances

Synopsis

Documentation

class (Show i, Show r) => TestResultlike i r | r -> i where #

Something like the result of a test: works in concert with Testlike. The type parameters are the type that is used for progress reports and the type of the final output of the test respectively.

Minimal complete definition

testSucceeded

Methods

testSucceeded :: r -> Bool #

class TestResultlike i r => Testlike i r t | t -> i r, r -> i where #

Something test-like in its behaviour. The type parameters are the type that is used for progress reports, the type of the final output of the test and the data type encapsulating the whole potential to do a test respectively.

Minimal complete definition

runTest, testTypeName

Methods

runTest :: CompleteTestOptions -> t -> IO (i :~> r, IO ()) #

testTypeName :: t -> TestTypeName #

type TestName = String #

Test names or descriptions. These are shown to the user

type TestTypeName = String #

The name of a type of test, such as Properties or "Test Cases". Tests of types of the same names will be grouped together in the test run summary.

data Test #

Main test data type: builds up a list of tests to be run. Users should use the utility functions in e.g. the test-framework-hunit and test-framework-quickcheck packages to create instances of Test, and then build them up into testsuites by using testGroup and lists.

For an example of how to use test-framework, please see http://github.com/batterseapower/test-framework/raw/master/example/Test/Framework/Example.lhs

Constructors

(Testlike i r t, Typeable t) => Test TestName t

A single test of some particular type

TestGroup TestName [Test]

Assemble a number of tests into a cohesive group

PlusTestOptions TestOptions Test

Add some options to child tests

BuildTestBracketed (IO (Test, IO ()))

Convenience for creating tests from an IO action, with cleanup

testGroup :: TestName -> [Test] -> Test #

Assemble a number of tests into a cohesive group

plusTestOptions :: TestOptions -> Test -> Test #

Add some options to child tests

buildTest :: IO Test -> Test #

Convenience for creating tests from an IO action

buildTestBracketed :: IO (Test, IO ()) -> Test #

Convenience for creating tests from an IO action, with a cleanup handler for when tests are finished

data MutuallyExcluded t #

Constructors

ME (MVar ()) t 

mutuallyExclusive :: Test -> Test #

Mark all tests in this portion of the tree as mutually exclusive, so only one runs at a time

data i :~> f #

Constructors

Finished f 
Improving i (i :~> f) 

Instances

Functor ((:~>) i) # 

Methods

fmap :: (a -> b) -> (i :~> a) -> i :~> b #

(<$) :: a -> (i :~> b) -> i :~> a #

bimapImproving :: (a -> c) -> (b -> d) -> (a :~> b) -> c :~> d #

improvingLast :: (a :~> b) -> b #

consumeImproving :: (a :~> b) -> [a :~> b] #

data ImprovingIO i f a #

Instances

Monad (ImprovingIO i f) # 

Methods

(>>=) :: ImprovingIO i f a -> (a -> ImprovingIO i f b) -> ImprovingIO i f b #

(>>) :: ImprovingIO i f a -> ImprovingIO i f b -> ImprovingIO i f b #

return :: a -> ImprovingIO i f a #

fail :: String -> ImprovingIO i f a #

Functor (ImprovingIO i f) # 

Methods

fmap :: (a -> b) -> ImprovingIO i f a -> ImprovingIO i f b #

(<$) :: a -> ImprovingIO i f b -> ImprovingIO i f a #

Applicative (ImprovingIO i f) # 

Methods

pure :: a -> ImprovingIO i f a #

(<*>) :: ImprovingIO i f (a -> b) -> ImprovingIO i f a -> ImprovingIO i f b #

(*>) :: ImprovingIO i f a -> ImprovingIO i f b -> ImprovingIO i f b #

(<*) :: ImprovingIO i f a -> ImprovingIO i f b -> ImprovingIO i f a #

runImprovingIO :: ImprovingIO i f f -> IO (i :~> f, IO ()) #

liftIO :: IO a -> ImprovingIO i f a #

timeoutImprovingIO :: Int -> ImprovingIO i f a -> ImprovingIO i f (Maybe a) #

Given a number of microseconds and an improving IO action, run that improving IO action only for at most the given period before giving up. See also timeout.

maybeTimeoutImprovingIO :: Maybe Int -> ImprovingIO i f a -> ImprovingIO i f (Maybe a) #

As timeoutImprovingIO, but don't bother applying a timeout to the action if Nothing is given as the number of microseconds to apply the time out for.

newtype K a #

Constructors

K 

Fields

secondsToMicroseconds :: Num a => a -> a #

listToMaybeLast :: [a] -> Maybe a #

mappendBy :: Monoid b => (a -> b) -> a -> a -> b #

orElse :: Maybe a -> a -> a #

onLeft :: (a -> c) -> (a, b) -> (c, b) #

onRight :: (b -> c) -> (a, b) -> (a, c) #

unlinesConcise :: [String] -> String #

Like unlines, but does not append a trailing newline if there is at least one line. For example:

unlinesConcise ["A", "B"] == "A\nB"
unlinesConcise [] == ""

Whereas:

unlines ["A", "B"] == "A\nB\n"
unlines [] == ""

This is closer to the behaviour of unwords, which does not append a trailing space.

mapAccumLM :: Monad m => (acc -> x -> m (acc, y)) -> acc -> [x] -> m (acc, [y]) #

dropLast :: Int -> [a] -> [a] #