|
|
|---|
set V [expr {int(1+2)}] | set V [expr {int(1+2)}] |
concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}] | concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}] |
} {int integer} | } {int integer} |
do_test types3-1.3 { |
set V [expr {1+12345678012345}] |
set V [expr {1+123456789012345}] |
if {[tcl_variable_type V]=="wideInt"} { |
concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}] |
do_test types3-1.3 { |
} {wideInt integer} |
set V [expr {1+123456789012345}] |
|
concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}] |
|
} {wideInt integer} |
|
} else { |
|
do_test types3-1.3 { |
|
set V [expr {1+123456789012345}] |
|
concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}] |
|
} {int integer} |
|
} |
| |
# A double variable comes in as REAL | # A double variable comes in as REAL |
do_test types3-1.4 { | do_test types3-1.4 { |
