use strict;
use warnings;

BEGIN {
    use File::Spec;
    use FindBin qw/$Bin/;
    my $path = File::Spec->catdir($Bin, 'test.db');
    $ENV{DBNAME} = $path;
    $ENV{KEEP_DB} = 1;
}

use Test::More;
use Test::DBIx::Class 'CD', 'Person';
	
isa_ok CD, 'Test::DBIx::Class::Example::Schema::DefaultRS';
isa_ok Person, 'Test::DBIx::Class::Example::Schema::DefaultRS';

cleanup_schema;
	
ok -e "$Bin/test.db", "Can find file 'test.db' file";
unlink "$Bin/test.db";

ok ! -e "$Bin/test.db", "Test file 'test.db' is now gone!";

done_testing;