Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Update Eagle in externals to the latest trunk code. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
1b40ed593a60e35f521bbf690d803c6e |
| User & Date: | mistachkin 2013-05-17 01:31:54 |
Context
|
2013-05-18
| ||
| 00:28 | Disable use of the AllowPartiallyTrustedCallers attribute when compiled for the .NET Framework 4.0/4.5. check-in: 6f42f3300f user: mistachkin tags: trunk | |
|
2013-05-17
| ||
| 01:31 | Update Eagle in externals to the latest trunk code. check-in: 1b40ed593a user: mistachkin tags: trunk | |
|
2013-05-16
| ||
| 12:52 | Compilation fix for the .NET Compact Framework build. check-in: 6c4550233a user: mistachkin tags: trunk | |
Changes
Changes to Externals/Eagle/bin/Eagle.dll.
cannot compute difference between binary files
Changes to Externals/Eagle/bin/EagleShell.exe.
cannot compute difference between binary files
Changes to Externals/Eagle/lib/Eagle1.0/safe.eagle.
71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 |
return
}
###########################################################################
############################# END Eagle ONLY ##############################
###########################################################################
}
#
# NOTE: Provide the Eagle "safe" package to the interpreter.
#
package provide Eagle.Safe \
[expr {[isEagle] ? [info engine PatchLevel] : "1.0"}]
}
|
| |
71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 |
return
}
###########################################################################
############################# END Eagle ONLY ##############################
###########################################################################
}
#
# NOTE: Provide the Eagle "safe" package to the interpreter.
#
package provide Eagle.Safe \
[expr {[isEagle] ? [info engine PatchLevel] : "1.0"}]
}
|
Changes to Externals/Eagle/lib/Eagle1.0/shell.eagle.
43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 |
# environment should be placed here.
#
###########################################################################
############################## END Tcl ONLY ###############################
###########################################################################
}
#
# NOTE: Provide the Eagle shell package to the interpreter.
#
package provide Eagle.Shell \
[expr {[isEagle] ? [info engine PatchLevel] : "1.0"}]
}
|
| |
43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 |
# environment should be placed here.
#
###########################################################################
############################## END Tcl ONLY ###############################
###########################################################################
}
#
# NOTE: Provide the Eagle shell package to the interpreter.
#
package provide Eagle.Shell \
[expr {[isEagle] ? [info engine PatchLevel] : "1.0"}]
}
|
Changes to Externals/Eagle/lib/Eagle1.0/test.eagle.
1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 .... 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 .... 1586 1587 1588 1589 1590 1591 1592 1593 1594 1595 1596 1597 1598 1599 .... 2202 2203 2204 2205 2206 2207 2208 2209 2210 2211 2212 2213 2214 2215 2216 |
#
# NOTE: Show what leaked, if anything.
#
set count 0; upvar 1 $statsVarName array
foreach statistic $statistics {
if {$array($statistic,after) > $array($statistic,before)} then {
incr count
tputs $channel [appendArgs "==== \"" $fileName "\" LEAKED " \
$statistic \n]
if {[info exists array($statistic,before,list)]} then {
tputs $channel [appendArgs "---- " $statistic " BEFORE: " \
[formatList $array($statistic,before,list)] \n]
................................................................................
tputs $channel [appendArgs $status \n]
if {[isEagle]} then {
host title $status
}
}
proc runAllTests { channel path fileNames skipFileNames } {
#
# NOTE: Are we configured to run the test files in random order?
#
if {[isRandomOrder]} then {
set fileNames [lshuffle $fileNames]
................................................................................
[formatList $failed] \n]
}
if {[llength $leaked] > 0} then {
tputs $channel [appendArgs "---- files with leaking tests: " \
[formatList $leaked] \n]
}
}
proc configureTcltest { constraints imports force } {
if {[isEagle]} then {
#
# HACK: Flag the "test" and "runTest" script library procedures so
# that they use the script location of their caller and not
................................................................................
clearTestPercent reportTestPercent runAllTests configureTcltest \
machineToPlatform getPassPercentage getSkipPercentage] false false
###########################################################################
############################## END Tcl ONLY ###############################
###########################################################################
}
#
# NOTE: Provide the Eagle test package to the interpreter.
#
package provide Eagle.Test \
[expr {[isEagle] ? [info engine PatchLevel] : "1.0"}]
}
|
| > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | |
1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 .... 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331 .... 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 .... 2237 2238 2239 2240 2241 2242 2243 2244 2245 2246 2247 2248 2249 2250 2251 |
#
# NOTE: Show what leaked, if anything.
#
set count 0; upvar 1 $statsVarName array
foreach statistic $statistics {
if {$array($statistic,after) > $array($statistic,before)} then {
incr count; lappend array(statistics,leaked) $statistic
tputs $channel [appendArgs "==== \"" $fileName "\" LEAKED " \
$statistic \n]
if {[info exists array($statistic,before,list)]} then {
tputs $channel [appendArgs "---- " $statistic " BEFORE: " \
[formatList $array($statistic,before,list)] \n]
................................................................................
tputs $channel [appendArgs $status \n]
if {[isEagle]} then {
host title $status
}
}
proc reportTestStatisticCounts { channel statsVarName } {
upvar 1 $statsVarName array
#
# NOTE: Were any counts recorded during the testing?
#
if {[info exists array(statistics,leaked)]} then {
#
# NOTE: Process each leak type in the list, recording any duplicates
# in the temporary count array.
#
foreach statistic $array(statistics,leaked) {
if {[info exists count($statistic)]} then {
incr count($statistic)
} else {
set count($statistic) 1
}
}
#
# NOTE: Flatten the temporary count array into a dictionary formatted
# list and then possibly display it (i.e. if it actually contains
# any data).
#
set statistics [array get count]
if {[llength statistics] > 0} then {
tputs $channel [appendArgs "---- types of leaks detected: " \
[formatListAsDict $statistics] \n]
}
}
}
proc runAllTests { channel path fileNames skipFileNames } {
#
# NOTE: Are we configured to run the test files in random order?
#
if {[isRandomOrder]} then {
set fileNames [lshuffle $fileNames]
................................................................................
[formatList $failed] \n]
}
if {[llength $leaked] > 0} then {
tputs $channel [appendArgs "---- files with leaking tests: " \
[formatList $leaked] \n]
}
reportTestStatisticCounts $channel leaks
}
proc configureTcltest { constraints imports force } {
if {[isEagle]} then {
#
# HACK: Flag the "test" and "runTest" script library procedures so
# that they use the script location of their caller and not
................................................................................
clearTestPercent reportTestPercent runAllTests configureTcltest \
machineToPlatform getPassPercentage getSkipPercentage] false false
###########################################################################
############################## END Tcl ONLY ###############################
###########################################################################
}
#
# NOTE: Provide the Eagle test package to the interpreter.
#
package provide Eagle.Test \
[expr {[isEagle] ? [info engine PatchLevel] : "1.0"}]
}
|
Changes to Externals/Eagle/lib/Test1.0/constraints.eagle.
69 70 71 72 73 74 75 76 77 78 79 80 81 82 .... 1813 1814 1815 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 1841 1842 1843 .... 2446 2447 2448 2449 2450 2451 2452 2453 2454 2455 2456 2457 2458 2459 2460 2461 2462 2463 2464 2465 2466 2467 2468 2469 2470 2471 2472 2473 2474 2475 2476 |
#
foreach constraint $constraints {
addConstraint $constraint
}
}
}
}
proc checkForScriptLibrary { channel } {
tputs $channel "---- checking for script library... "
#
# NOTE: See if the variable containing the script library location
# exists.
................................................................................
tputs $channel yes\n
} else {
tputs $channel no\n
}
}
proc checkForDatabase { channel string } {
tputs $channel "---- checking for database... "
#
# HACK: Disable database connectivity testing on Mono because
# it fails to timeout (unless special test suite hacks
# for Mono have been disabled by the user).
#
if {[info exists ::no(mono)] || ![isMono]} then {
#
# NOTE: Can we access the local database?
#
if {[catch {sql open $string} connection] == 0} then {
#
# NOTE: Yes, it appears that we can connect to the local database.
#
addConstraint sql
#
# NOTE: Cleanup the database connection we just opened.
#
sql close $connection
tputs $channel yes\n
................................................................................
###########################################################################
#
# NOTE: We need several of our test constraint related commands in the
# global namespace.
#
exportAndImportPackageCommands [namespace current] [list \
getKnownMonoVersions checkForPlatform checkForScriptLibrary \
checkForVariable checkForTclOptions checkForWindowsCommandProcessor \
checkForFossil checkForEagle checkForSymbols checkForLogFile \
checkForGaruda checkForShell checkForDebug checkForTk checkForVersion \
checkForCommand checkForTestMachine checkForTestPlatform \
checkForTestConfiguration checkForTestSuffix checkForFile \
checkForPathFile checkForNativeCode checkForTip127 checkForTip194 \
checkForTip241 checkForTip285 checkForTip405 checkForTiming \
checkForPerformance checkForStackIntensive checkForInteractive \
checkForInteractiveCommand checkForUserInteraction checkForNetwork \
checkForCompileOption] false false
###########################################################################
############################## END Tcl ONLY ###############################
###########################################################################
}
#
# NOTE: Provide the Eagle test constraints package to the interpreter.
#
package provide Eagle.Test.Constraints \
[expr {[isEagle] ? [info engine PatchLevel] : "1.0"}]
}
|
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | | | > > > > > > > > | > | | | | | | | | | < > |
69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 .... 1857 1858 1859 1860 1861 1862 1863 1864 1865 1866 1867 1868 1869 1870 1871 1872 1873 1874 1875 1876 1877 1878 1879 1880 1881 1882 1883 1884 1885 1886 1887 1888 1889 1890 1891 1892 1893 1894 1895 .... 2498 2499 2500 2501 2502 2503 2504 2505 2506 2507 2508 2509 2510 2511 2512 2513 2514 2515 2516 2517 2518 2519 2520 2521 2522 2523 2524 2525 2526 2527 2528 2529 |
#
foreach constraint $constraints {
addConstraint $constraint
}
}
}
}
proc checkForWindowsVersion { channel } {
tputs $channel "---- checking for Windows version... "
#
# NOTE: Are we running on Windows at all?
#
if {[info exists ::tcl_platform(platform)] && \
$::tcl_platform(platform) eq "windows"} then {
#
# NOTE: Is the specific OS name and version number available?
#
if {[info exists ::tcl_platform(os)] && \
[string length $::tcl_platform(os)] > 0 && \
[info exists ::tcl_platform(osVersion)] && \
[string length $::tcl_platform(osVersion)] > 0 && \
[regexp -- {^\d+\.\d+$} $::tcl_platform(osVersion)]} then {
#
# NOTE: Start out with the OS name, removing all spaces.
#
set version [appendArgs \
[string map [list " " ""] $::tcl_platform(os)] _ \
$::tcl_platform(osVersion)]
#
# NOTE: Add constraint containing the OS name and version number.
#
addConstraint [appendArgs osVersion. $version]
#
# NOTE: Show what we found for the OS name and version number.
#
tputs $channel [appendArgs "yes (" $::tcl_platform(os) " v" \
$::tcl_platform(osVersion) ")\n"]
#
# NOTE: We are done here, return now.
#
return
}
}
tputs $channel no\n
}
proc checkForScriptLibrary { channel } {
tputs $channel "---- checking for script library... "
#
# NOTE: See if the variable containing the script library location
# exists.
................................................................................
tputs $channel yes\n
} else {
tputs $channel no\n
}
}
proc checkForDatabase { channel type string } {
tputs $channel "---- checking for database... "
#
# HACK: Disable database connectivity testing on Mono because
# it fails to timeout (unless special test suite hacks
# for Mono have been disabled by the user).
#
if {[info exists ::no(mono)] || ![isMono]} then {
#
# NOTE: Can we access the local database?
#
if {[catch {sql open -type $type $string} connection] == 0} then {
#
# NOTE: Yes, it appears that we can connect to the local database.
#
addConstraint database
#
# NOTE: Also record the test database connection type used as a
# test constraint.
#
if {[string length $type] > 0} then {
addConstraint [appendArgs database. [string tolower $type]]
}
#
# NOTE: Cleanup the database connection we just opened.
#
sql close $connection
tputs $channel yes\n
................................................................................
###########################################################################
#
# NOTE: We need several of our test constraint related commands in the
# global namespace.
#
exportAndImportPackageCommands [namespace current] [list \
getKnownMonoVersions checkForPlatform checkForWindowsVersion \
checkForScriptLibrary checkForVariable checkForTclOptions \
checkForWindowsCommandProcessor checkForFossil checkForEagle \
checkForSymbols checkForLogFile checkForGaruda checkForShell \
checkForDebug checkForTk checkForVersion checkForCommand \
checkForTestMachine checkForTestPlatform checkForTestConfiguration \
checkForTestSuffix checkForFile checkForPathFile checkForNativeCode \
checkForTip127 checkForTip194 checkForTip241 checkForTip285 \
checkForTip405 checkForTiming checkForPerformance \
checkForStackIntensive checkForInteractive checkForInteractiveCommand \
checkForUserInteraction checkForNetwork checkForCompileOption] false \
false
###########################################################################
############################## END Tcl ONLY ###############################
###########################################################################
}
#
# NOTE: Provide the Eagle test constraints package to the interpreter.
#
package provide Eagle.Test.Constraints \
[expr {[isEagle] ? [info engine PatchLevel] : "1.0"}]
}
|
Changes to Externals/Eagle/lib/Test1.0/prologue.eagle.
513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 ... 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 .... 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 .... 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 .... 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 .... 2140 2141 2142 2143 2144 2145 2146 2147 2148 2149 2150 2151 2152 2153 |
"==== WARNING: running without any strong name signature...\n"]
} else {
#
# BUGBUG: Tcl 8.4 does not like this expression because it contains the
# "ni" operator (and Tcl tries to compile it even though it will
# only actually ever be evaluated in Eagle).
#
set expr {$publicKeyToken ni "29c6297630be05eb 1e22ec67879739a2"}
if {[expr $expr]} then {
#
# NOTE: The Eagle core library is strong name signed with a key that is
# not official. This is also not an error, per se; however, it
# may cause some tests to fail and it should be reported to the
# user and noted in the test suite log file.
................................................................................
# NOTE: Set the test password, if necessary.
#
if {![info exists password]} then {
set password [getEnvironmentVariable password]
}
#
# NOTE: Set the database connection string, if necessary.
#
if {![info exists test_database]} then {
#
# NOTE: Mono does not have support for trusted connections;
# therefore, we must create a slightly different
# connection string.
#
set test_database [subst \
{Data Source=${server};Initial Catalog=${database};Connect\
Timeout=${timeout};[expr {[isMono] ? [subst \
{User Id=${user};Password=${password};}] : {Integrated\
Security=SSPI;}}]}]
}
#
# NOTE: Can we access the local database?
#
checkForDatabase $test_channel $test_database
unset password user timeout database server
}
#
# NOTE: Has symbol testing support been disabled?
#
................................................................................
# "tclResetCancel-2.2", "tclResetCancel-3.1",
# "tclResetCancel-4.1", "tclSet-1.1", and "tclSubst-1.1".
#
checkForCompileOption $test_channel TCL
}
#
# NOTE: Has xml support been enabled (at compile-time)?
#
if {![info exists no(compileXml)]} then {
#
# NOTE: For tests "commands-1.4", "object-7.3" and "xml-1.1.*".
#
checkForCompileOption $test_channel XML
}
................................................................................
#
if {![info exists no(compileTclThreads)]} then {
#
# NOTE: For tests "tclLoad-1.5" and "tclLoad-1.6".
#
checkForCompileOption $test_channel TCL_THREADS
}
#
# NOTE: Has runtime license checking support been disabled (at
# compile-time). This only applies to third-party plugins
# and applications.
#
if {![info exists no(compileLicensing)]} then {
................................................................................
#
# NOTE: Check the core test constraints unless they have been
# explicitly disabled.
#
if {![info exists no(platform)]} then {
checkForPlatform $test_channel
}
if {![info exists no(scriptLibrary)]} then {
checkForScriptLibrary $test_channel
}
if {![info exists no(tclOptions)]} then {
checkForTclOptions $test_channel
................................................................................
#
checkForInteractiveCommand $test_channel go
#
# NOTE: For test "debug-1.9".
#
checkForInteractiveCommand $test_channel done
}
if {![info exists no(userInteraction)]} then {
checkForUserInteraction $test_channel
}
#
|
| > > > > > > > > > > > | | | | | > > > > > > > > > | | | > > > > > > > > > > > > > > > > > > > > > > > |
513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 ... 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 .... 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 .... 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 .... 2015 2016 2017 2018 2019 2020 2021 2022 2023 2024 2025 2026 2027 2028 2029 2030 2031 2032 .... 2178 2179 2180 2181 2182 2183 2184 2185 2186 2187 2188 2189 2190 2191 2192 2193 2194 2195 2196 |
"==== WARNING: running without any strong name signature...\n"]
} else {
#
# BUGBUG: Tcl 8.4 does not like this expression because it contains the
# "ni" operator (and Tcl tries to compile it even though it will
# only actually ever be evaluated in Eagle).
#
set expr {$publicKeyToken ni \
"29c6297630be05eb 1e22ec67879739a2 358030063a832bc3"}
if {[expr $expr]} then {
#
# NOTE: The Eagle core library is strong name signed with a key that is
# not official. This is also not an error, per se; however, it
# may cause some tests to fail and it should be reported to the
# user and noted in the test suite log file.
................................................................................
# NOTE: Set the test password, if necessary.
#
if {![info exists password]} then {
set password [getEnvironmentVariable password]
}
#
# NOTE: Set the test database connection type, if necessary.
#
if {![info exists test_database_type]} then {
#
# NOTE: Use the default database connection type.
#
set test_database_type Sql; # TODO: Good test default?
}
#
# NOTE: Set the test database connection string, if necessary.
#
if {![info exists test_database]} then {
#
# NOTE: Mono does not have support for "trusted connections";
# therefore, we must emit a different connection string
# when running there.
#
set test_database [subst \
{Data Source=${server};Initial Catalog=${database};Connect\
Timeout=${timeout};[expr {[isMono] ? [subst \
{User Id=${user};Password=${password};}] : {Integrated\
Security=SSPI;}}]}]; # NOTE: Microsoft SQL Server specific.
} elseif {[info exists test_database_subst]} then {
#
# NOTE: The test database connection string must be dynamically
# post-processed using [subst], per request. This allows
# the [custom] test database connection string to contain
# references to the other test database variables setup
# by this test prologue.
#
set test_database [subst $test_database]
}
#
# NOTE: Can we access the configured test database?
#
checkForDatabase $test_channel $test_database_type $test_database
unset password user timeout database server
}
#
# NOTE: Has symbol testing support been disabled?
#
................................................................................
# "tclResetCancel-2.2", "tclResetCancel-3.1",
# "tclResetCancel-4.1", "tclSet-1.1", and "tclSubst-1.1".
#
checkForCompileOption $test_channel TCL
}
#
# NOTE: Has XML support been enabled (at compile-time)?
#
if {![info exists no(compileXml)]} then {
#
# NOTE: For tests "commands-1.4", "object-7.3" and "xml-1.1.*".
#
checkForCompileOption $test_channel XML
}
................................................................................
#
if {![info exists no(compileTclThreads)]} then {
#
# NOTE: For tests "tclLoad-1.5" and "tclLoad-1.6".
#
checkForCompileOption $test_channel TCL_THREADS
}
#
# NOTE: Has GDI+ drawing support been enabled (at compile-time)?
#
if {![info exists no(compileDrawing)]} then {
checkForCompileOption $test_channel DRAWING
}
#
# NOTE: Has WinForms support been enabled (at compile-time)?
#
if {![info exists no(compileWinForms)]} then {
checkForCompileOption $test_channel WINFORMS
}
#
# NOTE: Has runtime license checking support been disabled (at
# compile-time). This only applies to third-party plugins
# and applications.
#
if {![info exists no(compileLicensing)]} then {
................................................................................
#
# NOTE: Check the core test constraints unless they have been
# explicitly disabled.
#
if {![info exists no(platform)]} then {
checkForPlatform $test_channel
}
if {![info exists no(windowsVersion)]} then {
checkForWindowsVersion $test_channel
}
if {![info exists no(scriptLibrary)]} then {
checkForScriptLibrary $test_channel
}
if {![info exists no(tclOptions)]} then {
checkForTclOptions $test_channel
................................................................................
#
checkForInteractiveCommand $test_channel go
#
# NOTE: For test "debug-1.9".
#
checkForInteractiveCommand $test_channel done
#
# NOTE: For test "object-15.9".
#
checkForInteractiveCommand $test_channel args
}
if {![info exists no(userInteraction)]} then {
checkForUserInteraction $test_channel
}
#
|
Changes to Tests/basic.eagle.
1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 |
\{False, Foreign Keys=False\} 0 \{(?:Default|LogCallbackException),\
Flags=(?:Default|LogCallbackException)\} 0 \{False, SetDefaults=False\} 0\
\{False, ToFullPath=False\} 0 {736563726574, HexPassword=736563726574}$}}
###############################################################################
runTest {test data-1.17 {SQLiteConvert ToDateTime (Julian Day)} -body {
set dateTime [object invoke System.Data.SQLite.SQLiteConvert ToDateTime \
2455928.0 Utc]
object invoke $dateTime ToString [getDateTimeFormat]
} -cleanup {
unset -nocomplain dateTime
} -constraints {eagle System.Data.SQLite} -result {2012-01-01 12:00:00Z}}
###############################################################################
|
| | |
1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 |
\{False, Foreign Keys=False\} 0 \{(?:Default|LogCallbackException),\
Flags=(?:Default|LogCallbackException)\} 0 \{False, SetDefaults=False\} 0\
\{False, ToFullPath=False\} 0 {736563726574, HexPassword=736563726574}$}}
###############################################################################
runTest {test data-1.17 {SQLiteConvert ToDateTime (Julian Day)} -body {
set dateTime [object invoke -create System.Data.SQLite.SQLiteConvert \
ToDateTime 2455928.0 Utc]
object invoke $dateTime ToString [getDateTimeFormat]
} -cleanup {
unset -nocomplain dateTime
} -constraints {eagle System.Data.SQLite} -result {2012-01-01 12:00:00Z}}
###############################################################################
|
Changes to Tests/tkt-343d392b51.eagle.
35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 |
sql execute $db "CREATE TABLE t1(x DATETIME);"
set paramDateTime1 [clock format [clock scan $dateTime] -format \
[getDateTimeFormat] -gmt true]
switch -exact -- $dateTimeFormat {
Ticks {
set paramDateTime1 [object invoke -alias DateTime Parse $paramDateTime1]
set paramDateTime1 [$paramDateTime1 ToUniversalTime.Ticks]
set paramDateTime2 $paramDateTime1
}
ISO8601 {
set paramDateTime2 [appendArgs ' $paramDateTime1 ']
}
JulianDay {
set paramDateTime1 [object invoke -alias DateTime Parse $paramDateTime1]
set paramDateTime1 [$paramDateTime1 -alias ToUniversalTime]
set paramDateTime1 [expr {[$paramDateTime1 ToOADate] + \
[object invoke -flags +NonPublic System.Data.SQLite.SQLiteConvert \
OleAutomationEpochAsJulianDay]}]
set paramDateTime2 $paramDateTime1
}
|
> | > > | > | |
35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 |
sql execute $db "CREATE TABLE t1(x DATETIME);"
set paramDateTime1 [clock format [clock scan $dateTime] -format \
[getDateTimeFormat] -gmt true]
switch -exact -- $dateTimeFormat {
Ticks {
set paramDateTime1 [object invoke \
-create -alias DateTime Parse $paramDateTime1]
set paramDateTime1 [$paramDateTime1 ToUniversalTime.Ticks]
set paramDateTime2 $paramDateTime1
}
ISO8601 {
set paramDateTime2 [appendArgs ' $paramDateTime1 ']
}
JulianDay {
set paramDateTime1 [object invoke \
-create -alias DateTime Parse $paramDateTime1]
set paramDateTime1 [$paramDateTime1 -create -alias ToUniversalTime]
set paramDateTime1 [expr {[$paramDateTime1 ToOADate] + \
[object invoke -flags +NonPublic System.Data.SQLite.SQLiteConvert \
OleAutomationEpochAsJulianDay]}]
set paramDateTime2 $paramDateTime1
}
|
Changes to Tests/tkt-bb4b04d457.eagle.
19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
runSQLiteTestPrologue
###############################################################################
runTest {test tkt-bb4b04d457-1.1 {TIMESTAMP column with Ticks} -setup {
setupDb [set fileName tkt-bb4b04d457-1.1.db] "" Ticks Utc
} -body {
set dateTime [object invoke -alias DateTime Parse 2011-11-29T12:34:56Z]
set dateTime [$dateTime -alias ToUniversalTime]
sql execute $db "CREATE TABLE t1(x TIMESTAMP NOT NULL);"
sql execute $db "INSERT INTO t1 (x) VALUES(?);" \
[list param1 Int64 [$dateTime Ticks]]
sql execute -execute reader -format list -datetimeformat \
|
> | > | |
19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 |
runSQLiteTestPrologue
###############################################################################
runTest {test tkt-bb4b04d457-1.1 {TIMESTAMP column with Ticks} -setup {
setupDb [set fileName tkt-bb4b04d457-1.1.db] "" Ticks Utc
} -body {
set dateTime [object invoke \
-create -alias DateTime Parse 2011-11-29T12:34:56Z]
set dateTime [$dateTime -create -alias ToUniversalTime]
sql execute $db "CREATE TABLE t1(x TIMESTAMP NOT NULL);"
sql execute $db "INSERT INTO t1 (x) VALUES(?);" \
[list param1 Int64 [$dateTime Ticks]]
sql execute -execute reader -format list -datetimeformat \
|