|
class SimpleEnigmaTest is subclass of TestCase
operations
public SimpleEnigmaTest: seq of char ==> SimpleEnigmaTest
SimpleEnigmaTest(nm) == name := nm;
protected SetUp: () ==> ()
SetUp () == skip;
protected RunTest: () ==> ()
RunTest () ==
(dcl se1 : SimpleEnigma := new SimpleEnigma(),
se2 : SimpleEnigma := new SimpleEnigma();
for ch in "ABCDDCBAABCDDCBAAABBCCDD" do
AssertTrue(
se1.Keystroke(se2.Keystroke(ch)) = ch));
protected TearDown: () ==> ()
TearDown () == skip
end SimpleEnigmaTest
¤ Dauer der Verarbeitung: 0.15 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.
|
