3 # The author disclaims copyright to this source code. In place of
4 # a legal notice, here is a blessing:
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.
10 #***********************************************************************
11 # This file implements regression tests for SQLite library.
14 ####################################################
15 # DO NOT EDIT! THIS FILE IS AUTOMATICALLY GENERATED!
16 ####################################################
18 set testdir [file dirname $argv0]
19 source $testdir/tester.tcl
20 set testprefix literal2
26 # PG says ERROR: trailing junk after numeric literal at or near "123_"
27 do_test 1.1 { catch { execsql {
34 foreach r [db eval {SELECT 1.0e1_2}] {
35 lappend myres [format %.4f [set r]]
37 set res2 {1000000000000.0000}
39 foreach r [set myres] r2 [set res2] {
40 if {[set r]<([set r2]-0.0001) || [set r]>([set r2]+0.0001)} {
41 error "list element [set i] does not match: got=[set r] expected=[set r2]"
48 do_execsql_test 3.0.0 {
52 do_execsql_test 3.0.1 {
56 # PG says ERROR: trailing junk after numeric literal at or near "0xFF_"
57 do_test 3.0.2 { catch { execsql {
61 # PG says ERROR: trailing junk after numeric literal at or near "0xFFEF_"
62 do_test 3.0.4 { catch { execsql {
66 do_execsql_test 3.1.0 {
70 do_execsql_test 3.1.1 {
74 # PG says ERROR: trailing junk after numeric literal at or near "0XFF_"
75 do_test 3.1.2 { catch { execsql {
79 # PG says ERROR: trailing junk after numeric literal at or near "0XFFEF_"
80 do_test 3.1.4 { catch { execsql {