Commit | Line | Data |
0009fa49 |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | use lib qw(lib t/lib); |
6 | |
064ec2db |
7 | use DBICTest::Schema; |
ebf846e8 |
8 | use SQL::Translator; |
0009fa49 |
9 | |
ebf846e8 |
10 | my $sql_join_str = ''; |
11 | if (SQL::Translator->VERSION >= 0.09001) { |
12 | $sql_join_str .= ";"; |
13 | } |
14 | if (SQL::Translator->VERSION >= 0.09) { |
15 | $sql_join_str .= "\n"; |
16 | } |
0009fa49 |
17 | |
ebf846e8 |
18 | my $schema = DBICTest::Schema->connect; |
19 | print join ($sql_join_str,$schema->storage->deployment_statements($schema, 'SQLite') ); |