|
Packit |
723767 |
#!/usr/bin/perl
|
|
Packit |
723767 |
|
|
Packit |
723767 |
use 5.00503;
|
|
Packit |
723767 |
use strict;
|
|
Packit |
723767 |
BEGIN {
|
|
Packit |
723767 |
$| = 1;
|
|
Packit |
723767 |
$^W = 1;
|
|
Packit |
723767 |
}
|
|
Packit |
723767 |
|
|
Packit |
723767 |
use lib "t/lib";
|
|
Packit |
723767 |
use SQLiteTest qw/connect_ok @CALL_FUNCS/;
|
|
Packit |
723767 |
use Test::More;
|
|
Packit |
723767 |
use Test::NoWarnings;
|
|
Packit |
723767 |
use DBD::SQLite;
|
|
Packit |
723767 |
use DBD::SQLite::Constants;
|
|
Packit |
723767 |
|
|
Packit |
723767 |
my @function_flags = (undef, 0);
|
|
Packit |
723767 |
if ($DBD::SQLite::sqlite_version_number >= 3008003) {
|
|
Packit |
723767 |
push @function_flags, DBD::SQLite::Constants::SQLITE_DETERMINISTIC;
|
|
Packit |
723767 |
}
|
|
Packit |
723767 |
|
|
Packit |
723767 |
plan tests => 29 * @CALL_FUNCS * @function_flags + 1;
|
|
Packit |
723767 |
|
|
Packit |
723767 |
sub now {
|
|
Packit |
723767 |
return time();
|
|
Packit |
723767 |
}
|
|
Packit |
723767 |
|
|
Packit |
723767 |
sub add2 {
|
|
Packit |
723767 |
my ( $a, $b ) = @_;
|
|
Packit |
723767 |
return $a + $b;
|
|
Packit |
723767 |
}
|
|
Packit |
723767 |
|
|
Packit |
723767 |
sub my_sum {
|
|
Packit |
723767 |
my $sum = 0;
|
|
Packit |
723767 |
foreach my $x (@_) {
|
|
Packit |
723767 |
$sum += $x;
|
|
Packit |
723767 |
}
|
|
Packit |
723767 |
return $sum;
|
|
Packit |
723767 |
}
|
|
Packit |
723767 |
|
|
Packit |
723767 |
sub error {
|
|
Packit |
723767 |
die "function is dying: ", @_, "\n";
|
|
Packit |
723767 |
}
|
|
Packit |
723767 |
|
|
Packit |
723767 |
sub void_return {
|
|
Packit |
723767 |
}
|
|
Packit |
723767 |
|
|
Packit |
723767 |
sub return2 {
|
|
Packit |
723767 |
return ( 1, 2 );
|
|
Packit |
723767 |
}
|
|
Packit |
723767 |
|
|
Packit |
723767 |
sub return_null {
|
|
Packit |
723767 |
return undef;
|
|
Packit |
723767 |
}
|
|
Packit |
723767 |
|
|
Packit |
723767 |
sub my_defined {
|
|
Packit |
723767 |
defined($_[0]) ? 1 : 0;
|
|
Packit |
723767 |
}
|
|
Packit |
723767 |
|
|
Packit |
723767 |
sub noop {
|
|
Packit |
723767 |
return $_[0];
|
|
Packit |
723767 |
}
|
|
Packit |
723767 |
|
|
Packit |
723767 |
foreach my $call_func (@CALL_FUNCS) { for my $flags (@function_flags) {
|
|
Packit |
723767 |
my $dbh = connect_ok( PrintError => 0 );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
ok($dbh->$call_func( "now", 0, \&now, defined $flags ? $flags : (), "create_function" ));
|
|
Packit |
723767 |
my $result = $dbh->selectrow_arrayref( "SELECT now()" );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
ok( $result->[0], 'Got a result' );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
$dbh->do( 'CREATE TEMP TABLE func_test ( a, b )' );
|
|
Packit |
723767 |
$dbh->do( 'INSERT INTO func_test VALUES ( 1, 3 )' );
|
|
Packit |
723767 |
$dbh->do( 'INSERT INTO func_test VALUES ( 0, 4 )' );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
ok($dbh->$call_func( "add2", 2, \&add2, defined $flags ? $flags : (), "create_function" ));
|
|
Packit |
723767 |
$result = $dbh->selectrow_arrayref( "SELECT add2(1,3)" );
|
|
Packit |
723767 |
is($result->[0], 4, "SELECT add2(1,3)" );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
$result = $dbh->selectall_arrayref( "SELECT add2(a,b) FROM func_test" );
|
|
Packit |
723767 |
is_deeply( $result, [ [4], [4] ], "SELECT add2(a,b) FROM func_test" );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
ok($dbh->$call_func( "my_sum", -1, \&my_sum, defined $flags ? $flags : (), "create_function" ));
|
|
Packit |
723767 |
$result = $dbh->selectrow_arrayref( "SELECT my_sum( '2', 3, 4, '5')" );
|
|
Packit |
723767 |
is( $result->[0], 14, "SELECT my_sum( '2', 3, 4, '5')" );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
ok($dbh->$call_func( "error", -1, \&error, defined $flags ? $flags : (), "create_function" ));
|
|
Packit |
723767 |
$result = $dbh->selectrow_arrayref( "SELECT error( 'I died' )" );
|
|
Packit |
723767 |
ok( !$result );
|
|
Packit |
723767 |
like( $DBI::errstr, qr/function is dying: I died/ );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
ok($dbh->$call_func( "void_return", -1, \&void_return, defined $flags ? $flags : (), "create_function" ));
|
|
Packit |
723767 |
$result = $dbh->selectrow_arrayref( "SELECT void_return( 'I died' )" );
|
|
Packit |
723767 |
is_deeply( $result, [ undef ], "SELECT void_return( 'I died' )" );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
ok($dbh->$call_func( "return_null", -1, \&return_null, defined $flags ? $flags : (), "create_function" ));
|
|
Packit |
723767 |
$result = $dbh->selectrow_arrayref( "SELECT return_null()" );
|
|
Packit |
723767 |
is_deeply( $result, [ undef ], "SELECT return_null()" );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
ok($dbh->$call_func( "return2", -1, \&return2, defined $flags ? $flags : (), "create_function" ));
|
|
Packit |
723767 |
$result = $dbh->selectrow_arrayref( "SELECT return2()" );
|
|
Packit |
723767 |
is_deeply( $result, [ 2 ], "SELECT return2()" );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
ok($dbh->$call_func( "my_defined", 1, \&my_defined, defined $flags ? $flags : (), "create_function" ));
|
|
Packit |
723767 |
$result = $dbh->selectrow_arrayref( "SELECT my_defined(1)" );
|
|
Packit |
723767 |
is_deeply( $result, [ 1 ], "SELECT my_defined(1)" );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
$result = $dbh->selectrow_arrayref( "SELECT my_defined('')" );
|
|
Packit |
723767 |
is_deeply( $result, [ 1 ], "SELECT my_defined('')" );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
$result = $dbh->selectrow_arrayref( "SELECT my_defined('abc')" );
|
|
Packit |
723767 |
is_deeply( $result, [ 1 ], "SELECT my_defined('abc')" );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
$result = $dbh->selectrow_arrayref( "SELECT my_defined(NULL)" );
|
|
Packit |
723767 |
is_deeply( $result, [ '0' ], "SELECT my_defined(NULL)" );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
ok($dbh->$call_func( "noop", 1, \&noop, defined $flags ? $flags : (), "create_function" ));
|
|
Packit |
723767 |
$result = $dbh->selectrow_arrayref( "SELECT noop(NULL)" );
|
|
Packit |
723767 |
is_deeply( $result, [ undef ], "SELECT noop(NULL)" );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
$result = $dbh->selectrow_arrayref( "SELECT noop(1)" );
|
|
Packit |
723767 |
is_deeply( $result, [ 1 ], "SELECT noop(1)" );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
$result = $dbh->selectrow_arrayref( "SELECT noop('')" );
|
|
Packit |
723767 |
is_deeply( $result, [ '' ], "SELECT noop('')" );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
$result = $dbh->selectrow_arrayref( "SELECT noop(1.0625)" );
|
|
Packit |
723767 |
is_deeply( $result, [ 1.0625 ], "SELECT noop(1.0625)" );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
# 2147483648 == 1<<31
|
|
Packit |
723767 |
$result = $dbh->selectrow_arrayref( "SELECT noop(2147483648)" );
|
|
Packit |
723767 |
is_deeply( $result, [ 2147483648 ], "SELECT noop(2147483648)" );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
$result = $dbh->selectrow_arrayref( "SELECT typeof(noop(2147483648))" );
|
|
Packit |
723767 |
is_deeply( $result, [ 'integer' ], "SELECT typeof(noop(2147483648))" );
|
|
Packit |
723767 |
|
|
Packit |
723767 |
$dbh->disconnect;
|
|
Packit |
723767 |
}}
|