summaryrefslogtreecommitdiff
path: root/components/external/SQLite-3.8.1/test/numcast.test
diff options
context:
space:
mode:
authorbernard <[email protected]>2017-11-02 13:50:42 +0800
committerbernard <[email protected]>2017-11-02 13:50:42 +0800
commitb2057f506a09e2adef81fc77efd697d16ae14bec (patch)
tree3affefabfe376a0ec1b3ac4a5eef957c1dd58dc8 /components/external/SQLite-3.8.1/test/numcast.test
parent23582c8129228b4961ad35319cfd2d270039345f (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.test46
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