Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Update Eagle script library 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: |
c990e47c5f706d69719e86c3d8b3949f |
| User & Date: | mistachkin 2013-12-30 21:58:20 |
Context
|
2013-12-31
| ||
| 01:15 | Fix one missed instance of changing the version from 1.0.90.0 to 1.0.91.0. check-in: 94839694e1 user: mistachkin tags: trunk | |
|
2013-12-30
| ||
| 21:58 | Update Eagle script library in externals to the latest trunk code. check-in: c990e47c5f user: mistachkin tags: trunk | |
| 21:55 | Support reading all 'configuration' settings from an XML configuration file. Refactor native library pre-loading code to be more flexible. Modify native library pre-loader to support searching for the SQLite native library in more than one location. Bump all versions to 1.0.91.0. Update version history docs. check-in: 0e5138d252 user: mistachkin tags: trunk | |
Changes
Changes to Externals/Eagle/lib/Eagle1.0/test.eagle.
196 197 198 199 200 201 202 203 204 205 206 207 208 209 ... 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 ... 981 982 983 984 985 986 987 988 989 990 991 992 993 994 .... 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 .... 2690 2691 2692 2693 2694 2695 2696 2697 2698 2699 2700 2701 2702 2703 2704 2705 2706 2707 2708 2709 2710 2711 2712 2713 2714 2715 2716 2717 |
set result [join [split $result] " && "]
}
}
}
return $result
}
proc testArrayGet { varName {integer false} } {
#
# NOTE: Returns the results of [array get] in a well-defined order.
#
upvar 1 $varName array
................................................................................
# identified by the name provided by the caller.
#
upvar 1 $varName array
#
# TODO: Add more support for standard tcltest options here.
#
set options [list -configuration -constraints -exitOnComplete -file \
-logFile -machine -match -no -notFile -platform -postTest -preTest \
-randomOrder -skip -stopOnFailure -suffix -suite -tclsh -threshold]
foreach {name value} $args {
#
# NOTE: Use the [tqputs] command here just in case the test log file
# has not been setup yet (i.e. by default, this procedure is
................................................................................
}
proc isRandomOrder {} {
return [expr {[info exists ::test_random_order] && \
[string is boolean -strict $::test_random_order] && \
$::test_random_order}]
}
proc isStopOnFailure {} {
return [expr {[info exists ::test_stop_on_failure] && \
[string is boolean -strict $::test_stop_on_failure] && \
$::test_stop_on_failure}]
}
................................................................................
#
upvar 1 $filesVarName fileNames
if {$count > 0 && \
[lsearch -exact $fileNames [file tail $fileName]] == -1} then {
lappend fileNames [file tail $fileName]
}
}
proc formatList { list {default ""} {columns 1} } {
if {[catch {
set result ""
set count 1
................................................................................
tputs tlog getSoftwareRegistryKey haveConstraint addConstraint \
haveOrAddConstraint getConstraints removeConstraint fixConstraints \
calculateBogoCops calculateRelativePerformance formatTimeStamp \
formatElapsedTime sourceIfValid processTestArguments \
getTclShellFileName getTemporaryPath getFiles getTestFiles \
getTestRunId getTestLogId getTestLog getTestSuite getTestMachine \
getTestPlatform getTestConfiguration getTestSuffix testExec \
testClrExec execTestShell isRandomOrder isStopOnFailure \
isExitOnComplete returnInfoScript runTestPrologue runTestEpilogue \
hookPuts unhookPuts runTest testArrayGet testShim tsource \
recordTestStatistics reportTestStatistics formatList formatListAsDict \
pathToRegexp inverseLsearchGlob removePathFromFileNames formatDecimal \
clearTestPercent reportTestPercent runAllTests isTestSuiteRunning \
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"}]
}
|
> > > > > > > > > > > > > > > > > > | > > > > > > > > > > > > > > | | | > | | | < |
196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 ... 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 ... 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 .... 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 .... 2722 2723 2724 2725 2726 2727 2728 2729 2730 2731 2732 2733 2734 2735 2736 2737 2738 2739 2740 2741 2742 2743 2744 2745 2746 2747 2748 2749 |
set result [join [split $result] " && "]
}
}
}
return $result
}
proc testDebugBreak {} {
if {[isEagle]} then {
#
# NOTE: In Eagle, simply break into the interactive loop using the
# integrated script debugger.
#
debug break
} else {
#
# NOTE: In native Tcl, attempt to use the TclPro Debugger interface.
# This requires that the TclPro Debugger interface package be
# present somewhere along the auto-path.
#
package require tcldebugger_attach; debugger_init; debugger_break
}
}
proc testArrayGet { varName {integer false} } {
#
# NOTE: Returns the results of [array get] in a well-defined order.
#
upvar 1 $varName array
................................................................................
# identified by the name provided by the caller.
#
upvar 1 $varName array
#
# TODO: Add more support for standard tcltest options here.
#
set options [list \
-breakOnLeak -configuration -constraints -exitOnComplete -file \
-logFile -machine -match -no -notFile -platform -postTest -preTest \
-randomOrder -skip -stopOnFailure -suffix -suite -tclsh -threshold]
foreach {name value} $args {
#
# NOTE: Use the [tqputs] command here just in case the test log file
# has not been setup yet (i.e. by default, this procedure is
................................................................................
}
proc isRandomOrder {} {
return [expr {[info exists ::test_random_order] && \
[string is boolean -strict $::test_random_order] && \
$::test_random_order}]
}
proc isBreakOnLeak {} {
return [expr {[info exists ::test_break_on_leak] && \
[string is boolean -strict $::test_break_on_leak] && \
$::test_break_on_leak}]
}
proc isStopOnFailure {} {
return [expr {[info exists ::test_stop_on_failure] && \
[string is boolean -strict $::test_stop_on_failure] && \
$::test_stop_on_failure}]
}
................................................................................
#
upvar 1 $filesVarName fileNames
if {$count > 0 && \
[lsearch -exact $fileNames [file tail $fileName]] == -1} then {
lappend fileNames [file tail $fileName]
}
#
# NOTE: If we are supposed to break into the debugger whenever a leak is
# detected, do it now.
#
if {$count > 0 && [isBreakOnLeak]} then {
testDebugBreak
}
}
proc formatList { list {default ""} {columns 1} } {
if {[catch {
set result ""
set count 1
................................................................................
tputs tlog getSoftwareRegistryKey haveConstraint addConstraint \
haveOrAddConstraint getConstraints removeConstraint fixConstraints \
calculateBogoCops calculateRelativePerformance formatTimeStamp \
formatElapsedTime sourceIfValid processTestArguments \
getTclShellFileName getTemporaryPath getFiles getTestFiles \
getTestRunId getTestLogId getTestLog getTestSuite getTestMachine \
getTestPlatform getTestConfiguration getTestSuffix testExec \
testClrExec execTestShell isRandomOrder isBreakOnLeak isStopOnFailure \
isExitOnComplete returnInfoScript runTestPrologue runTestEpilogue \
hookPuts unhookPuts runTest testDebugBreak testArrayGet testShim \
tsource recordTestStatistics reportTestStatistics formatList \
formatListAsDict pathToRegexp inverseLsearchGlob \
removePathFromFileNames formatDecimal clearTestPercent \
reportTestPercent runAllTests isTestSuiteRunning 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/prologue.eagle.
258 259 260 261 262 263 264 265 266 267 268 269 270 271 ... 309 310 311 312 313 314 315 316 317 318 319 320 321 322 ... 650 651 652 653 654 655 656 657 658 659 660 661 662 663 |
set test_flags(-notFile) [list l.*.eagle]; # COMPAT: Tcl. set test_flags(-match) [list *]; # default to running all tests. set test_flags(-skip) [list]; # default to skipping no tests. set test_flags(-constraints) [list]; # default to no manual constraints. set test_flags(-logFile) ""; # default to using standard log file naming. set test_flags(-threshold) ""; # default to requiring all tests to pass. set test_flags(-randomOrder) ""; # default to deterministic order. set test_flags(-stopOnFailure) ""; # default to continue on failure. set test_flags(-exitOnComplete) ""; # default to not exit after complete. set test_flags(-preTest) ""; # default to not evaluating anything. set test_flags(-postTest) ""; # default to not evaluating anything. set test_flags(-tclsh) ""; # Tcl shell, default to empty. # ................................................................................ [string is boolean -strict $test_flags(-randomOrder)]} then { # # NOTE: Set the test random-order flag to the one provided by the # command line. # set test_random_order $test_flags(-randomOrder) } if {[info exists test_flags(-stopOnFailure)] && \ [string is boolean -strict $test_flags(-stopOnFailure)]} then { # # NOTE: Set the test stop-on-failure flag to the one provided by the # command line. # ................................................................................ [string is integer -strict $test_threshold] ? \ [appendArgs $test_threshold %] : "<none>"}] \n] tputs $test_channel [appendArgs "---- random order: " \ [expr {[info exists test_random_order] && \ [string is boolean -strict $test_random_order] ? \ $test_random_order : "<none>"}] \n] tputs $test_channel [appendArgs "---- stop on failure: " \ [expr {[info exists test_stop_on_failure] && \ [string is boolean -strict $test_stop_on_failure] ? \ $test_stop_on_failure : "<none>"}] \n] tputs $test_channel [appendArgs "---- exit on complete: " \ |
> > > > > > > > > > > > > > > |
258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 ... 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 ... 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 |
set test_flags(-notFile) [list l.*.eagle]; # COMPAT: Tcl. set test_flags(-match) [list *]; # default to running all tests. set test_flags(-skip) [list]; # default to skipping no tests. set test_flags(-constraints) [list]; # default to no manual constraints. set test_flags(-logFile) ""; # default to using standard log file naming. set test_flags(-threshold) ""; # default to requiring all tests to pass. set test_flags(-randomOrder) ""; # default to deterministic order. set test_flags(-breakOnLeak) ""; # default to continue on leak. set test_flags(-stopOnFailure) ""; # default to continue on failure. set test_flags(-exitOnComplete) ""; # default to not exit after complete. set test_flags(-preTest) ""; # default to not evaluating anything. set test_flags(-postTest) ""; # default to not evaluating anything. set test_flags(-tclsh) ""; # Tcl shell, default to empty. # ................................................................................ [string is boolean -strict $test_flags(-randomOrder)]} then { # # NOTE: Set the test random-order flag to the one provided by the # command line. # set test_random_order $test_flags(-randomOrder) } if {[info exists test_flags(-breakOnLeak)] && \ [string is boolean -strict $test_flags(-breakOnLeak)]} then { # # NOTE: Set the test break-on-leak flag to the one provided by the # command line. # set test_break_on_leak $test_flags(-breakOnLeak) } if {[info exists test_flags(-stopOnFailure)] && \ [string is boolean -strict $test_flags(-stopOnFailure)]} then { # # NOTE: Set the test stop-on-failure flag to the one provided by the # command line. # ................................................................................ [string is integer -strict $test_threshold] ? \ [appendArgs $test_threshold %] : "<none>"}] \n] tputs $test_channel [appendArgs "---- random order: " \ [expr {[info exists test_random_order] && \ [string is boolean -strict $test_random_order] ? \ $test_random_order : "<none>"}] \n] tputs $test_channel [appendArgs "---- break on leak: " \ [expr {[info exists test_break_on_leak] && \ [string is boolean -strict $test_break_on_leak] ? \ $test_break_on_leak : "<none>"}] \n] tputs $test_channel [appendArgs "---- stop on failure: " \ [expr {[info exists test_stop_on_failure] && \ [string is boolean -strict $test_stop_on_failure] ? \ $test_stop_on_failure : "<none>"}] \n] tputs $test_channel [appendArgs "---- exit on complete: " \ |