root/tags/rel0_59/t/16_test_tester.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)";
}

eval { require Plucene; };
if ( $@ ) {
    plan skip_all => "Plucene not installed";
}

plan tests => 2;

# Clear out the database from any previous runs.
unlink "t/node.db";
unlink <t/indexes/*>;

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

OpenGuides::Test->write_data(
                              guide      => $guide,
                              node       => "London Zoo",
                              content    => "It's a zoo.",
                            );
my $wiki = $guide->wiki;
my %data = $wiki->retrieve_node( "London Zoo" );
is( $data{content}, "It's a zoo.", "first write with write_data went in" );

OpenGuides::Test->write_data(
                              guide      => $guide,
                              node       => "London Zoo",
                              content    => "It's still a zoo.",
                            );
%data = $wiki->retrieve_node( "London Zoo" );
is( $data{content}, "It's still a zoo.", "...so does second" );