... | ... |
@@ -3,8 +3,12 @@ use strict; |
3 | 3 |
use warnings; |
4 | 4 |
|
5 | 5 |
use FindBin; |
6 |
+use DBIx::Custom; |
|
7 |
+ |
|
8 |
+my $dbi; |
|
6 | 9 |
|
7 |
-plan skip_all => 'mysql private test' unless -f "$FindBin::Bin/run/mysql.run"; |
|
10 |
+plan skip_all => 'mysql private test' unless -f "$FindBin::Bin/run/mysql.run" |
|
11 |
+ && eval { $dbi = DBIx::Custom->connect; 1 }; |
|
8 | 12 |
plan 'no_plan'; |
9 | 13 |
|
10 | 14 |
$SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /DEPRECATED/}; |
... | ... |
@@ -18,7 +22,6 @@ require DBIx::Connector; |
18 | 22 |
sub test { print "# $_[0]\n" } |
19 | 23 |
|
20 | 24 |
# Varialbes for tests |
21 |
-my $dbi; |
|
22 | 25 |
my $dbname; |
23 | 26 |
my $rows; |
24 | 27 |
my $result; |