[Dresden-pm] Frage zum Testen (Regressionstests)

[Falk Herrmann]

Hallo Hans,

Test::Harness ist evtl. genau das, was du suchst.

use Test::Harness;
runtests(@test_files);

Beispiele zum Aufruf sind in der Doku zu finden.

Dein letztes Perl Script musst Du etwas modifizieren. Es darf nicht das 
Ergebnis der Operation angezeigt werden, sondern nur "ok" oder "not". 
Den Rest macht dann das Modul.


Grüße, Falk.

Hans-Dietrich Kirmse wrote:
> 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
> 
> _______________________________________________
> Dresden-pm mailing list
> Dresden-pm at pm.org
> http://mail.pm.org/mailman/listinfo/dresden-pm
> 
>