use strict;
use warnings;
use Test::Most;
use Test::Trap;
use DBIx::SchemaChecksum;
use lib qw(t);
use MakeTmpDb;
use DBIx::SchemaChecksum::App::Checksum;
{
my $sc = DBIx::SchemaChecksum::App::Checksum->new(
dsn => MakeTmpDb->dsn,
);
trap { $sc->run };
like($trap->stdout,qr/660d1e9b6aec2ac84c2ff6b1acb5fe3450fdd013/,'got checksum');
}
{
my $sc2 = DBIx::SchemaChecksum::App::Checksum->new(
dsn => MakeTmpDb->dsn,
show_dump=>1
);
trap { $sc2->run };
like($trap->stdout,qr/660d1e9b6aec2ac84c2ff6b1acb5fe3450fdd013/,'got checksum');
like($trap->stdout,qr/main\.first_table/,'got DBI data');
}
done_testing();