1# 2015-09-10 2# 3# The author disclaims copyright to this source code. In place of 4# a legal notice, here is a blessing: 5# 6# May you do good and not evil. 7# May you find forgiveness for yourself and forgive others. 8# May you share freely, never taking more than you give. 9# 10#*********************************************************************** 11# This file implements tests for sqlite3_value_subtype() and 12# sqlite3_result_subtype() interfaces. 13# 14 15set testdir [file dirname $argv0] 16source $testdir/tester.tcl 17 18do_execsql_test subtype1-100 { 19 SELECT test_getsubtype('hello'); 20} {0} 21do_execsql_test subtype1-110 { 22 SELECT test_getsubtype(test_setsubtype('hello',123)); 23} {123} 24do_execsql_test subtype1-120 { 25 SELECT typeof(test_setsubtype('hello',123)); 26} {text} 27do_execsql_test subtype1-130 { 28 SELECT test_setsubtype('hello',123); 29} {hello} 30 31finish_test 32