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::More 0.92;
use lib qw(t/lib);
use TDCSTest;

plan skip_all => 'IN DEVELOPMENT';

# evil globals
my ($schema, $artist, $cd);

$schema = TDCSTest->init_schema();

ok(defined $schema, q{schema object defined});

use Test::DBIx::Class::Schema;

# create a new test object
my $schematest = Test::DBIx::Class::Schema->new({
    # required
    schema    => $schema,
    namespace => 'TDCSTest::Schema',
    moniker   => 'CD',
});

# tell it what to test
$schematest->methods({
    columns => [qw(
        cdid
        artistid
        title
        year
    )],

    relations => [qw(
        artist_broken_self
        artist_broken_foreign
    )],

    custom => [
    ],

    resultsets => [
    ],
});

# run the tests
$schematest->run_tests();