use Test::More;

use strict;

use warnings;

use DBIx::Custom; 

my $dbi;

plan skip_all => $ENV{DBIX_CUSTOM_SKIP_MESSAGE} || 'common.t is always skipped'

  unless $ENV{DBIX_CUSTOM_TEST_RUN}

    && eval { $dbi = DBIx::Custom->connect; 1 };

plan 'no_plan';

$SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /DEPRECATED/};

sub test { print "# $_[0]\n" }

# Constant

my $create_table1 = $dbi->create_table1;

my $create_table1_2 = $dbi->create_table1_2;

# Variable

# Variables

my $builder;

my $datas;

my $sth;

my $source;

my @sources;

my $select_source;

my $insert_source;

my $update_source;

my $param;

my $params;

my $sql;

my $result;

my $row;

my @rows;

my $rows;

my $query;

my @queries;

my $select_query;

my $insert_query;

my $update_query;

my $ret_val;

my $infos;

my $model;

my $model2;

my $where;

my $update_param;

my $insert_param;

my $join;

# Drop table

eval { $dbi->execute('drop table table1') };

# Create table

$dbi->execute($create_table1);

$model = $dbi->create_model(table => 'table1');

$model->insert({key1 => 1, key2 => 2});

is_deeply($model->select->all, [{key1 => 1, key2 => 2}]);

test 'DBIx::Custom::Result test';

$dbi->delete_all(table => 'table1');

$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});

$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});

$source = "select key1, key2 from table1";

$query = $dbi->create_query($source);

$result = $dbi->execute($query);

@rows = ();

while (my $row = $result->fetch) {

    push @rows, [@$row];

}

is_deeply(\@rows, [[1, 2], [3, 4]], "fetch");

$result = $dbi->execute($query);

@rows = ();

while (my $row = $result->fetch_hash) {

    push @rows, {%$row};

}

is_deeply(\@rows, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], "fetch_hash");

$result = $dbi->execute($query);

$rows = $result->fetch_all;

is_deeply($rows, [[1, 2], [3, 4]], "fetch_all");

$result = $dbi->execute($query);

$rows = $result->fetch_hash_all;

is_deeply($rows, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], "all");

test 'Insert query return value';

$source = "insert into table1 {insert_param key1 key2}";

$query = $dbi->execute($source, {}, query => 1);

$ret_val = $dbi->execute($query, param => {key1 => 1, key2 => 2});

ok($ret_val);

test 'Direct query';

$dbi->delete_all(table => 'table1');

$insert_source = "insert into table1 {insert_param key1 key2}";

$dbi->execute($insert_source, param => {key1 => 1, key2 => 2});

$result = $dbi->execute('select * from table1;');

$rows = $result->all;

is_deeply($rows, [{key1 => 1, key2 => 2}]);

test 'Filter basic';

$dbi->delete_all(table => 'table1');

$dbi->register_filter(twice       => sub { $_[0] * 2}, 

                    three_times => sub { $_[0] * 3});

$insert_source  = "insert into table1 {insert_param key1 key2};";

$insert_query = $dbi->execute($insert_source, {}, query => 1);

$insert_query->filter({key1 => 'twice'});

$dbi->execute($insert_query, param => {key1 => 1, key2 => 2});

$result = $dbi->execute('select * from table1;');

$rows = $result->filter({key2 => 'three_times'})->all;

is_deeply($rows, [{key1 => 2, key2 => 6}], "filter fetch_filter");

test 'Filter in';

$dbi->delete_all(table => 'table1');

$insert_source  = "insert into table1 {insert_param key1 key2};";

$insert_query = $dbi->execute($insert_source, {}, query => 1);

$dbi->execute($insert_query, param => {key1 => 2, key2 => 4});

$select_source = "select * from table1 where {in table1.key1 2} and {in table1.key2 2}";

$select_query = $dbi->execute($select_source,{}, query => 1);

$select_query->filter({'table1.key1' => 'twice'});

$result = $dbi->execute($select_query, param => {'table1.key1' => [1,5], 'table1.key2' => [2,4]});

$rows = $result->all;

is_deeply($rows, [{key1 => 2, key2 => 4}], "filter");

test 'DBIx::Custom::SQLTemplate basic tag';

$dbi->execute('drop table table1');

$dbi->execute($create_table1_2);

$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});

$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});

$source = "select * from table1 where key1 = :key1 and {<> key2} and {< key3} and {> key4} and {>= key5};";

$query = $dbi->execute($source, {}, query => 1);

$result = $dbi->execute($query, param => {key1 => 1, key2 => 3, key3 => 4, key4 => 3, key5 => 5});

$rows = $result->all;

is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "basic tag1");

$source = "select * from table1 where key1 = :key1 and {<> key2} and {< key3} and {> key4} and {>= key5};";

$query = $dbi->execute($source, {}, query => 1);

$result = $dbi->execute($query, {key1 => 1, key2 => 3, key3 => 4, key4 => 3, key5 => 5});

$rows = $result->all;

is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "basic tag1");

$source = "select * from table1 where {<= key1} and {like key2};";

$query = $dbi->execute($source, {}, query => 1);

$result = $dbi->execute($query, param => {key1 => 1, key2 => '%2%'});

$rows = $result->all;

is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "basic tag2");

test 'DIB::Custom::SQLTemplate in tag';

$dbi->execute('drop table table1');

$dbi->execute($create_table1_2);

$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});

$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});

$source = "select * from table1 where {in key1 2};";

$query = $dbi->execute($source, {}, query => 1);

$result = $dbi->execute($query, param => {key1 => [9, 1]});

$rows = $result->all;

is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "basic");

test 'DBIx::Custom::SQLTemplate insert tag';

$dbi->delete_all(table => 'table1');

$insert_source = 'insert into table1 {insert_param key1 key2 key3 key4 key5}';

$dbi->execute($insert_source, param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});

$result = $dbi->execute('select * from table1;');

$rows = $result->all;

is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "basic");

test 'DBIx::Custom::SQLTemplate update tag';

$dbi->delete_all(table => 'table1');

$insert_source = "insert into table1 {insert_param key1 key2 key3 key4 key5}";

$dbi->execute($insert_source, param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});

$dbi->execute($insert_source, param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});

$update_source = 'update table1 {update_param key1 key2 key3 key4} where {= key5}';

$dbi->execute($update_source, param => {key1 => 1, key2 => 1, key3 => 1, key4 => 1, key5 => 5});

$result = $dbi->execute('select * from table1 order by key1;');

$rows = $result->all;

is_deeply($rows, [{key1 => 1, key2 => 1, key3 => 1, key4 => 1, key5 => 5},

                  {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10}], "basic");

test 'Named placeholder';

$dbi->execute('drop table table1');

$dbi->execute($create_table1_2);

$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});

$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});

$source = "select * from table1 where key1 = :key1 and key2 = :key2";

$result = $dbi->execute($source, param => {key1 => 1, key2 => 2});

$rows = $result->all;

is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}]);

$source = "select * from table1 where key1 = \n:key1\n and key2 = :key2";

$result = $dbi->execute($source, param => {key1 => 1, key2 => 2});

$rows = $result->all;

is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}]);

$source = "select * from table1 where key1 = :key1 or key1 = :key1";

$result = $dbi->execute($source, param => {key1 => [1, 2]});

$rows = $result->all;

is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}]);

$source = "select * from table1 where key1 = :table1.key1 and key2 = :table1.key2";

$result = $dbi->execute(

    $source,

    param => {'table1.key1' => 1, 'table1.key2' => 1},

    filter => {'table1.key2' => sub { $_[0] * 2 }}

);

$rows = $result->all;

is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}]);

$dbi->execute('drop table table1');

$dbi->execute($create_table1);

$dbi->insert(table => 'table1', param => {key1 => '2011-10-14 12:19:18', key2 => 2});

$source = "select * from table1 where key1 = '2011-10-14 12:19:18' and key2 = :key2";

$result = $dbi->execute(

    $source,

    param => {'key2' => 2},

);

$rows = $result->all;

is_deeply($rows, [{key1 => '2011-10-14 12:19:18', key2 => 2}]);

$dbi->delete_all(table => 'table1');

$dbi->insert(table => 'table1', param => {key1 => 'a:b c:d', key2 => 2});

$source = "select * from table1 where key1 = 'a\\:b c\\:d' and key2 = :key2";

$result = $dbi->execute(

    $source,

    param => {'key2' => 2},

);

$rows = $result->all;

is_deeply($rows, [{key1 => 'a:b c:d', key2 => 2}]);

test 'Error case';

eval {DBIx::Custom->connect(dsn => 'dbi:SQLit')};

ok($@, "connect error");

eval{$dbi->execute("{p }", {}, query => 1)};

ok($@, "create_query invalid SQL template");

1;