class TestDriver
--Super class of TestDriver
functions
--Return all TestCases
public tests : () -> seq of TestCase
tests() == is subclass responsibility;
--Confirm test result
public isOK: TestCase -> bool
isOK(t) ==
if t.TestACase() then
new TestLogger().Succeeded(t)
else
new TestLogger().Failed(t);
operations
--Test a TestCase sequence.
public run: () ==> bool
run() ==
let Message = "Test result of a testcase seaquence.",
TestcaseSeq = tests() ,
aResult = [isOK(TestcaseSeq(i)) | i in set inds TestcaseSeq]
--aResult = new Sequence().fmap[TestCase,bool](isOK)(TestcaseSeq)
in
if forall i in set inds aResult & aResult(i) then
return new TestLogger().succeededInAllTestcases(Message)
else
return new TestLogger().notSucceededInAllTestcases(Message)
end TestDriver
¤ Dauer der Verarbeitung: 0.13 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|