12 'Test needs ' . DBIx::Class::Optional::Dependencies->req_missing_for ('deploy')
13 unless DBIx::Class::Optional::Dependencies->req_ok_for ('deploy')
17 use File::Path qw/ mkpath rmtree /;
19 my $schema = DBICTest->init_schema();
21 my $var = File::Spec->catfile(qw| t var create_ddl_dir |);
24 or die "can't create $var";
26 my $test_dir_1 = File::Spec->catdir( $var, 'test1', 'foo', 'bar' );
27 rmtree( $test_dir_1 ) if -d $test_dir_1;
28 $schema->create_ddl_dir( undef, undef, $test_dir_1 );
30 ok( -d $test_dir_1, 'create_ddl_dir did a mkpath on its target dir' );
31 ok( scalar( glob $test_dir_1.'/*.sql' ), 'there are sql files in there' );
34 local $TODO = 'we should probably add some tests here for actual deployability of the DDL?';