f176604cd5dc510170c8a23104469a4e904f33ee
[pkg/blosxom.git] / t / 03_permalinks.t
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
6 use Test::More qw( no_plan );
7
8 use Cwd;
9 use YAML;
10 use IO::File;
11 use File::Find;
12 use File::Copy;
13 #use File::Touch;
14 use File::Basename;
15 use Test::Differences;
16
17 my $test = basename($0);
18 $test =~ s/^\d+_?//;
19 $test =~ s/\.t$//;
20
21 my $testdir = $test;
22 $testdir = "t/$testdir" if -d "t/$testdir";
23 $testdir = cwd . "/$testdir";
24 die "cannot find root '$testdir'" unless -d $testdir;
25
26 my $blosxom_config_dir = "$testdir/config";
27 die "cannot find blosxom config dir '$blosxom_config_dir'" unless -d $blosxom_config_dir;
28 $ENV{BLOSXOM_CONFIG_DIR} = $blosxom_config_dir;
29
30 my $blosxom_cgi = "$testdir/../../blosxom.cgi";
31 die "cannot find blosxom.cgi '$blosxom_cgi'" unless -f $blosxom_cgi;
32 die "blosxom.cgi '$blosxom_cgi' is not executable" unless -x $blosxom_cgi;
33
34 my $spec = YAML::LoadFile ("$testdir/spec.yaml") 
35   or fail("$test - loading spec") and next;
36
37 touch_files("$testdir/data");
38
39 my %expected = ();
40
41 for (@{$spec->{tests}}) {
42   my ($args, $output) = @$_;
43
44   unless ($expected{$output}) {
45     my $fh = IO::File->new("$testdir/$output", 'r')
46       or die "cannot open expected output file '$output': $!";
47     {
48       local $/ = undef;
49       $expected{$output} = <$fh>;
50     }
51     $fh->close;
52   }
53
54   my $got = qx($blosxom_cgi $args);
55
56   eq_or_diff($got, $expected{$output}, "$test - got expected output for args [$args]", { style => 'Unified' });
57 }
58
59 sub touch_files {
60   find( sub {
61     if (/^(.*)\.(\d+)$/) {
62       copy($_, $1);
63       `touch -t $2 $1`;
64     }
65   },
66   shift );
67 }