Commit | Line | Data |
e01862e4 |
1 | require File::Spec; |
2 | my $ddl_fn = File::Spec->catfile(qw(t lib sqlite.sql)); |
3 | |
4 | # If the author doesn't have the prereqs, we will end up obliterating |
5 | # the ddl file, and all tests will fail, therefore don't do anything |
6 | # on error |
7 | # The EUMM build-stage generation will run unconditionally and |
8 | # errors will not be trapped |
9 | if (my $out = ` "$^X" -Ilib maint/gen_schema `) { |
10 | open (my $fh, '>:unix', $ddl_fn) or die "Unable to open $ddl_fn: $!"; |
11 | print $fh $out; |
12 | close $fh; |
13 | } |
14 | |
15 | postamble <<"EOP"; |
16 | |
17 | clonedir_generate_files : dbic_clonedir_regen_test_ddl |
18 | |
19 | dbic_clonedir_regen_test_ddl : |
20 | \t\$(ABSPERLRUN) -Ilib -- maint/gen_schema > @{[ $mm_proto->quote_literal($ddl_fn) ]} |
21 | |
22 | EOP |
23 | |
24 | # keep the Makefile.PL eval happy |
25 | 1; |