simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 14:19:10 -04:00
Code Issues Releases Wiki Activity

Merge commit '7bd422e'

Browse source
This commit is contained in:
Kenichi Ishigaki 2013-06-15 04:09:43 +09:00
commit 6964813bb6
1 changed files with 52 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

52
t/rt_76395_int_overflow.t Normal file
View file

@ -0,0 +1,52 @@
#!/usr/bin/perl
use strict;
my $INTMAX;
BEGIN {
$| = 1;
$^W = 1;
use Config;
$INTMAX = (1 << ($Config{ivsize}*4-1)) - 1;
}
use t::lib::Test;
use Test::More tests => 7 + (2147483647 == $INTMAX ? 2 : 4);
use Test::NoWarnings;
use DBI qw(:sql_types);
my $dbh = connect_ok();
# testing results
sub intmax {
my $intmax = shift;
my ($statement, $sth, $result);
$statement = "SELECT $intmax + 1";
$sth = $dbh->prepare($statement);
ok( $sth->execute, "execute: $statement" );
$result = $sth->fetchrow_arrayref->[0];
is( $result, $intmax + 1, "result: $result" );
}
intmax($INTMAX);
intmax(2147483647) if 2147483647 != $INTMAX;
# testing int column type, which should default to int(8) or int(4)
$dbh->do('drop table if exists artist');
$dbh->do(<<'END_SQL');
create table artist (
id int not null,
name text not null
)
END_SQL
$INTMAX = 2147483647;
my ($sth, $result);
ok( $dbh->do(qq/insert into artist (id,name) values($INTMAX+1, 'Leonardo')/), 'insert int INTMAX+1');
$sth = $dbh->prepare('select id from artist where name=?');
ok( $sth->execute('Leonardo'), 'bind to name' );
$result = $sth->fetchrow_arrayref->[0];
is( $result, $INTMAX+1, "result: $result" );
$sth = $dbh->prepare('select name from artist where id=?');
ok( $sth->execute($INTMAX+1), 'bind to INTMAX+1' );
$result = $sth->fetchrow_arrayref->[0];
is( $result, 'Leonardo', "result: $result" );