summaryrefslogtreecommitdiffstats
path: root/test/literal.test
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-06-03 05:16:44 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-06-03 05:16:44 +0000
commit62a67b10ff9f9eea6a4695649fb8252d2a4bc74d (patch)
tree7b54cadc082d323cda5fd24248e85b7d2ea664a3 /test/literal.test
parentAdding debian version 3.45.3-1. (diff)
downloadsqlite3-62a67b10ff9f9eea6a4695649fb8252d2a4bc74d.tar.xz
sqlite3-62a67b10ff9f9eea6a4695649fb8252d2a4bc74d.zip
Merging upstream version 3.46.0.
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'test/literal.test')
-rw-r--r--test/literal.test103
1 files changed, 103 insertions, 0 deletions
diff --git a/test/literal.test b/test/literal.test
new file mode 100644
index 0000000..5aa331e
--- /dev/null
+++ b/test/literal.test
@@ -0,0 +1,103 @@
+# 2024-01-19
+#
+# 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 tests for SQL literals
+
+
+set testdir [file dirname $argv0]
+source $testdir/tester.tcl
+set ::testprefix literal
+
+proc test_literal {tn lit type val} {
+ do_execsql_test $tn.1 "SELECT typeof( $lit ), $lit" [list $type $val]
+
+ ifcapable altertable {
+ do_execsql_test $tn.2 "
+ DROP TABLE IF EXISTS x1;
+ CREATE TABLE x1(a);
+ INSERT INTO x1 VALUES(123);
+ ALTER TABLE x1 ADD COLUMN b DEFAULT $lit ;
+ SELECT typeof(b), b FROM x1;
+ " [list $type $val]
+ }
+
+ do_execsql_test $tn.3 "
+ DROP TABLE IF EXISTS x1;
+ CREATE TABLE x1(a DEFAULT $lit);
+ INSERT INTO x1 DEFAULT VALUES;
+ SELECT typeof(a), a FROM x1;
+ " [list $type $val]
+}
+
+proc test_literal_error {tn lit unrec} {
+ do_catchsql_test $tn "SELECT $lit" "1 {unrecognized token: \"$unrec\"}"
+}
+
+
+test_literal 1.0 45 integer 45
+test_literal 1.1 0xFF integer 255
+test_literal 1.2 0xFFFFFFFF integer [expr 0xFFFFFFFF]
+test_literal 1.3 0x123FFFFFFFF integer [expr 0x123FFFFFFFF]
+test_literal 1.4 -0x123FFFFFFFF integer [expr -1 * 0x123FFFFFFFF]
+test_literal 1.5 0xFFFFFFFFFFFFFFFF integer -1
+test_literal 1.7 0x7FFFFFFFFFFFFFFF integer [expr 0x7FFFFFFFFFFFFFFF]
+test_literal 1.8 -0x7FFFFFFFFFFFFFFF integer [expr -0x7FFFFFFFFFFFFFFF]
+test_literal 1.9 +0x7FFFFFFFFFFFFFFF integer [expr +0x7FFFFFFFFFFFFFFF]
+test_literal 1.10 -45 integer -45
+test_literal 1.11 '0xFF' text 0xFF
+test_literal 1.12 '-0xFF' text -0xFF
+test_literal 1.13 -'0xFF' integer 0
+test_literal 1.14 -9223372036854775808 integer -9223372036854775808
+
+test_literal 2.1 1e12 real 1000000000000.0
+test_literal 2.2 1.0 real 1.0
+test_literal 2.3 1e1000 real Inf
+test_literal 2.4 -1e1000 real -Inf
+
+test_literal 3.1 1_000 integer 1000
+test_literal 3.2 1.1_1 real 1.11
+test_literal 3.3 1_0.1_1 real 10.11
+test_literal 3.4 1e1_000 real Inf
+test_literal 3.5 12_3_456.7_8_9 real 123456.789
+test_literal 3.6 9_223_372_036_854_775_807 integer 9223372036854775807
+test_literal 3.7 9_223_372_036_854_775_808 real 9.22337203685478e+18
+test_literal 3.8 -9_223_372_036_854_775_808 integer -9223372036854775808
+
+foreach {tn lit unrec} {
+ 0 123a456 123a456
+ 1 1_ 1_
+ 2 1_.4 1_.4
+ 3 1e_4 1e_4
+ 4 1_e4 1_e4
+ 5 1.4_e4 1.4_e4
+ 6 1.4e+_4 1.4e
+ 7 1.4e-_4 1.4e
+ 8 1.4e4_ 1.4e4_
+ 9 1.4_e4 1.4_e4
+ 10 1.4e_4 1.4e_4
+ 11 12__34 12__34
+ 12 1234_ 1234_
+ 13 12._34 12._34
+ 14 12_.34 12_.34
+ 15 12.34_ 12.34_
+ 16 1.0e1_______2 1.0e1_______2
+} {
+ test_literal_error 4.$tn $lit $unrec
+}
+
+# dbsqlfuzz e3186a9e7826e9cd7f4085aa4452f8696485f9e1
+# See tag-20240224-a and -b
+#
+do_catchsql_test 5.1 {
+ SELECT 1 ORDER BY 2_3;
+} {1 {1st ORDER BY term out of range - should be between 1 and 1}}
+
+finish_test