use 5.014;
use strict;
use warnings;

use DBI;
use Test::More;

my @connect_info = (
    "dbi:Sybase:server=xxx;database=xxx",
    'xxx',
    ':)',
    { RaiseError => 1 },
);

# @connect_info = ("dbi:SQLite2:dbname=dbfile","","");

my $dbh = DBI->connect( @connect_info );
isa_ok $dbh, 'DBI::db';

my $sql = 'SELECT 1';
test_query( $sql );
test_query( $sql );

sub test_query {
    my ($sql) = @_;

    my $sth = $dbh->prepare_cached( $sql );
    isa_ok $sth, 'DBI::st';

    my $r = $sth->execute();
    {
        no warnings 'uninitialized';
        ok defined( $r ), "defined: '$r'";
    }

    ok $sth->finish(), '$sth->finish';

    return;
}

done_testing;