Commit cb483c27 authored by Valentin Reis's avatar Valentin Reis
Browse files

Adds Application CI.

parent 115555e2
......@@ -36,6 +36,10 @@ data TestName =
| TestPerfwrapper
| TestPower
| TestSTREAM
| TestAMG
| TestQMCPack
| TestOpenMC
| TestLAMMPS
| RunAMG
| RunQMCPack
| RunOpenMC
......@@ -172,26 +176,16 @@ configureTest TestPower = TestSpec
(StdErrLog "power_stderr.log")
}
configureTest TestSTREAM = TestSpec
{ description = " Setup stack, run STREAM and check that it sends"
<> "at least one progress message to the daemon."
, stackArgsUpdate = updater
, isTest = IsTest
}
where
updater sa = sa
{ app = AppName "stream_c"
, args = []
, daemon = daemonBehavior
, cmdrun = runBehavior
, cmdlistenprogress = Test
(TestText
(TextBehaviorStdout (WaitFor "progress"))
(TextBehaviorStderr ExpectClean)
)
(StdOutLog "progress_stdout.csv")
(StdErrLog "progress_stderr.log")
}
configureTest TestSTREAM =
testProgressFromRun RunSTREAM "Test STREAM progress reports."
configureTest TestAMG =
testProgressFromRun RunAMG "Test AMG progress reports."
configureTest TestQMCPack =
testProgressFromRun RunQMCPack "Test QMCPack progress reports."
configureTest TestOpenMC =
testProgressFromRun RunOpenMC "Test OpenMC progress reports."
configureTest TestLAMMPS =
testProgressFromRun RunLAMMPS "Test LAMMPS progress reports."
configureTest DaemonOnly = TestSpec
{ description = "Set up and launch the daemon in synchronous mode."
......@@ -272,6 +266,31 @@ configureTest RunLAMMPS = mkRun updater "run LAMMPS in the argo stack."
}
-- converting a run to a test.
--------------------------------------------------------------------------------
testFromRun :: (StackArgs -> StackArgs) -> TestName -> Text -> TestSpec
testFromRun oldUpdater testName desc = ts { isTest = IsTest
, description = desc
, stackArgsUpdate = updater
}
where
ts = configureTest testName
updater sa = oldUpdater $ stackArgsUpdate ts sa
testProgressFromRun :: TestName -> Text -> TestSpec
testProgressFromRun = testFromRun updater
where
updater sa = sa
{ cmdlistenprogress = Test
(TestText
(TextBehaviorStdout (WaitFor "progress"))
(TextBehaviorStderr ExpectClean)
)
(StdOutLog "progress_stdout.csv")
(StdErrLog "progress_stderr.log")
}
-- parsing and building the shell monad
--------------------------------------------------------------------------------
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment