[Dresden-pm] Frage zum Testen (Regressionstests)

[Hans-Dietrich Kirmse]

Hallo,

ich möchte gern für das von mir erstellt Modul auch solche Testscripte
erstellen. Leider hapert es bei mir mit der englischen Sprache und
mit meinem Grundwissen zu perl. Es wäre schön, wenn man mir dazu auf
die sprünge helft.

Konkretes Beispiel: ich habe ein Modul mit zwei Subroutinen:

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#!/usr/bin/perl -w

package Beispiel;
use strict;

BEGIN {
   use Exporter ();
   use vars     qw (@ISA @EXPORT_OK);
   @ISA         = qw (Exporter);
   @EXPORT_OK   = qw (summe hochdrei);
}

sub summe {
   my $x = shift;
   my $y = shift;

   return $x + $y
}


sub hochdrei {
   my $x = shift;

   return $x * $x * $x
}

1;

__END__

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

#!/usr/bin/perl -w

use strict;
use Beispiel;

print &Beispiel::summe(3,7), "\n";
print &Beispiel::hochdrei(2), "\n";

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

so wie ich das verstanden habe, muss ich jetzt für
jede subroutine ein Testscript erstellen - bloss wie?
- ich will es Testen mit (0;0);0   (2;3);5    (-2;12);8
als einen spezialfall, einen "normalen" Wert und einen
falschen Wert. oder denke ich hier schon falsch?

ähnlich für die zweite Subroutine.

und dann brauche ich doch noch ein Script, welches das
aufruft.

und dann gibt es doch noch ein Script, was diese Auflistung
der Ergebnisse zusammenfasst - aber wie man das macht, ich
raff es nicht bzw. bringe es nicht zum Laufen. :(

ich wäre euch wieder sehr dankbar, wenn ihr mir auf die
Sprünge helfen würdet.

Mit freundlichen Grüßen
Hans-Dietrich