|
catch up Object::Simple upda...
|
1 |
use Test::More; |
| 2 |
use strict; |
|
| 3 |
use warnings; |
|
| 4 |
|
|
| 5 |
# user password database |
|
| 6 |
our ($U, $P, $D) = connect_info(); |
|
| 7 |
|
|
| 8 |
plan skip_all => 'private MySQL test' unless $U; |
|
| 9 |
|
|
| 10 |
plan 'no_plan'; |
|
| 11 |
|
|
| 12 |
use DBI::Custom; |
|
| 13 |
use Scalar::Util 'blessed'; |
|
| 14 |
{
|
|
| 15 |
my $dbi = DBI::Custom->new( |
|
| 16 |
connect_info => {
|
|
| 17 |
user => $U, |
|
| 18 |
password => $P, |
|
| 19 |
data_source => "dbi:mysql:$D" |
|
| 20 |
} |
|
| 21 |
); |
|
| 22 |
$dbi->connect; |
|
| 23 |
|
|
| 24 |
ok(blessed $dbi->dbh); |
|
| 25 |
can_ok($dbi->dbh, qw/prepare/); |
|
| 26 |
} |
|
| 27 |
|
|
| 28 |
sub connect_info {
|
|
| 29 |
my $file = 'password.tmp'; |
|
| 30 |
open my $fh, '<', $file |
|
| 31 |
or return; |
|
| 32 |
|
|
| 33 |
my ($user, $password, $database) = split(/\s/, (<$fh>)[0]); |
|
| 34 |
|
|
| 35 |
close $fh; |
|
| 36 |
|
|
| 37 |
return ($user, $password, $database); |
|
| 38 |
} |