Development.Bake

Define a continuous integration system.

Execute

bake :: (Show state, Read state, Show patch, Read patch, Show test, Read test) => Oven state patch test -> IO ()

Central types

data Candidate state patch

Constructors

Candidate state [patch]

data Oven state patch test

Constructors

Oven

Fields

ovenUpdateState :: Maybe (Candidate state patch) -> IO state

Given a state, and a set of candiates that have passed, merge to create a new state.

ovenRunTest :: Candidate state patch -> Maybe test -> TestInfo test

Produce information about a test

ovenPatchReject :: patch -> Maybe test -> IO ()

A patch has been marked as failing, tell everyone.

ovenPatchExtra :: patch -> IO String

Extra information about the patch

ovenDefaultServer :: (Host, Port)

Default server to use

data TestInfo test

defaultOven :: Oven state patch test

run :: IO [test] -> TestInfo test

TestInfo mutators

threads :: Int -> TestInfo test -> TestInfo test

threadsAll :: TestInfo test -> TestInfo test

before :: [test] -> TestInfo test -> TestInfo test

beforeClear :: TestInfo test -> TestInfo test

require :: String -> TestInfo test -> TestInfo test

Operations

startServer :: (Show state, Read state, Show patch, Read patch, Show test, Read test) => Port -> Author -> String -> Oven state patch test -> IO ()

startClient :: (Host, Port) -> Author -> String -> [String] -> Int -> IO ()

sendPause :: (Host, Port) -> Author -> IO ()

sendUnpause :: (Host, Port) -> Author -> IO ()

sendAddPatch :: Show patch => (Host, Port) -> Author -> patch -> IO ()

sendDelPatch :: Show patch => (Host, Port) -> Author -> patch -> IO ()

sendDelAllPatches :: (Host, Port) -> Author -> IO ()

Utility types

type Host = String

type Port = Int