| ... | ... |
@@ -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; |