Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Update Eagle script library to the latest trunk code. When MDAs are enabled, disable a test that is problematic with them. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
8a1386f30310896efd72d63e191a4fba |
| User & Date: | mistachkin 2013-01-05 22:59:32 |
Context
|
2013-01-09
| ||
| 02:11 | Add Visual Studio 2012 / .NET Framework 4.5 specific binaries to the NuGet packages. Add a NuGet package specifically for beta testing purposes. check-in: 6d3a6e6ae3 user: mistachkin tags: trunk | |
|
2013-01-05
| ||
| 22:59 | Update Eagle script library to the latest trunk code. When MDAs are enabled, disable a test that is problematic with them. check-in: 8a1386f303 user: mistachkin tags: trunk | |
| 21:57 | Add another MDA to the example configuration file. check-in: bae364e5e7 user: mistachkin tags: trunk | |
Changes
Changes to Externals/Eagle/lib/Eagle1.0/test.eagle.
1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 |
# test failure with the stop-on-failure flag enabled),
# break out of the test loop now.
#
if {$stop} then {
break
}
} else {
#
# NOTE: This file does not actually count towards the total (i.e.
# it is part of the test suite infrastructure).
#
incr total -1
}
|
> > > > > > |
1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 1360 1361 1362 1363 1364 |
# test failure with the stop-on-failure flag enabled),
# break out of the test loop now.
#
if {$stop} then {
break
}
} else {
#
# NOTE: This entire test file has been skipped. Record that fact in
# the test suite log file.
#
tputs $channel [appendArgs "==== \"" $fileName "\" SKIPPED\n"]
#
# NOTE: This file does not actually count towards the total (i.e.
# it is part of the test suite infrastructure).
#
incr total -1
}
|
Changes to Externals/Eagle/lib/Test1.0/constraints.eagle.
939 940 941 942 943 944 945 946 947 948 949 950 951 952 .... 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 .... 2276 2277 2278 2279 2280 2281 2282 2283 2284 2285 2286 2287 2288 2289 2290 2291 2292 2293 2294 2295 2296 |
addConstraint performance
tputs $channel yes\n
} else {
tputs $channel no\n
}
}
proc checkForInteractive { channel } {
tputs $channel "---- checking for interactive user... "
#
# NOTE: Is there an interactive user?
#
................................................................................
addConstraint softwareUpdate
tputs $channel trusted\n
} else {
tputs $channel untrusted\n
}
}
proc checkForStrongName { channel } {
tputs $channel "---- checking for strong name... "
if {[catch {object invoke Interpreter.GetActive GetStrongName} \
strongName] == 0 && \
[string length $strongName] > 0} then {
................................................................................
checkForVersion checkForCommand checkForFile checkForNativeCode \
checkForTip127 checkForTip194 checkForTip241 checkForTip285 \
checkForTip405 checkForPerformance checkForTiming checkForInteractive \
checkForSymbols checkForLogFile checkForNetwork checkForCompileOption \
checkForInteractiveCommand checkForWindowsCommandProcessor \
checkForUserInteraction checkForTclOptions checkForTestConfiguration \
checkForTestSuffix checkForVariable checkForScriptLibrary \
checkForFossil] 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"}]
}
|
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | |
939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 .... 1129 1130 1131 1132 1133 1134 1135 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 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 .... 2379 2380 2381 2382 2383 2384 2385 2386 2387 2388 2389 2390 2391 2392 2393 2394 2395 2396 2397 2398 2399 |
addConstraint performance
tputs $channel yes\n
} else {
tputs $channel no\n
}
}
proc checkForStackIntensive { channel } {
tputs $channel "---- checking for stack intensive testing... "
#
# NOTE: Are we allowed to do stack intensive testing?
#
if {![info exists ::no(stackIntensive)]} then {
addConstraint stackIntensive
tputs $channel yes\n
} else {
tputs $channel no\n
}
}
proc checkForInteractive { channel } {
tputs $channel "---- checking for interactive user... "
#
# NOTE: Is there an interactive user?
#
................................................................................
addConstraint softwareUpdate
tputs $channel trusted\n
} else {
tputs $channel untrusted\n
}
}
proc checkForManagedDebuggingAssistants { channel } {
set fileName [file normalize [appendArgs [info nameofexecutable] \
.mda.config]]
tputs $channel [appendArgs \
"---- checking for managed debugging assistants enabled via \"" \
$fileName "\"... "]
if {[file exists $fileName]} then {
#
# NOTE: Since the System.Xml assembly may not be loaded, wrap the
# detection in a [catch] block.
#
if {[catch {
#
# NOTE: Create and load an XML document based on the data from the
# MDA configuration file associated with the executable that
# started this process.
#
set document [object create -alias System.Xml.XmlDocument]
$document LoadXml [readFile $fileName]
#
# NOTE: Setup the XML namespace manager for use when using XPath
# to query the XML document.
#
set nameTable [$document NameTable]
set namespaceManager [object create \
-alias System.Xml.XmlNamespaceManager $nameTable]
$namespaceManager AddNamespace mda \
http://schemas.microsoft.com/CLR/2004/10/mda
#
# NOTE: Select all nodes underneath the location where they should
# reside in the MDA configuration XML document.
#
set nodes [$document SelectNodes \
/mda:mdaConfig/mda:assistants/* $namespaceManager]
#
# NOTE: Populate the local result variable with the names of
# all the XML nodes found.
#
set names [object lmap -alias node $nodes {
$node Name
}]
}] == 0} then {
#
# NOTE: Ok, the XML configuration file was loaded and parsed
# correctly, see if any managed debugging assistants were
# found enabled within it.
#
if {[info exists names] && [llength $names] > 0} then {
#
# NOTE: Add a test constraint for each managed debugging
# assistant that appears to be enabled.
#
addConstraint mda
foreach name $names {
addConstraint [appendArgs mda. $name]
}
#
# NOTE: Save the list of managed debugging assistants for
# later use by the test suite.
#
set ::test_mdas $names
#
# NOTE: Yes, it appears that at least one managed debugging
# assistant is enabled.
#
tputs $channel [appendArgs "yes (" $names ")\n"]
#
# NOTE: We are done here, return now.
#
return
}
}
}
tputs $channel no\n
}
proc checkForStrongName { channel } {
tputs $channel "---- checking for strong name... "
if {[catch {object invoke Interpreter.GetActive GetStrongName} \
strongName] == 0 && \
[string length $strongName] > 0} then {
................................................................................
checkForVersion checkForCommand checkForFile checkForNativeCode \
checkForTip127 checkForTip194 checkForTip241 checkForTip285 \
checkForTip405 checkForPerformance checkForTiming checkForInteractive \
checkForSymbols checkForLogFile checkForNetwork checkForCompileOption \
checkForInteractiveCommand checkForWindowsCommandProcessor \
checkForUserInteraction checkForTclOptions checkForTestConfiguration \
checkForTestSuffix checkForVariable checkForScriptLibrary \
checkForStackIntensive checkForFossil] 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.
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
....
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
|
#
# NOTE: Has managed debugger testing support been disabled?
#
if {![info exists no(managedDebugger)]} then {
checkForManagedDebugger $test_channel
}
#
# NOTE: Has script debugger testing support been disabled?
#
if {![info exists no(scriptDebugger)]} then {
#
# NOTE: For tests "debug-1.1", "debug-2.1", "debug-3.1", and
# "debug-4.1".
................................................................................
if {![info exists no(scriptLibrary)]} then {
checkForScriptLibrary $test_channel
}
if {![info exists no(tclOptions)]} then {
checkForTclOptions $test_channel
}
if {![info exists no(windowsCommandProcessor)]} then {
checkForWindowsCommandProcessor $test_channel cmd.exe
}
if {![info exists no(fossil)]} then {
checkForFossil $test_channel
|
>
>
>
>
>
>
>
>
>
>
>
>
|
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
....
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
|
#
# NOTE: Has managed debugger testing support been disabled?
#
if {![info exists no(managedDebugger)]} then {
checkForManagedDebugger $test_channel
}
#
# NOTE: Has managed debugging assistants testing support been
# disabled?
#
if {![info exists no(managedDebuggingAssistants)]} then {
checkForManagedDebuggingAssistants $test_channel
}
#
# NOTE: Has script debugger testing support been disabled?
#
if {![info exists no(scriptDebugger)]} then {
#
# NOTE: For tests "debug-1.1", "debug-2.1", "debug-3.1", and
# "debug-4.1".
................................................................................
if {![info exists no(scriptLibrary)]} then {
checkForScriptLibrary $test_channel
}
if {![info exists no(tclOptions)]} then {
checkForTclOptions $test_channel
}
if {![info exists no(stackIntensive)]} then {
checkForStackIntensive $test_channel
}
if {![info exists no(windowsCommandProcessor)]} then {
checkForWindowsCommandProcessor $test_channel cmd.exe
}
if {![info exists no(fossil)]} then {
checkForFossil $test_channel
|
Changes to Tests/tkt-ae5267b863.eagle.
16
17
18
19
20
21
22
23
24
25
26
27
28
29
...
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
###############################################################################
package require System.Data.SQLite.Test
runSQLiteTestPrologue
###############################################################################
runTest {test tkt-ae5267b863-1.1 {segfault during command GC} -setup {
setupDb [set fileName tkt-ae5267b863-1.1.db]
} -body {
set id [object invoke Interpreter.GetActive NextId]
set dataSource [file join [getDatabaseDirectory] $fileName]
set sql(1) { \
................................................................................
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} Main
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result code results errors sql dataSource id db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -match \
regexp -result {^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
>
>
>
>
|
|
|
|
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
...
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
############################################################################### package require System.Data.SQLite.Test runSQLiteTestPrologue ############################################################################### # # NOTE: For some reason, this test does not play nicely when all the managed # debugging assistants are enabled. # runTest {test tkt-ae5267b863-1.1 {segfault during command GC} -setup { setupDb [set fileName tkt-ae5267b863-1.1.db] } -body { set id [object invoke Interpreter.GetActive NextId] set dataSource [file join [getDatabaseDirectory] $fileName] set sql(1) { \ ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors sql dataSource id db fileName } -constraints [fixConstraints {eagle monoBug28 command.sql compile.DATA\ SQLite System.Data.SQLite !mda}] -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |