use File::Copy;
use File::Compare;
+use File::Find;
use Cwd;
use YAML;
system("perl -pi -e 's{/Library/WebServer/Documents/blosxom}{$cwd/data}' blosxom.cgi") == 0
or die "$!";
+ touch_files ();
+
for (@{$spec->{tests}}) {
my ($args, $output) = @$_;
chdir $orig_cwd;
}
+
+
+sub touch_files {
+ find( sub {
+ if (/^(.*)\.(\d+)$/) {
+ copy($_, $1);
+ `touch -t $2 $1`;
+ }
+ },
+ "./data");
+}