Commit | Line | Data |
cc3742ae |
1 | use strict; |
467b7282 |
2 | use warnings; |
cc3742ae |
3 | |
4 | use File::Spec::Functions qw(catfile updir tmpdir); |
250692b1 |
5 | use File::Temp qw(mktemp); |
cc3742ae |
6 | use FindBin qw($Bin); |
007caf69 |
7 | use Test::More; |
2d691ec1 |
8 | use Test::SQL::Translator qw(maybe_plan); |
cb9bbc68 |
9 | use Text::ParseWords qw(shellwords); |
2d691ec1 |
10 | |
11 | BEGIN { |
007caf69 |
12 | maybe_plan( |
13 | 3, |
ac8d330a |
14 | 'GD', |
401e5c7c |
15 | 'Graph::Directed', |
ac8d330a |
16 | 'SQL::Translator::Producer::Diagram', |
17 | 'SQL::Translator::Parser::MySQL', |
007caf69 |
18 | ); |
2d691ec1 |
19 | } |
cc3742ae |
20 | |
467b7282 |
21 | my @script = qw(script sqlt-diagram); |
8178df46 |
22 | my @data = qw(data mysql create2.sql); |
cc3742ae |
23 | |
467b7282 |
24 | my $sqlt_diagram = catfile($Bin, updir, @script); |
25 | my $test_data = catfile($Bin, @data); |
cc3742ae |
26 | |
250692b1 |
27 | my $tmp = mktemp('sqlXXXXX'); |
cc3742ae |
28 | |
aee4b66e |
29 | ok(-e $sqlt_diagram); |
7e212236 |
30 | my @cmd = ($^X, shellwords($ENV{HARNESS_PERL_SWITCHES}||''), $sqlt_diagram, "-d", "MySQL", "-o", $tmp, $test_data); |
2d691ec1 |
31 | eval { system(@cmd); }; |
32 | ok(!$@ && ($? == 0)); |
aee4b66e |
33 | ok(-e $tmp); |
2d691ec1 |
34 | eval { unlink $tmp; }; |