#!perl -I./t
$| = 1;
use strict;
use DBI();
use DBD_TEST();
if ( defined $ENV{DBI_DSN} ) {
plan tests => 12;
} else {
plan skip_all => 'Cannot test without DB info';
}
pass('Quote tests');
my $dbh = DBI->connect or die "Connect failed: $DBI::errstr\n";
$dbh->{RaiseError} = 1;
$dbh->{PrintError} = 0;
pass('Database connection created');
eval { $dbh->quote };
ok( $@,"Call to quote() with 0 arguments, error expected: $@");
my $val =
[
[ 1 , q{'1'} ]
, [ 2 , q{'2'} ]
, [ undef , 'NULL' ]
, ['NULL' , q{'NULL'} ]
, ['ThisIsAString' , q{'ThisIsAString'} ]
, ['This is Another String', q{'This is Another String'} ]
, ["This isn't unusual" , q{'This isn''t unusual'} ]
];
for ( @$val ) {
my $val0 = $_->[0];
my $val1 = defined $val0 ? $val0 : 'undef';
my $val2 = $dbh->quote( $val0 );
is( $val2, $_->[1],"quote on $val1 returned $val2");
}
my $ti = DBD_TEST::get_type_for_column( $dbh,'A');
is( $dbh->quote( 1, $ti->{DATA_TYPE} ), 1,"quote( 1, $ti->{DATA_TYPE} )");
ok( $dbh->disconnect,'Disconnect');