diff --git a/t/rt_29058_group_by.t b/t/rt_29058_group_by.t index 62639b4..8500c9b 100644 --- a/t/rt_29058_group_by.t +++ b/t/rt_29058_group_by.t @@ -52,12 +52,12 @@ $ar = $sth->fetchall_arrayref; is( scalar(@$ar), 2, 'Got 2 results' ); # and this is what should be tested -TODO: { - local $TODO = 'This test is currently broken again. Wait for a better fix, or use known workarounds shown above'; +#TODO: { +# local $TODO = 'This test is currently broken again. Wait for a better fix, or use known workarounds shown above'; $ar = $dbh->selectall_arrayref( 'SELECT bar FROM foo GROUP BY bar HAVING count(*) > ?', undef, 1 ); # print "4: @$_\n" for @$ar; is( scalar(@$ar), 2, "we got ".(@$ar)." items" ); -} +#} diff --git a/t/rt_29629_sqlite_where_length.t b/t/rt_29629_sqlite_where_length.t index 335dc1e..3e6592c 100644 --- a/t/rt_29629_sqlite_where_length.t +++ b/t/rt_29629_sqlite_where_length.t @@ -34,10 +34,10 @@ my $statement = 'select count(*) from artist where length(name) > ?'; # ...not with bind args $sth = $dbh->prepare($statement); 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.'; +#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]" ); -} +#} ### it does work, however, from the sqlite3 CLI... # require Shell; @@ -60,10 +60,10 @@ is( $sth->fetchrow_arrayref->[0], 1, "result of: $statement" ); $statement =~ s/1/?/; $sth = $dbh->prepare($statement); 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.'; +#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]" ); -} +#} # known workarounds 1: use bind_param explicitly