| ... | ... |
@@ -2,15 +2,17 @@ use Test::More; |
| 2 | 2 |
use strict; |
| 3 | 3 |
use warnings; |
| 4 | 4 |
|
| 5 |
-$SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /DEPRECATED/};
|
|
| 6 |
- |
|
| 7 |
-# user password database |
|
| 8 |
-our ($USER, $PASSWORD, $DATABASE) = connect_info(); |
|
| 5 |
+use FindBin; |
|
| 9 | 6 |
|
| 10 |
-plan skip_all => 'private MySQL test' unless $USER; |
|
| 7 |
+plan skip_all => 'private test' unless -f "$FindBin::Bin/private-mysql-run.tmp"; |
|
| 11 | 8 |
|
| 12 | 9 |
plan 'no_plan'; |
| 13 | 10 |
|
| 11 |
+$SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /DEPRECATED/};
|
|
| 12 |
+ |
|
| 13 |
+# user password database |
|
| 14 |
+our ($USER, $PASSWORD, $DATABASE) = qw/appuser 123456 usertest/; |
|
| 15 |
+ |
|
| 14 | 16 |
require DBIx::Connector; |
| 15 | 17 |
|
| 16 | 18 |
# Function for test name |