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 1.302015;
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   => 'Track',
});

# tell it what to test
$schematest->methods({
    columns => [qw(
        trackid
        position
        title
        foo
    )],

    relations => [qw(
        cd
    )],

    custom => [
    ],

    resultsets => [
    ],
});

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