Commit | Line | Data |
cc3742ae |
1 | #!/usr/bin/perl |
2 | # vim: set ft=perl: |
3 | |
4 | use strict; |
5 | |
6 | use File::Spec::Functions qw(catfile updir tmpdir); |
250692b1 |
7 | use File::Temp qw(mktemp); |
cc3742ae |
8 | use FindBin qw($Bin); |
007caf69 |
9 | use Test::More; |
2d691ec1 |
10 | use Test::SQL::Translator qw(maybe_plan); |
11 | |
12 | BEGIN { |
007caf69 |
13 | maybe_plan( |
14 | 3, |
2d691ec1 |
15 | 'SQL::Translator::Parser::MySQL', |
007caf69 |
16 | 'SQL::Translator::Producer::Diagram' |
17 | ); |
2d691ec1 |
18 | } |
cc3742ae |
19 | |
43202f22 |
20 | my @script = qw(blib script sqlt-diagram); |
cc3742ae |
21 | my @data = qw(data mysql Apache-Session-MySQL.sql); |
22 | |
81d8a6a7 |
23 | my $sqlt_diagram = (-d "blib") |
cc3742ae |
24 | ? catfile($Bin, updir, @script) |
25 | : catfile($Bin, @script); |
26 | |
27 | my $test_data = (-d "t") |
28 | ? catfile($Bin, @data) |
29 | : catfile($Bin, "t", @data); |
30 | |
250692b1 |
31 | my $tmp = mktemp('sqlXXXXX'); |
cc3742ae |
32 | |
81d8a6a7 |
33 | ok(-e $sqlt_diagram); |
2d691ec1 |
34 | my @cmd = ($sqlt_diagram, "-d", "MySQL", "-o", $tmp, $test_data); |
35 | eval { system(@cmd); }; |
36 | ok(!$@ && ($? == 0)); |
37 | ok(-e $tmp); |
38 | eval { unlink $tmp; }; |