Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Update Eagle script library in externals. Also, add explicit thread cleanup to the stress test. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
4d797d64ecb36ce08ac305b50ff986f0 |
| User & Date: | mistachkin 2012-10-16 18:57:41 |
Context
|
2012-10-18
| ||
| 16:51 | Improve automatic detection of the sqlite3_close_v2 function when compiled to use the standard SQLite library. check-in: cf55a3e9b9 user: mistachkin tags: trunk | |
|
2012-10-16
| ||
| 18:57 | Update Eagle script library in externals. Also, add explicit thread cleanup to the stress test. check-in: 4d797d64ec user: mistachkin tags: trunk | |
| 16:45 | Several fixes and adjustments to the stress test and threading test. check-in: 1814dad245 user: mistachkin tags: trunk | |
Changes
Changes to Externals/Eagle/lib/Test1.0/constraints.eagle.
56
57
58
59
60
61
62
63
64
65
66
67
68
69
....
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
|
#
foreach constraint $constraints {
addConstraint $constraint
}
}
}
}
proc checkForVariable { channel name {notEmpty true} {constraint ""} } {
tputs $channel [appendArgs "---- checking for variable \"" $name \
"\"... "]
#
# NOTE: First, normalize the variable name to be in the global scope.
................................................................................
checkForEagle checkForGaruda checkForShell checkForDebug checkForTk \
checkForVersion checkForCommand checkForFile checkForNativeCode \
checkForTip127 checkForTip194 checkForTip241 checkForTip285 \
checkForPerformance checkForTiming checkForInteractive checkForSymbols \
checkForLogFile checkForNetwork checkForCompileOption \
checkForWindowsCommandProcessor checkForUserInteraction \
checkForTclOptions checkForTestConfiguration checkForVariable \
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"}]
}
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
|
56
57
58
59
60
61
62
63
64
65
66
67
68
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
....
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
|
#
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.
#
if {[info exists ::tcl_library] && \
[string length $::tcl_library] > 0} then {
#
# NOTE: Now see if the script library is external or embedded.
#
if {[file isdirectory $::tcl_library]} then {
#
# NOTE: Yes, it appears to be a directory name, which should
# mean that the necessary files are physically contained
# within it.
#
addConstraint tcl_library_external
tputs $channel "yes (external)\n"
#
# NOTE: We are done here, return now.
#
return
} elseif {[file isfile $::tcl_library]} then {
#
# NOTE: Yes, it appears to be a file name, which should mean
# that the necessary files are physically embedded within
# it.
#
addConstraint tcl_library_embedded
tputs $channel "yes (embedded)\n"
#
# NOTE: We are done here, return now.
#
return
}
}
tputs $channel no\n
}
proc checkForVariable { channel name {notEmpty true} {constraint ""} } {
tputs $channel [appendArgs "---- checking for variable \"" $name \
"\"... "]
#
# NOTE: First, normalize the variable name to be in the global scope.
................................................................................
checkForEagle checkForGaruda checkForShell checkForDebug checkForTk \
checkForVersion checkForCommand checkForFile checkForNativeCode \
checkForTip127 checkForTip194 checkForTip241 checkForTip285 \
checkForPerformance checkForTiming checkForInteractive checkForSymbols \
checkForLogFile checkForNetwork checkForCompileOption \
checkForWindowsCommandProcessor checkForUserInteraction \
checkForTclOptions checkForTestConfiguration 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"}]
}
|
Changes to Externals/Eagle/lib/Test1.0/prologue.eagle.
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
....
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
|
checkForObjectMember $test_channel Eagle._Tests.Default \
*TestAddNamedFunction*
checkForObjectMember $test_channel Eagle._Tests.Default \
*TestRemoveNamedFunction*
#
# NOTE: For test "interp-1.18".
#
checkForObjectMember $test_channel Eagle._Tests.Default \
*TestAddNamedFunction2*
}
#
# NOTE: Has write-box testing support been disabled?
................................................................................
#
# 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(tclOptions)]} then {
checkForTclOptions $test_channel
}
if {![info exists no(windowsCommandProcessor)]} then {
checkForWindowsCommandProcessor $test_channel cmd.exe
|
|
>
>
>
>
|
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
....
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
|
checkForObjectMember $test_channel Eagle._Tests.Default \
*TestAddNamedFunction*
checkForObjectMember $test_channel Eagle._Tests.Default \
*TestRemoveNamedFunction*
#
# NOTE: For test "interp-1.19".
#
checkForObjectMember $test_channel Eagle._Tests.Default \
*TestAddNamedFunction2*
}
#
# NOTE: Has write-box testing support been disabled?
................................................................................
#
# 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
}
if {![info exists no(windowsCommandProcessor)]} then {
checkForWindowsCommandProcessor $test_channel cmd.exe
|
Changes to Tests/stress.eagle.
118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 ... 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 .... 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 .... 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 |
proc delayTest { {extra 0} } {
after [expr {int((rand() * 1000) + $extra)}]
}
#############################################################################
proc showTest { indicator {wait false} } {
tputs $::test_channel $indicator
append ::indicators $indicator
delayTest $::count(2)
}
#############################################################################
................................................................................
#
if {$::exitOnFail} then {
set level [expr {[info level] - 1}]
tputs $::test_channel [appendArgs \
\n [info level $level] ": " \n\t $error \n]
exit Failure
} else {
tputs $::test_channel $indicator
if {![info exists ::failures($indicator)]} then {
set ::failures($indicator) 0
}
................................................................................
}
foreach index(1) [list Start Join] {
foreach index(2) [array names thread] {
$thread($index(2)) $index(1)
}
}
unset -nocomplain thread status; doneTest
}
#############################################################################
foreach index(0) [split $indicators ""] {
................................................................................
#
# NOTE: The overall test result is the total number of failures (i.e.
# "unexpected errors") encountered during a workload iteration.
#
expr {[array size failures] > 0 ? \
[expr [join [array values failures] +]] : 0}
} -cleanup {
rename freeMem ""
rename useMem ""
rename allocMem ""
rename failTest ""
rename doneTest ""
rename showTest ""
rename delayTest ""
|
| | > > > > > > > > > > > > > > |
118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 ... 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 .... 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 .... 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 |
proc delayTest { {extra 0} } {
after [expr {int((rand() * 1000) + $extra)}]
}
#############################################################################
proc showTest { indicator } {
tputs $::test_channel $indicator
append ::indicators $indicator
delayTest $::count(2)
}
#############################################################################
................................................................................
#
if {$::exitOnFail} then {
set level [expr {[info level] - 1}]
tputs $::test_channel [appendArgs \
\n [info level $level] ": " \n\t $error \n]
exit failure
} else {
tputs $::test_channel $indicator
if {![info exists ::failures($indicator)]} then {
set ::failures($indicator) 0
}
................................................................................
}
foreach index(1) [list Start Join] {
foreach index(2) [array names thread] {
$thread($index(2)) $index(1)
}
}
foreach index(1) [array names thread] {
if {[info exists thread($index(1))] && \
[cleanupThread $thread($index(1))]} then {
unset -nocomplain thread($index(1))
}
}
unset -nocomplain thread status; doneTest
}
#############################################################################
foreach index(0) [split $indicators ""] {
................................................................................
#
# NOTE: The overall test result is the total number of failures (i.e.
# "unexpected errors") encountered during a workload iteration.
#
expr {[array size failures] > 0 ? \
[expr [join [array values failures] +]] : 0}
} -cleanup {
foreach index(0) [array names thread] {
if {[info exists thread($index(0))] && \
[cleanupThread $thread($index(0))]} then {
unset -nocomplain thread($index(0))
}
}
rename freeMem ""
rename useMem ""
rename allocMem ""
rename failTest ""
rename doneTest ""
rename showTest ""
rename delayTest ""
|