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

more tests

Browse source
This commit is contained in:
Kenichi Ishigaki 2010-06-17 03:01:04 +00:00
parent c7a882378e
commit 30158101ef
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
t/rt_44891_strings_look_like_numbers.t
View file

@ -27,6 +27,7 @@ my @values = qw/
*1234567890123456789012345678901234567890 *1234567890123456789012345678901234567890
-9223372036854775807 +9223372036854775806 -9223372036854775807 +9223372036854775806
-9223372036854775808 +9223372036854775807 -9223372036854775808 +9223372036854775807
-9223372036854775809 +9223372036854775808
/; /;
plan tests => @values * 3 + 1; plan tests => @values * 3 + 1;
@ -37,5 +38,5 @@ for my $value (@values) {
$dbh->do('create table foo (string)'); $dbh->do('create table foo (string)');
ok $dbh->do('insert into foo values(?)', undef, $value), "inserting $value"; ok $dbh->do('insert into foo values(?)', undef, $value), "inserting $value";
my ($got) = $dbh->selectrow_array('select string from foo where string = ?', undef, $value); my ($got) = $dbh->selectrow_array('select string from foo where string = ?', undef, $value);
ok defined $got && $got eq $value, "got: $got value: $value"; ok defined $got && $got eq $value, "got: $got expected: $value";
} }