10 use File::Path qw/ mkpath rmtree /;
13 my $schema = DBICTest->init_schema();
15 my $var = File::Spec->catfile(qw| t var create_ddl_dir |);
18 or die "can't create $var";
20 my $test_dir_1 = File::Spec->catdir( $var, 'test1', 'foo', 'bar' );
21 rmtree( $test_dir_1 ) if -d $test_dir_1;
22 $schema->create_ddl_dir( undef, undef, $test_dir_1 );
24 ok( -d $test_dir_1, 'create_ddl_dir did a mkpath on its target dir' );
25 ok( scalar( glob $test_dir_1.'/*.sql' ), 'there are sql files in there' );
28 local $TODO = 'we should probably add some tests here for actual deployability of the DDL?';