Commit | Line | Data |
4068e05f |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | |
6 | use lib qw(t/lib); |
7 | use DBICTest; |
8 | |
9 | use File::Spec; |
10 | use File::Path qw/ mkpath rmtree /; |
11 | |
12 | |
13 | my $schema = DBICTest->init_schema(); |
14 | |
15 | my $var = File::Spec->catfile(qw| t var create_ddl_dir |); |
16 | -d $var |
17 | or mkpath($var) |
18 | or die "can't create $var"; |
19 | |
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 ); |
23 | |
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' ); |
26 | |
27 | TODO: { |
28 | local $TODO = 'we should probably add some tests here for actual deployability of the DDL?'; |
29 | ok( 0 ); |
30 | } |
31 | |
32 | done_testing; |