use strict;
use warnings;
use Test::More;

use FindBin qw($Bin);
use lib "$Bin/lib";

use Test::DBIC::Schema::Connector;
use TDSCTSchema;

ok(!defined $ENV{TDSCTSCHEMA_USER},'Testing for collide with existing ENV on user');
ok(!defined $ENV{TDSCTSCHEMA_PASS},'Testing for collide with existing ENV on pass');
ok(!defined $ENV{TDSCTSCHEMA_DSN},'Testing for collide with existing ENV on dsn');

my $schema = test_dbic_schema_connect('TDSCTSchema');

isa_ok($schema,'TDSCTSchema');

my $insert = $schema->resultset('TDSCT')->create({ id => 1 });

isa_ok($insert,'TDSCTSchema::Result::TDSCT');

done_testing;
