[Dresden-pm] Filehandles testen

[Steffen Winkler]

Hallo Sebastian,

Du kannst das File auch mit IO::File lesen.
Zum Testen tauschst Du dann das echte IO::File gegen ein gemocktes aus.
Entweder Du nimmst die Mock Module dafür oder Du schreibst ein IO::File selbst, speziell für diesen Test.

ungetestet:

my $file_handle = IO::File->new($file, '<') or die $!;
my @insert_line = $file_handle->get_lines;
$! and die $!; # es gibt auch Fehler beim Datei lesen
$file_handle->close; # close Fehler gibt es nur beim Schreiben
return \@insert_line;

--Steffen

-------- Original-Nachricht --------
> Datum: Sat, 31 Mar 2012 23:13:24 +0200
> Von: Sebastian Oeste <oeste.sebastian at googlemail.com>
> An: dresden-pm at pm.org
> Betreff: [Dresden-pm] Filehandles testen

> Hallo,
> 
> ich beschäftige mich grade unteranderem mit TDD unter Perl, kein Problem
> an
> sich Perl lässt sich sehr gut testen.
> Leider weiß ich nicht so richtig  wie ich Zugriffe auf eine Datei Testen
> soll, ich will ja nicht jedes mal aufs Filessystem.
> Wenn ich jetzt sowas hab:
> sub read_from_file
> {
>   my @insert_line = ();
>   open(OUT, ">>", $file) or die qq/any errormessage/;
>   while (<OUT>)
>   {
>     push(@insert_line, $_);
>   }
>   close(OUT);
>   return \@insert_line;
> }
> 
> Habt ihr ne Idee wie ich sowas Testen kann würde mich brennend
> interessieren.
> Wenn ich aber danach google, finde ich leider nur Artikel zu den Dateitest
> Operatoren oden dem DATA Filehandle.
> 
> Danke im Vorraus
> 
> Gruß,
> Basti

-- 
NEU: FreePhone 3-fach-Flat mit kostenlosem Smartphone!                                  
Jetzt informieren: http://mobile.1und1.de/?ac=OM.PW.PW003K20328T7073a