Prüfung:: Kategorie ist eine Perl-Baugruppe, die Ihnen erlaubt, Prüfungskategorien in einer xUnit/JUnit Art leicht zu erstellen.

SYNOPSE

Paket Beispiel:: Prüfung;
falsches qw verwenden (Prüfung:: Kategorie);
Gebrauch Prüfung:: Mehr;

# werden vorgebrachte Methoden vor jeder Prüfungsmethode laufen gelassen.
Vormake_fixture: Prüfen (Installation) {
mein $array = [1, 2];
shift-> {test_array} = $array;
};

# eine Prüfungsmethode, die 1 Prüfung macht
Vortest_push: Prüfen {
mein $array = shift-> {test_array};
@$array, 3 drücken;
is_deeply ($array, [1, 2, 3], Stoß bearbeitet);
};

# eine Prüfungsmethode, die 4 Prüfungen macht
Vortest_pop: Prüfen (4) {
mein $array = shift-> {test_array};
ist (Knall @$array, 2, Knall = 2);
ist (Knall @$array, 1, Knall = 1);
is_deeply ($array, [], kleiden leeres);
ist (Knall @$array, undef, Knall = undef);
};

# werden Zerlegungmethoden jede Prüfungsmethode nachgelaufen.
Vorzerlegung: Prüfen (Zerlegung) {
mein $array = shift-> {test_array};
diag („Reihe = (@$array) nach Prüfungen ");
};
später in einer nahe gelegenen .t Datei
#! /usr/bin/perl
Gebrauch Beispiel:: Prüfung;

# alle Prüfungsmethoden im Beispiel laufen lassen:: Prüfen
Prüfung:: Class->runtests;

Ausgänge:

1..5
O.K. 1 - Knall = 2
O.K. 2 - Knall = 1
O.K. 3 - Reihe leer
O.K. 4 - Knall = undef
# Reihe = () nach Prüfungen
O.K. 5 - Stoß bearbeitet
# Reihe = (1 2 3) nach Prüfungen