DBIx-Custom / t / dbix-custom-core-mysql-private.t /
Newer Older
36 lines | 0.744kb
packaging one directory
yuki-kimoto authored on 2009-11-16
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
}