use Test::More;

use strict;

use warnings;

use FindBin;

use DBIx::Custom;

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

# Constant

my $user = 'dbix_custom';

my $password = 'dbix_custom';

my $database = 'dbix_custom';

my %connect_args_default = (

        dsn => "dbi:Pg:dbname=$database",

        user => $user,

        password => $password

);

my $create_table_default = 'create table table1 (key1 varchar(255), key2 varchar(255));';

plan skip_all => 'private test'

  unless -f "$FindBin::Bin/private-postgresql-run.tmp"

    && eval { DBIx::Custom->connect(%connect_args_default); 1 };

plan 'no_plan';

# Variable

my $dbi;

my $model;

# Connect

eval { $dbi = DBIx::Custom->connect(%connect_args_default); 1 };

ok(!$@);

# Drop table

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

# Create table

$dbi->execute($create_table_default);

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

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

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