diff options
Diffstat (limited to 'test/misc6.test')
| -rw-r--r-- | test/misc6.test | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/test/misc6.test b/test/misc6.test new file mode 100644 index 0000000..9840dd9 --- /dev/null +++ b/test/misc6.test @@ -0,0 +1,48 @@ +# 2006 September 4 +# +# The author disclaims copyright to this source code. In place of +# a legal notice, here is a blessing: +# +# May you do good and not evil. +# May you find forgiveness for yourself and forgive others. +# May you share freely, never taking more than you give. +# +#*********************************************************************** +# This file implements regression tests for SQLite library. +# +# This file implements tests to make sure sqlite3_value_text() +# always returns a null-terminated string. +# +# $Id: misc6.test,v 1.3 2007/04/23 23:56:32 drh Exp $ + +set testdir [file dirname $argv0] +source $testdir/tester.tcl + +do_test misc6-1.1 { + set DB [sqlite3_connection_pointer db] + sqlite3_create_function $DB + set STMT [sqlite3_prepare $DB {SELECT hex8(?)} -1 DUMMY] + set sqlite_static_bind_value {0123456789} + set sqlite_static_bind_nbyte 5 + sqlite_bind $STMT 1 {} static-nbytes + sqlite3_step $STMT +} SQLITE_ROW +do_test misc6-1.2 { + sqlite3_column_text $STMT 0 +} {3031323334} +ifcapable utf16 { + do_test misc6-1.3 { + sqlite3_finalize $STMT + set STMT [sqlite3_prepare $DB {SELECT hex16(?)} -1 DUMMY] + set sqlite_static_bind_value {0123456789} + set sqlite_static_bind_nbyte 5 + sqlite_bind $STMT 1 {} static-nbytes + sqlite3_step $STMT + } SQLITE_ROW + do_test misc6-1.4 { + sqlite3_column_text $STMT 0 + } {00300031003200330034} +} +sqlite3_finalize $STMT + +finish_test |