diff options
| author | bernard <[email protected]> | 2017-11-02 13:50:42 +0800 |
|---|---|---|
| committer | bernard <[email protected]> | 2017-11-02 13:50:42 +0800 |
| commit | b2057f506a09e2adef81fc77efd697d16ae14bec (patch) | |
| tree | 3affefabfe376a0ec1b3ac4a5eef957c1dd58dc8 /components/external/SQLite-3.8.1/test/numcast.test | |
| parent | 23582c8129228b4961ad35319cfd2d270039345f (diff) | |
[External] Remove external from RT-Thread
Diffstat (limited to 'components/external/SQLite-3.8.1/test/numcast.test')
| -rw-r--r-- | components/external/SQLite-3.8.1/test/numcast.test | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/components/external/SQLite-3.8.1/test/numcast.test b/components/external/SQLite-3.8.1/test/numcast.test deleted file mode 100644 index 926bbe4b21..0000000000 --- a/components/external/SQLite-3.8.1/test/numcast.test +++ /dev/null @@ -1,46 +0,0 @@ -# 2013 March 20 -# -# 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 particular file does testing of casting strings into numeric -# values. -# - -set testdir [file dirname $argv0] -source $testdir/tester.tcl - -foreach enc {utf8 utf16le utf16be} { - do_test numcast-$enc.0 { - db close - sqlite3 db :memory: - db eval "PRAGMA encoding='$enc'" - set x [db eval {PRAGMA encoding}] - string map {- {}} [string tolower $x] - } $enc - foreach {idx str rval ival} { - 1 12345.0 12345.0 12345 - 2 12345.0e0 12345.0 12345 - 3 -12345.0e0 -12345.0 -12345 - 4 -12345.25 -12345.25 -12345 - 5 { -12345.0} -12345.0 -12345 - 6 { 876xyz} 876.0 876 - 7 { 456ķ89} 456.0 456 - 8 { Ġ 321.5} 0.0 0 - } { - do_test numcast-$enc.$idx.1 { - db eval {SELECT CAST($str AS real)} - } $rval - do_test numcast-$enc.$idx.2 { - db eval {SELECT CAST($str AS integer)} - } $ival - } -} - -finish_test |
