simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 14:19:10 -04:00
Code Issues Releases Wiki Activity

Add more tests for create_function

Browse source
This commit is contained in:
Kenichi Ishigaki 2020-01-18 10:01:33 +09:00
parent 2e455b0861
commit 5f5caa286f
1 changed files with 28 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
t/09_create_function.t
View file

@ -7,6 +7,8 @@ use Test::More;
use if -d ".git", "Test::FailWarnings"; use if -d ".git", "Test::FailWarnings";
use DBD::SQLite; use DBD::SQLite;
use DBD::SQLite::Constants; use DBD::SQLite::Constants;
use Digest::MD5 qw/md5/;
use DBI qw/:sql_types/;
my @function_flags = (undef, 0); my @function_flags = (undef, 0);
if ($DBD::SQLite::sqlite_version_number >= 3008003) { if ($DBD::SQLite::sqlite_version_number >= 3008003) {
@ -38,19 +40,27 @@ sub void_return {
} }
sub return2 { sub return2 {
return ( 1, 2 ); return ( 1, 2 );
} }
sub return_null { sub return_null {
return undef; return undef;
} }
sub my_defined { sub my_defined {
defined($_[0]) ? 1 : 0; defined($_[0]) ? 1 : 0;
} }
sub noop { sub noop {
return $_[0]; return $_[0];
}
sub md5_text {
return md5($_[0]);
}
sub md5_blob {
return [md5($_[0]), SQL_BLOB];
} }
foreach my $call_func (@CALL_FUNCS) { for my $flags (@function_flags) { foreach my $call_func (@CALL_FUNCS) { for my $flags (@function_flags) {
@ -126,6 +136,20 @@ foreach my $call_func (@CALL_FUNCS) { for my $flags (@function_flags) {
$result = $dbh->selectrow_arrayref( "SELECT typeof(noop(2147483648))" ); $result = $dbh->selectrow_arrayref( "SELECT typeof(noop(2147483648))" );
is_deeply( $result, [ 'integer' ], "SELECT typeof(noop(2147483648))" ); is_deeply( $result, [ 'integer' ], "SELECT typeof(noop(2147483648))" );
ok($dbh->$call_func( "md5_text", 1, \&md5_text, defined $flags ? $flags : (), "create_function" ));
$result = $dbh->selectrow_arrayref( "SELECT md5_text('my_blob')" );
is_deeply( $result, [ md5('my_blob') ], "SELECT md5_text('my_blob')" );
$result = $dbh->selectrow_arrayref( "SELECT typeof(md5_text('my_blob'))" );
is_deeply( $result, [ 'text' ], "SELECT typeof(md5_text('my_blob'))" );
ok($dbh->$call_func( "md5_blob", 1, \&md5_blob, defined $flags ? $flags : (), "create_function" ));
$result = $dbh->selectrow_arrayref( "SELECT md5_blob('my_blob')" );
is_deeply( $result, [ md5('my_blob') ], "SELECT md5_blob('my_blob')" );
$result = $dbh->selectrow_arrayref( "SELECT typeof(md5_blob('my_blob'))" );
is_deeply( $result, [ 'blob' ], "SELECT typeof(md5_blob('my_blob'))" );
$dbh->disconnect; $dbh->disconnect;
}} }}