The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use Test::More;
use Teng::Schema::Declare;

subtest 'edge cases' => sub {
    my $klass = "Teng::TestFor::Declare002Schema";
    my $schema = schema {
        table {
            name 'foo';
        };
    } $klass;

    ok $schema;
    isa_ok $schema, $klass;

    ok ! $schema->get_table( "bar" ), "non existent table should return undef";
    ok ! $schema->get_table(), "no name given should return undef";
};

done_testing;