The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl
use strict;
use warnings;

use Log::Log4perl;
use Jifty::Test::Dist tests => 1;

my $config = Jifty::YAML::LoadFile($ENV{JIFTY_TEST_CONFIG});
$config->{'framework'}->{'Database'}->{'Version'} = '0.0.2';
Jifty::YAML::DumpFile($ENV{JIFTY_TEST_CONFIG}, $config);

my $logger = Log::Log4perl->get_logger('SchemaTool');
$logger->add_appender(
    my $test_appender = Log::Log4perl::Appender->new(
        'Log::Log4perl::Appender::String',
        name      => 'Test',
        min_level => 'WARN',
        layout    => 'Log::Log4perl::Layout::SimpleLayout',
    )
);

my $schema = Jifty::Script::Schema->new;
$schema->{setup_tables} = 1;
$schema->run;

my $failed_messages = $test_appender->string;
ok(!$failed_messages, 'no warnings or worse');