[Dresden-pm] Regressionstests

[Steffen Winkler]

Bei Test::More gibt es zwei wesentliche Funktionen:

Use-Tests kann man natürlich nur in der Compilierungsphase durchführen, deshalb wird use_ok im BEGIN-Block ausgeführt.

BEGIN { use_ok('Tie::Sub') }
        ^^^^^^^
und die 2. Funktion ist:

ok $boolean;
^^^ 

ok erwartet einen boolschen Wert (wahr oder unwahr). Der kann z.B. gebildet werden durch: $ergebnis eq 'richtig';

Das heißt dann:

ok $ergebnis eq 'richtig';

Wenn in Ergebnis 'richtig' steht klappt der Test, sonst eben nicht. Am Anfang legt man mit:

use Test::More tests => 7; 

noch fest wie viele es von den ok-Funktionen geben soll und das ist dann auch schon alles. Wie Du zu dem boolschen Wert für das ok kommst, das ist Deine Sache, also Deine Intelligenz, möglichst gut zu testen. Das heißt auch, testen, ob die Fehler auch richtig abgefangen werden.

Grüße von Steffen Winkler