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

fixup incorrect TODO passing

Browse source
This commit is contained in:
Vernon Lyon 2009-09-29 15:50:23 +00:00
parent a31981fa77
commit bcb95ed536
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
t/rt_29629_sqlite_where_length.t
View file

@ -32,24 +32,24 @@ is( $sth->fetchrow_arrayref->[0], 17, 'select length result' );
my $statement = 'select count(*) from artist where length(name) > ?'; my $statement = 'select count(*) from artist where length(name) > ?';
# ...not with bind args # ...not with bind args
TODO: {
local $TODO = 'This test is currently broken again. Wait for a better fix, or use known workarounds.';
$sth = $dbh->prepare($statement); $sth = $dbh->prepare($statement);
ok( $sth->execute(2), "execute: $statement : [2]" ); ok( $sth->execute(2), "execute: $statement : [2]" );
TODO: {
local $TODO = 'This test is currently broken again. Wait for a better fix, or use known workarounds.';
is( $sth->fetchrow_arrayref->[0], 1, "result of: $statement : [2]" ); is( $sth->fetchrow_arrayref->[0], 1, "result of: $statement : [2]" );
} }
### it does work, however, from the sqlite3 CLI...
# require Shell;
# $Shell::raw = 1;
# is( sqlite3($db, "'$statement;'"), "1\n", 'sqlite3 CLI' );
# ...works without bind args, though! # ...works without bind args, though!
$statement =~ s/\?/2/; $statement =~ s/\?/2/;
$sth = $dbh->prepare($statement); $sth = $dbh->prepare($statement);
ok( $sth->execute, "execute: $statement" ); ok( $sth->execute, "execute: $statement" );
is( $sth->fetchrow_arrayref->[0], 1, "result of: $statement" ); is( $sth->fetchrow_arrayref->[0], 1, "result of: $statement" );
### it does work, however, from the sqlite3 CLI...
# require Shell;
# $Shell::raw = 1;
# is( sqlite3($db, "'$statement;'"), "1\n", 'sqlite3 CLI' );
# (Jess Robinson discovered that it passes with an arg of 1) # (Jess Robinson discovered that it passes with an arg of 1)
$statement =~ s/2/1/; $statement =~ s/2/1/;
$sth = $dbh->prepare($statement); $sth = $dbh->prepare($statement);
@ -57,11 +57,11 @@ ok( $sth->execute, "execute: $statement" );
is( $sth->fetchrow_arrayref->[0], 1, "result of: $statement" ); is( $sth->fetchrow_arrayref->[0], 1, "result of: $statement" );
# (...but still not with bind args) # (...but still not with bind args)
TODO: {
local $TODO = 'This test is currently broken again. Wait for a better fix, or use known workarounds.';
$statement =~ s/1/?/; $statement =~ s/1/?/;
$sth = $dbh->prepare($statement); $sth = $dbh->prepare($statement);
ok( $sth->execute(1), "execute: $statement : [1]" ); ok( $sth->execute(1), "execute: $statement : [1]" );
TODO: {
local $TODO = 'This test is currently broken again. Wait for a better fix, or use known workarounds.';
is( $sth->fetchrow_arrayref->[0], 1, "result of: $statement [1]" ); is( $sth->fetchrow_arrayref->[0], 1, "result of: $statement [1]" );
} }