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

added a test against SQLite 3.8.0 crash (RT#88228)

Browse source
This commit is contained in:
Kenichi Ishigaki 2013-08-30 03:44:01 +09:00
parent 055404810a
commit 94bace12b9
1 changed files with 51 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

51
t/rt_88228_sqlite_3_8_0_crash.t Normal file
View file

@ -0,0 +1,51 @@
#!/usr/bin/perl
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use t::lib::Test;
use Test::More tests => 3;
use Test::NoWarnings;
my $dbh = connect_ok();
$dbh->do($_) for (
'CREATE TABLE "twokeys" (
"artist" integer NOT NULL,
"cd" integer NOT NULL,
PRIMARY KEY ("artist", "cd")
)',
'CREATE TABLE "fourkeys" (
"foo" integer NOT NULL,
"bar" integer NOT NULL,
"hello" integer NOT NULL,
"goodbye" integer NOT NULL,
"sensors" character(10) NOT NULL,
"read_count" int,
PRIMARY KEY ("foo", "bar", "hello", "goodbye")
)',
'CREATE TABLE "fourkeys_to_twokeys" (
"f_foo" integer NOT NULL,
"f_bar" integer NOT NULL,
"f_hello" integer NOT NULL,
"f_goodbye" integer NOT NULL,
"t_artist" integer NOT NULL,
"t_cd" integer NOT NULL,
"autopilot" character NOT NULL,
"pilot_sequence" integer,
PRIMARY KEY ("f_foo", "f_bar", "f_hello", "f_goodbye", "t_artist", "t_cd")
)',
'INSERT INTO fourkeys ( bar, foo, goodbye, hello, read_count, sensors) VALUES ( 1, 1, 1, 1, 1, 1 )',
'INSERT INTO twokeys ( artist, cd) VALUES ( 1, 1 )',
'INSERT INTO fourkeys_to_twokeys ( autopilot, f_bar, f_foo, f_goodbye, f_hello, pilot_sequence, t_artist, t_cd) VALUES ( 1, 1, 1, 1, 1, 1, 1, 1 )',
'DELETE FROM fourkeys_to_twokeys WHERE f_bar = 1 AND f_foo = 1 AND f_goodbye = 1 AND f_hello = 1 AND t_artist = 1 AND t_cd = 1'
);
pass "all done without segfault";