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); |
7 | use File::Temp qw(tempfile); |
8 | use FindBin qw($Bin); |
9 | use Test; |
10 | |
43202f22 |
11 | my @script = qw(blib script sqlt-diagram); |
cc3742ae |
12 | my @data = qw(data mysql Apache-Session-MySQL.sql); |
13 | |
81d8a6a7 |
14 | my $sqlt_diagram = (-d "blib") |
cc3742ae |
15 | ? catfile($Bin, updir, @script) |
16 | : catfile($Bin, @script); |
17 | |
18 | my $test_data = (-d "t") |
19 | ? catfile($Bin, @data) |
20 | : catfile($Bin, "t", @data); |
21 | |
22 | my (undef, $tmp) = tempfile("sqlXXXXX", |
23 | OPEN => 0, |
24 | UNLINK => 1, |
25 | SUFFIX => '.png', |
26 | DIR => tmpdir); |
27 | |
28 | BEGIN { |
29 | plan tests => 3; |
30 | } |
31 | |
81d8a6a7 |
32 | ok(-e $sqlt_diagram); |
cc3742ae |
33 | eval { require GD; }; |
34 | if ($@ && $@ =~ /locate GD.pm in /) { |
35 | skip($@, "GD not installed"); |
36 | skip($@, "GD not installed"); |
37 | } else { |
81d8a6a7 |
38 | my @cmd = ($sqlt_diagram, "-d", "MySQL", "-o", $tmp, $test_data); |
cc3742ae |
39 | eval { system(@cmd); }; |
40 | ok(!$@ && ($? == 0)); |
41 | ok(-e $tmp); |
42 | } |