DBIx-Custom / t / dbix-custom-core-mysql-private.t /
Newer Older
50 lines | 1.085kb
added dbi_options attribute
kimoto authored on 2010-12-20
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->connect(
16
        user => $USER,
17
        password => $PASSWORD,
data_source is DEPRECATED! I...
Yuki Kimoto authored on 2011-06-06
18
        dsn => "dbi:mysql:dbname=$DATABASE"
added dbi_options attribute
kimoto authored on 2010-12-20
19
    );
20
    $dbi->connect;
21
    
22
    ok(blessed $dbi->dbh);
23
    can_ok($dbi->dbh, qw/prepare/);
24
    ok($dbi->dbh->{AutoCommit});
25
    ok(!$dbi->dbh->{mysql_enable_utf8});
26
}
27

            
28
{
29
    my $dbi = DBIx::Custom->connect(
30
        user => $USER,
31
        password => $PASSWORD,
data_source is DEPRECATED! I...
Yuki Kimoto authored on 2011-06-06
32
        dsn => "dbi:mysql:dbname=$DATABASE",
added dbi_options attribute
kimoto authored on 2010-12-20
33
        dbi_options => {AutoCommit => 0, mysql_enable_utf8 => 1}
34
    );
35
    $dbi->connect;
36
    ok(!$dbi->dbh->{AutoCommit});
added experimental DBIx::Cus...
Yuki Kimoto authored on 2011-01-17
37
    #ok($dbi->dbh->{mysql_enable_utf8});
added dbi_options attribute
kimoto authored on 2010-12-20
38
}
39

            
40
sub connect_info {
41
    my $file = 'password.tmp';
42
    open my $fh, '<', $file
43
      or return;
44
    
45
    my ($user, $password, $database) = split(/\s/, (<$fh>)[0]);
46
    
47
    close $fh;
48
    
49
    return ($user, $password, $database);
50
}