Avoid "conditional and" for running plugins "date"

[pkg/blosxom.git] / t / driver.t

diff --git a/t/driver.t b/t/driver.t
index 7e12204cf666c4be5684da0774360d961545af59..36ae5ef2f9fe130ae2838cc9491d07dc56955dfe 100755 (executable)
--- a/t/driver.t
+++ b/t/driver.t
@@ -7,6 +7,7 @@ use Test::More qw( no_plan );
 
 use File::Copy;
 use File::Compare;
+use File::Find;
 use Cwd;
 use YAML;
 
@@ -38,6 +39,8 @@ for my $testdir (@tests) {
   system("perl -pi -e 's{/Library/WebServer/Documents/blosxom}{$cwd/data}' blosxom.cgi") == 0
       or die "$!";
 
+  touch_files ();
+
   for (@{$spec->{tests}}) {
     my ($args, $output) = @$_;
 
@@ -59,3 +62,14 @@ for my $testdir (@tests) {
   chdir $orig_cwd;
 }
 
+
+
+sub touch_files {
+  find( sub {
+    if (/^(.*)\.(\d+)$/) {
+      copy($_, $1);
+      `touch -t $2 $1`;
+    }
+  },
+        "./data");
+}