System.Data.SQLite
Check-in [c990e47c5f]
Not logged in

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: c990e47c5f706d69719e86c3d8b3949fe1008a7e
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to Externals/Eagle/lib/Eagle1.0/test.eagle.

   196    196             set result [join [split $result] " && "]
   197    197           }
   198    198         }
   199    199       }
   200    200   
   201    201       return $result
   202    202     }
          203  +
          204  +  proc testDebugBreak {} {
          205  +    if {[isEagle]} then {
          206  +      #
          207  +      # NOTE: In Eagle, simply break into the interactive loop using the
          208  +      #       integrated script debugger.
          209  +      #
          210  +      debug break
          211  +    } else {
          212  +      #
          213  +      # NOTE: In native Tcl, attempt to use the TclPro Debugger interface.
          214  +      #       This requires that the TclPro Debugger interface package be
          215  +      #       present somewhere along the auto-path.
          216  +      #
          217  +      package require tcldebugger_attach; debugger_init; debugger_break
          218  +    }
          219  +  }
   203    220   
   204    221     proc testArrayGet { varName {integer false} } {
   205    222       #
   206    223       # NOTE: Returns the results of [array get] in a well-defined order.
   207    224       #
   208    225       upvar 1 $varName array
   209    226   
................................................................................
   441    458       #       identified by the name provided by the caller.
   442    459       #
   443    460       upvar 1 $varName array
   444    461   
   445    462       #
   446    463       # TODO: Add more support for standard tcltest options here.
   447    464       #
   448         -    set options [list -configuration -constraints -exitOnComplete -file \
          465  +    set options [list \
          466  +        -breakOnLeak -configuration -constraints -exitOnComplete -file \
   449    467           -logFile -machine -match -no -notFile -platform -postTest -preTest \
   450    468           -randomOrder -skip -stopOnFailure -suffix -suite -tclsh -threshold]
   451    469   
   452    470       foreach {name value} $args {
   453    471         #
   454    472         # NOTE: Use the [tqputs] command here just in case the test log file
   455    473         #       has not been setup yet (i.e. by default, this procedure is
................................................................................
   981    999     }
   982   1000   
   983   1001     proc isRandomOrder {} {
   984   1002       return [expr {[info exists ::test_random_order] && \
   985   1003                     [string is boolean -strict $::test_random_order] && \
   986   1004                     $::test_random_order}]
   987   1005     }
         1006  +
         1007  +  proc isBreakOnLeak {} {
         1008  +    return [expr {[info exists ::test_break_on_leak] && \
         1009  +                  [string is boolean -strict $::test_break_on_leak] && \
         1010  +                  $::test_break_on_leak}]
         1011  +  }
   988   1012   
   989   1013     proc isStopOnFailure {} {
   990   1014       return [expr {[info exists ::test_stop_on_failure] && \
   991   1015                     [string is boolean -strict $::test_stop_on_failure] && \
   992   1016                     $::test_stop_on_failure}]
   993   1017     }
   994   1018   
................................................................................
  1310   1334       #
  1311   1335       upvar 1 $filesVarName fileNames
  1312   1336   
  1313   1337       if {$count > 0 && \
  1314   1338           [lsearch -exact $fileNames [file tail $fileName]] == -1} then {
  1315   1339         lappend fileNames [file tail $fileName]
  1316   1340       }
         1341  +
         1342  +    #
         1343  +    # NOTE: If we are supposed to break into the debugger whenever a leak is
         1344  +    #       detected, do it now.
         1345  +    #
         1346  +    if {$count > 0 && [isBreakOnLeak]} then {
         1347  +      testDebugBreak
         1348  +    }
  1317   1349     }
  1318   1350   
  1319   1351     proc formatList { list {default ""} {columns 1} } {
  1320   1352       if {[catch {
  1321   1353         set result ""
  1322   1354         set count 1
  1323   1355   
................................................................................
  2690   2722           tputs tlog getSoftwareRegistryKey haveConstraint addConstraint \
  2691   2723           haveOrAddConstraint getConstraints removeConstraint fixConstraints \
  2692   2724           calculateBogoCops calculateRelativePerformance formatTimeStamp \
  2693   2725           formatElapsedTime sourceIfValid processTestArguments \
  2694   2726           getTclShellFileName getTemporaryPath getFiles getTestFiles \
  2695   2727           getTestRunId getTestLogId getTestLog getTestSuite getTestMachine \
  2696   2728           getTestPlatform getTestConfiguration getTestSuffix testExec \
  2697         -        testClrExec execTestShell isRandomOrder isStopOnFailure \
         2729  +        testClrExec execTestShell isRandomOrder isBreakOnLeak isStopOnFailure \
  2698   2730           isExitOnComplete returnInfoScript runTestPrologue runTestEpilogue \
  2699         -        hookPuts unhookPuts runTest testArrayGet testShim tsource \
  2700         -        recordTestStatistics reportTestStatistics formatList formatListAsDict \
  2701         -        pathToRegexp inverseLsearchGlob removePathFromFileNames formatDecimal \
  2702         -        clearTestPercent reportTestPercent runAllTests isTestSuiteRunning \
  2703         -        configureTcltest machineToPlatform getPassPercentage \
  2704         -        getSkipPercentage] false false
         2731  +        hookPuts unhookPuts runTest testDebugBreak testArrayGet testShim \
         2732  +        tsource recordTestStatistics reportTestStatistics formatList \
         2733  +        formatListAsDict pathToRegexp inverseLsearchGlob \
         2734  +        removePathFromFileNames formatDecimal clearTestPercent \
         2735  +        reportTestPercent runAllTests isTestSuiteRunning configureTcltest \
         2736  +        machineToPlatform getPassPercentage getSkipPercentage] false false
  2705   2737   
  2706   2738       ###########################################################################
  2707   2739       ############################## END Tcl ONLY ###############################
  2708   2740       ###########################################################################
  2709   2741     }
  2710   2742   
  2711   2743     #
  2712   2744     # NOTE: Provide the Eagle test package to the interpreter.
  2713   2745     #
  2714   2746     package provide Eagle.Test \
  2715   2747       [expr {[isEagle] ? [info engine PatchLevel] : "1.0"}]
  2716   2748   }
  2717   2749   

Changes to Externals/Eagle/lib/Test1.0/prologue.eagle.

   258    258     set test_flags(-notFile) [list l.*.eagle]; # COMPAT: Tcl.
   259    259     set test_flags(-match) [list *]; # default to running all tests.
   260    260     set test_flags(-skip) [list]; # default to skipping no tests.
   261    261     set test_flags(-constraints) [list]; # default to no manual constraints.
   262    262     set test_flags(-logFile) ""; # default to using standard log file naming.
   263    263     set test_flags(-threshold) ""; # default to requiring all tests to pass.
   264    264     set test_flags(-randomOrder) ""; # default to deterministic order.
          265  +  set test_flags(-breakOnLeak) ""; # default to continue on leak.
   265    266     set test_flags(-stopOnFailure) ""; # default to continue on failure.
   266    267     set test_flags(-exitOnComplete) ""; # default to not exit after complete.
   267    268     set test_flags(-preTest) ""; # default to not evaluating anything.
   268    269     set test_flags(-postTest) ""; # default to not evaluating anything.
   269    270     set test_flags(-tclsh) ""; # Tcl shell, default to empty.
   270    271   
   271    272     #
................................................................................
   309    310           [string is boolean -strict $test_flags(-randomOrder)]} then {
   310    311         #
   311    312         # NOTE: Set the test random-order flag to the one provided by the
   312    313         #       command line.
   313    314         #
   314    315         set test_random_order $test_flags(-randomOrder)
   315    316       }
          317  +
          318  +    if {[info exists test_flags(-breakOnLeak)] && \
          319  +        [string is boolean -strict $test_flags(-breakOnLeak)]} then {
          320  +      #
          321  +      # NOTE: Set the test break-on-leak flag to the one provided by the
          322  +      #       command line.
          323  +      #
          324  +      set test_break_on_leak $test_flags(-breakOnLeak)
          325  +    }
   316    326   
   317    327       if {[info exists test_flags(-stopOnFailure)] && \
   318    328           [string is boolean -strict $test_flags(-stopOnFailure)]} then {
   319    329         #
   320    330         # NOTE: Set the test stop-on-failure flag to the one provided by the
   321    331         #       command line.
   322    332         #
................................................................................
   650    660             [string is integer -strict $test_threshold] ? \
   651    661                 [appendArgs $test_threshold %] : "<none>"}] \n]
   652    662   
   653    663     tputs $test_channel [appendArgs "---- random order: " \
   654    664         [expr {[info exists test_random_order] && \
   655    665             [string is boolean -strict $test_random_order] ? \
   656    666                 $test_random_order : "<none>"}] \n]
          667  +
          668  +  tputs $test_channel [appendArgs "---- break on leak: " \
          669  +      [expr {[info exists test_break_on_leak] && \
          670  +          [string is boolean -strict $test_break_on_leak] ? \
          671  +              $test_break_on_leak : "<none>"}] \n]
   657    672   
   658    673     tputs $test_channel [appendArgs "---- stop on failure: " \
   659    674         [expr {[info exists test_stop_on_failure] && \
   660    675             [string is boolean -strict $test_stop_on_failure] ? \
   661    676                 $test_stop_on_failure : "<none>"}] \n]
   662    677   
   663    678     tputs $test_channel [appendArgs "---- exit on complete: " \