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