simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-08 06:38:12 -04:00
Code Issues Releases Wiki Activity

made valgrind a little happier part2

Browse source
This commit is contained in:
Kenichi Ishigaki 2011-10-05 14:21:22 +00:00
parent 5561ee7ee3
commit 7db8c900f5
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
t/39_foreign_keys.t
View file

@ -21,6 +21,12 @@ use Test::NoWarnings;
plan tests => 17;
sub insert_artist { _do("INSERT INTO artist (artistid, artistname) VALUES (?, ?)", @_ ); }
sub insert_track { _do("INSERT INTO track (trackid, trackname, trackartist) VALUES (?, ?, ?)", @_); }
sub update_track { _do("UPDATE track SET trackartist = ? WHERE trackname = ?", @_); }
sub _do { eval { $dbh->do(shift, undef, @_) }; }
# following tests are from http://www.sqlite.org/foreignkeys.html
my $dbh = connect_ok( RaiseError => 1, PrintError => 0, AutoCommit => 1 );
@ -76,9 +82,3 @@ ok update_track(3, "Mr. Bojangles");
# without violating the foreign key constraint:
ok insert_track(15, "Boogie Woogie", 3);
sub insert_artist { _do("INSERT INTO artist (artistid, artistname) VALUES (?, ?)", @_ ); }
sub insert_track { _do("INSERT INTO track (trackid, trackname, trackartist) VALUES (?, ?, ?)", @_); }
sub update_track { _do("UPDATE track SET trackartist = ? WHERE trackname = ?", @_); }
sub _do { eval { $dbh->do(shift, undef, @_) }; }