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

avoid indirect call syntax

Browse source
This commit is contained in:
Laurent Dami 2012-08-05 08:27:59 +00:00
parent 2c8c79b2f4
commit 9aee12e250
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
t/10_create_aggregate.t
View file

@ -110,7 +110,7 @@ foreach my $call_func (@CALL_FUNCS) {
local $SIG{__WARN__} = sub { $last_warn = join "", @_ }; local $SIG{__WARN__} = sub { $last_warn = join "", @_ };
foreach my $fail ( qw/ new step finalize/ ) { foreach my $fail ( qw/ new step finalize/ ) {
$last_warn = ''; $last_warn = '';
my $aggr = new fail_aggregate( $fail ); my $aggr = fail_aggregate->new( $fail );
ok($dbh->$call_func( "fail_$fail", -1, $aggr, 'create_aggregate' )); ok($dbh->$call_func( "fail_$fail", -1, $aggr, 'create_aggregate' ));
$result = $dbh->selectrow_arrayref( "SELECT fail_$fail() FROM aggr_test" ); $result = $dbh->selectrow_arrayref( "SELECT fail_$fail() FROM aggr_test" );
# ok( !$result && $DBI::errstr =~ /$fail\(\) failed on request/ ); # ok( !$result && $DBI::errstr =~ /$fail\(\) failed on request/ );
@ -124,7 +124,7 @@ foreach my $call_func (@CALL_FUNCS) {
ok( !defined $result->[0] && $last_warn =~ /$fail\(\) failed on request/ ); ok( !defined $result->[0] && $last_warn =~ /$fail\(\) failed on request/ );
} }
my $aggr = new fail_aggregate( 'undef' ); my $aggr = fail_aggregate->new( 'undef' );
$last_warn = ''; $last_warn = '';
ok($dbh->$call_func( "fail_undef", -1, $aggr, 'create_aggregate' )); ok($dbh->$call_func( "fail_undef", -1, $aggr, 'create_aggregate' ));
$result = $dbh->selectrow_arrayref( "SELECT fail_undef() FROM aggr_test" ); $result = $dbh->selectrow_arrayref( "SELECT fail_undef() FROM aggr_test" );