[Dresden-pm] Filehandles testen

[Sebastian Oeste]

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
-------------- nächster Teil --------------
Ein Dateianhang mit HTML-Daten wurde abgetrennt...
URL: <http://mail.pm.org/pipermail/dresden-pm/attachments/20120331/9d4b6667/attachment.html>