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

Adds Application CI.

parent 115555e2
...@@ -36,6 +36,10 @@ data TestName = ...@@ -36,6 +36,10 @@ data TestName =
| TestPerfwrapper | TestPerfwrapper
| TestPower | TestPower
| TestSTREAM | TestSTREAM
| TestAMG
| TestQMCPack
| TestOpenMC
| TestLAMMPS
| RunAMG | RunAMG
| RunQMCPack | RunQMCPack
| RunOpenMC | RunOpenMC
...@@ -172,26 +176,16 @@ configureTest TestPower = TestSpec ...@@ -172,26 +176,16 @@ configureTest TestPower = TestSpec
(StdErrLog "power_stderr.log") (StdErrLog "power_stderr.log")
} }
configureTest TestSTREAM = TestSpec configureTest TestSTREAM =
{ description = " Setup stack, run STREAM and check that it sends" testProgressFromRun RunSTREAM "Test STREAM progress reports."
<> "at least one progress message to the daemon." configureTest TestAMG =
, stackArgsUpdate = updater testProgressFromRun RunAMG "Test AMG progress reports."
, isTest = IsTest configureTest TestQMCPack =
} testProgressFromRun RunQMCPack "Test QMCPack progress reports."
where configureTest TestOpenMC =
updater sa = sa testProgressFromRun RunOpenMC "Test OpenMC progress reports."
{ app = AppName "stream_c" configureTest TestLAMMPS =
, args = [] testProgressFromRun RunLAMMPS "Test LAMMPS progress reports."
, daemon = daemonBehavior
, cmdrun = runBehavior
, cmdlistenprogress = Test
(TestText
(TextBehaviorStdout (WaitFor "progress"))
(TextBehaviorStderr ExpectClean)
)
(StdOutLog "progress_stdout.csv")
(StdErrLog "progress_stderr.log")
}
configureTest DaemonOnly = TestSpec configureTest DaemonOnly = TestSpec
{ description = "Set up and launch the daemon in synchronous mode." { description = "Set up and launch the daemon in synchronous mode."
...@@ -272,6 +266,31 @@ configureTest RunLAMMPS = mkRun updater "run LAMMPS in the argo stack." ...@@ -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 -- 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