view release on metacpan or  search on metacpan

t/007_element.t  view on Meta::CPAN

		require DBD::SQLite;
		require DBD::SQLite::Constants;
	};
	use constant HAS_SQLITE => ( $@ ? 0 : 1 );
	eval
	{
		require DBD::mysql;
	};
	use constant HAS_MYSQL => ( $@ ? 0 : 1 );
	our $DEBUG = exists( $ENV{AUTHOR_TESTING} ) ? $ENV{AUTHOR_TESTING} : 0;
};

use strict;
use warnings;

my $me = file(__FILE__);
my $path = $me->parent;
my @cleanup = ();
local $SIG{__DIE__} = \&_cleanup;
local $SIG{ABRT} = \&_cleanup;
local $SIG{BUS}  = \&_cleanup;
local $SIG{INT}  = \&_cleanup;
local $SIG{QUIT} = \&_cleanup;
local $SIG{SEGV} = \&_cleanup;
local $SIG{TERM} = \&_cleanup;

my $elem = DB::Object::Query::Element->new( debug => $DEBUG );
isa_ok( $elem, 'DB::Object::Query::Element' );

# egrep -E '^sub ' ./lib/DB/Object/Query/Element.pm | perl -lnE 'my $m = [split(/\s+/, $_)]->[1]; say "can_ok( \$elem, ''$m'' );"'
# perl -lnE '/^sub (?!init|[A-Z]|_)/ and say "can_ok( \$elem, \''", [split(/\s+/, $_)]->[1], "\'' );"' ./lib/DB/Object/Query/Element.pm
can_ok( $elem, 'init' );
can_ok( $elem, 'elements' );
can_ok( $elem, 'field' );
can_ok( $elem, 'format' );
can_ok( $elem, 'index' );
can_ok( $elem, 'is_numbered' );
can_ok( $elem, 'placeholder' );
can_ok( $elem, 'query_object' );
can_ok( $elem, 'type' );
can_ok( $elem, 'value' );

SKIP:
{
    if( HAS_POSTGRESQL )
    {
        my $con_params =
        {
            db		=> ( $ENV{DB_DATABASE} || 'postgres' ),
            host    => ( $ENV{DB_HOST} || 'localhost' ),
            driver	=> 'Pg',
            debug   => $DEBUG,
        };
        $con_params->{conf_file} = $ENV{DB_CONF} if( exists( $ENV{DB_CONF} ) && $ENV{DB_CONF} );
        if( $^O eq 'MSWin32' )
        {
            $con_params->{login} = ( $ENV{DB_LOGIN} || getlogin ) if( !$ENV{DB_CON_FILE} );
        }
        else
        {
            $con_params->{login} = ( $ENV{DB_LOGIN} || getlogin || (getpwuid( $> ))[0] ) if( !$ENV{DB_CON_FILE} );
        }
        
        eval
        {
            require DB::Object::Postgres;
        };
        skip( "DBD::Pg not installed", 1 ) if( $@ );
        
        my $dbh = DB::Object::Postgres->connect( $con_params );
        if( !defined( $dbh ) )
        {
            skip( "PostgreSQL Database connection failed, cancelling other tests: " . DB::Object::Postgres->error, 17 );
        }
        else
        {
            $dbh->debug( $DEBUG );
            diag( "Debug value is: ", $dbh->debug );
            my $tbl = $dbh->table( 'products' );
            ok( $tbl, '$dbh->table( "products" )' );
            if( !defined( $tbl ) )
            {
                diag( "Error getting the table object: ", $dbh->error );
                skip( "Cannot get table object for PostgreSQL driver", 12 );
            }
            my $qo = $tbl->get_query_object;
            my $type_value = $dbh->datatype_to_constant( 'uuid' ) || do
            {
                BAIL_OUT( $dbh->error ) if( $dbh->error );
            };
            subtest 'numbered placeholder' => sub
            {
                $elem = DB::Object::Query::Element->new(
                    debug           => $DEBUG,
                    field           => 'product_id',
                    placeholder     => '$2',
                    query_object    => $qo,
                    # PG_UUID -> 2950
                    type            => &DBD::Pg::PG_UUID,
                );
                is( $elem->placeholder, '$2', 'placeholder' );
                ok( $elem->is_numbered, 'is_numbered' );
                is( $elem->index, 2, 'index' );
                is( $elem->field, 'product_id', 'field' );
                is( $elem->format, undef, 'format' );
                isa_ok( $elem->query_object, 'DB::Object::Query', 'query_object' );
                is( $elem->type, $type_value, 'type' );
                is( $elem->value, undef, 'value' );
            };
            
            subtest 'regular placeholder' => sub
            {
                $elem = DB::Object::Query::Element->new(
                    debug           => $DEBUG,
                    field           => 'product_id',
                    placeholder     => '?',
                    query_object    => $qo,
                    # PG_UUID -> 2950
                    type            => &DBD::Pg::PG_UUID,
                );
                is( $elem->placeholder, '?', 'placeholder' );