From: Ken Youens-Clark Date: Mon, 16 Jun 2003 22:06:41 +0000 (+0000) Subject: Renamed 09auto-dia.t to 09sqlt-diagram.t to match the move in script filenames X-Git-Tag: v0.02~10 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=81d8a6a784de4ffd69de8023a3ccd78928eb805f;p=dbsrgits%2FSQL-Translator.git Renamed 09auto-dia.t to 09sqlt-diagram.t to match the move in script filenames --- diff --git a/t/09auto-dia.t b/t/09sqlt-diagram.t similarity index 83% rename from t/09auto-dia.t rename to t/09sqlt-diagram.t index 613e333..4e385a1 100644 --- a/t/09auto-dia.t +++ b/t/09sqlt-diagram.t @@ -8,10 +8,10 @@ use File::Temp qw(tempfile); use FindBin qw($Bin); use Test; -my @script = qw(blib script auto-dia.pl); +my @script = qw(blib script sqlt-diagram.pl); my @data = qw(data mysql Apache-Session-MySQL.sql); -my $auto_dia = (-d "blib") +my $sqlt_diagram = (-d "blib") ? catfile($Bin, updir, @script) : catfile($Bin, @script); @@ -29,13 +29,13 @@ BEGIN { plan tests => 3; } -ok(-e $auto_dia); +ok(-e $sqlt_diagram); eval { require GD; }; if ($@ && $@ =~ /locate GD.pm in /) { skip($@, "GD not installed"); skip($@, "GD not installed"); } else { - my @cmd = ($auto_dia, "-d", "MySQL", "-o", $tmp, $test_data); + my @cmd = ($sqlt_diagram, "-d", "MySQL", "-o", $tmp, $test_data); eval { system(@cmd); }; ok(!$@ && ($? == 0)); ok(-e $tmp);