use Test::More 'no_plan';
use strict;
use warnings;

use DBI::Custom;
use Scalar::Util qw/blessed/;
use DBI::Custom::SQL::Template;

my $sql_tmpl1 = DBI::Custom::SQL::Template->new->tag_start(0);
my $sql_tmpl2 = DBI::Custom::SQL::Template->new->tag_start(1);
my $sql_tmpl3 = DBI::Custom::SQL::Template->new->tag_start(2);

{
    my $dbi = DBI::Custom->new(
        user => 'a',
        password => 'b',
        data_source => 'c',
        dbi_options => {d => 1, e => 2},
        filters => {
            f => 3,
        },
        bind_filter => 'f',
        fetch_filter => 'g',
        result_class => 'g',
        sql_template => $sql_tmpl1,
    );
    is_deeply($dbi,{user => 'a', password => 'b', data_source => 'c', 
                    dbi_options => {d => 1, e => 2}, filters => {f => 3}, bind_filter => 'f',
                    fetch_filter => 'g', result_class => 'g',
                    sql_template => $sql_tmpl1}, 'new');
    
    isa_ok($dbi, 'DBI::Custom');
}


{
    package DBI::Custom::T1;
    use base 'DBI::Custom';
    
    my $class = __PACKAGE__;
    
    $class
      ->user('a')
      ->password('b')
      ->data_source('c')
      ->dbi_options({d => 1, e => 2})
      ->filters(
          f => 3
      )
      ->bind_filter('f')
      ->fetch_filter('g')
      ->result_class('DBI::Custom::Result')
      ->sql_template($sql_tmpl1)
    ;
}
{
    my $dbi = DBI::Custom::T1->new(
        user => 'ao',
        password => 'bo',
        data_source => 'co',
        dbi_options => {do => 10, eo => 20},
        filters => {
            fo => 30,
        },
        bind_filter => 'fo',
        fetch_filter => 'go',
        result_class => 'ho',
        sql_template => $sql_tmpl1,
    );
    my $sql_tmpl = delete $dbi->{sql_template};
    is($sql_tmpl->tag_start, 0);
    is_deeply($dbi,{ user => 'ao', password => 'bo', data_source => 'co', dbi_options => {do => 10, eo => 20},
                    ,filters => {fo => 30}, bind_filter => 'fo', fetch_filter => 'go', result_class => 'ho',
                    }, 'new arguments');
    
    isa_ok($dbi, 'DBI::Custom::T1');
}

{
    my $dbi = DBI::Custom::T1->new;
    
    is($dbi->user, 'a');
    is($dbi->password, 'b');
    is($dbi->data_source, 'c');
    is_deeply($dbi->dbi_options, {d => 1, e => 2});
    is_deeply({$dbi->filters}, {f => 3});
    is($dbi->bind_filter, 'f');
    is($dbi->fetch_filter, 'g');
    is($dbi->result_class, 'DBI::Custom::Result');
    is($dbi->sql_template->tag_start, 0);
    isa_ok($dbi, 'DBI::Custom::T1');
    
}

{
    package DBI::Custom::T1_2;
    use base 'DBI::Custom::T1';
}

{
    my $dbi = DBI::Custom::T1_2->new;
    
    is($dbi->user, 'a');
    is($dbi->password, 'b');
    is($dbi->data_source, 'c');
    is_deeply($dbi->dbi_options, {d => 1, e => 2});
    is_deeply(scalar $dbi->filters, {f => 3});
    is($dbi->bind_filter, 'f');
    is($dbi->fetch_filter, 'g');
    is($dbi->result_class, 'DBI::Custom::Result');
    is($dbi->sql_template->tag_start, 0);
    
    isa_ok($dbi, 'DBI::Custom::T1_2');
}

{
    package DBI::Custom::T1_3;
    use base 'DBI::Custom::T1';
    
    my $class = __PACKAGE__;
        
    $class
      ->user('ao')
      ->password('bo')
      ->data_source('co')
      ->dbi_options({do => 10, eo => 20})
      ->filters(
        fo => 30
      )
      ->bind_filter('fo')
      ->fetch_filter('go')
      ->result_class('ho')
      ->sql_template($sql_tmpl2)
    ;
}

{
    my $dbi = DBI::Custom::T1_3->new;
    
    is($dbi->user, 'ao');
    is($dbi->password, 'bo');
    is($dbi->data_source, 'co');
    is_deeply($dbi->dbi_options, {do => 10, eo => 20});
    is_deeply(scalar $dbi->filters, {fo => 30});
    is($dbi->bind_filter, 'fo');
    is($dbi->fetch_filter, 'go');
    is($dbi->result_class, 'ho');
    is($dbi->sql_template->tag_start, 1);
    
    isa_ok($dbi, 'DBI::Custom::T1_3');
}

{
    my $dbi = DBI::Custom::T1_3->new(
        user => 'a',
        password => 'b',
        data_source => 'c',
        dbi_options => {d => 1, e => 2},
        filters => {
            f => 3,
        },
        bind_filter => 'f',
        fetch_filter => 'g',
        result_class => 'h',
        sql_template => $sql_tmpl3,
    );
    
    is($dbi->user, 'a');
    is($dbi->password, 'b');
    is($dbi->data_source, 'c');
    is_deeply($dbi->dbi_options, {d => 1, e => 2});
    is_deeply({$dbi->filters}, {f => 3});
    is($dbi->bind_filter, 'f');
    is($dbi->fetch_filter, 'g');
    is($dbi->result_class, 'h');
    is($dbi->sql_template->tag_start, 2);
    
    isa_ok($dbi, 'DBI::Custom');
}