root/tags/rel0_59/t/52_display_diffs.t

use strict;
use Wiki::Toolkit::Setup::SQLite;
use OpenGuides;
use OpenGuides::Test;
use Test::More;

eval { require DBD::SQLite; };

if ( $@ ) {
    my ($error) = $@ =~ /^(.*?)\n/;
    plan skip_all => "DBD::SQLite could not be used - no database to test with ($error)";
}

plan tests => 5;

Wiki::Toolkit::Setup::SQLite::setup( { dbname => "t/node.db" } );
my $config = OpenGuides::Test->make_basic_config;
my $guide = OpenGuides->new( config => $config );
my $wiki = $guide->wiki;

# Clear out the database from any previous runs.
foreach my $del_node ( $wiki->list_all_nodes ) {
    print "# Deleting node $del_node\n";
    $wiki->delete_node( $del_node ) or die "Can't delete $del_node";
}

$wiki->write_node( "I Like Pie", "Best pie is meat pie." )
  or die "Couldn't write node";
my %data = $wiki->retrieve_node( "I Like Pie" );
$wiki->write_node( "I Like Pie", "Best pie is apple pie.",
                   $data{checksum} )
  or die "Couldn't write node";
%data = $wiki->retrieve_node( "I Like Pie" );
$wiki->write_node( "I Like Pie", "Best pie is lentil pie.",
                   $data{checksum} )
  or die "Couldn't write node";

my $output = eval {
    $guide->display_diffs(
                           id            => "I Like Pie",
                           version       => 3,
                           other_version => 2,
                           return_output => 1,
                         );
};
is( $@, "", "->display_diffs doesn't die" );
like( $output,
      qr/differences between version 2 and version 3/i,
      "...version numbers included in output" );
like( $output, qr|<span class="node_name">I Like Pie</span>|,
      "...node name inlined in output" );
unlike( $output, qr/contents are identical/i,
        "...'contents are identical' not printed when contents differ" );
like( $output, qr/<th.*Version\s+2.*Version\s+3.*apple.*lentil/s,
      "...versions are right way round" );