+
+ # Setup existing files
+ chdir ("output");
+ foreach my $filename (keys %{$self->{_existing}}) {
+ open (FILE, ">$filename")
+ or return "Test failed: cannot open pre-existing file $filename\n";
+
+ print FILE $self->{_existing}->{$filename}->{content}
+ or return "Test failed: cannot write pre-existing file $filename\n";
+
+ close (FILE);
+ }
+