Ein Testwerkzeug II

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]

TriangleTester.om
PROCEDURE RunTestCases;
   VAR
      tests: Streams.Stream;
      test: TestCase;
      noftests, failures: INTEGER;
BEGIN
   IF ~OpenTestCases(tests) THEN
      Write.Line("Unable to open file with test cases!");
      RETURN
   END;
   noftests := 0; failures := 0;
   WHILE ReadTestCase(tests, test) DO
      INC(noftests);
      IF ~RunTestCase(test) THEN
         INC(failures);
         LogTestCase(noftests, test);
      END;
   END;
   Write.Int(failures, 1); Write.Char("/");
   Write.Int(noftests, 1); Write.Line(" tests failed.");
END RunTestCases;

*Für jeden eingelesenen Testfall wird der Test durchgeführt und bei einem Versagen des Testkandidats wird ein Testprotokoll ausgegeben.
 

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]
Copyright © 2004, 2005 Andreas Borchert, in HTML konvertiert am 18.02.2005