The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::Most;
use DBIx::SchemaChecksum;
use lib qw(t);
use MakeTmpDb;

my $sc = DBIx::SchemaChecksum->new( dbh => MakeTmpDb->dbh );

my $dump = $sc->_schemadump;
like( $dump, qr/first_table/,                   'found table' );
like( $dump, qr/columns/,                       'found columns' );
like( $dump, qr/column_name.*?id/i,             'found column id' );
like( $dump, qr/column_name.*?a_column/i,       'found column a_column' );
like( $dump, qr/column_name.*?another_column/i, 'found column another_column' );

done_testing();