The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl
# vim: ts=8 sts=4 et sw=4 sr sta
use strict;
use warnings;

use Test::More tests => 3;

use_ok('Test::DBIx::Class::Schema');

can_ok('Test::DBIx::Class::Schema',
    qw(
        new
        methods
        run_tests
    )
);

my $dbicschematest = Test::DBIx::Class::Schema->new(
    {
        dsn       => 'dbi:Pg:dbname=carrot',
        namespace => 'Carrot::Schema',
        moniker   => 'Juice',
    }
);
isa_ok($dbicschematest, 'Test::DBIx::Class::Schema');