Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Updates to unit test infrastructure. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
1f8786cc73a3dd366792390a6eac4f96 |
User & Date: | mistachkin 2011-07-10 01:48:49.901 |
Context
2011-07-10
| ||
10:39 | Support the ON UPDATE, ON DELETE, and MATCH clause information when generating schema metadata for foreign keys. Partial fix for [b226147b37]. VS designer changes are not yet tested. check-in: 9eb2e81611 user: mistachkin tags: trunk | |
01:48 | Updates to unit test infrastructure. check-in: 1f8786cc73 user: mistachkin tags: trunk | |
2011-07-09
| ||
21:10 | Modify unit test infrastructure to better support testing the mixed-mode assembly. check-in: 84821b2787 user: mistachkin tags: trunk | |
Changes
Changes to Externals/Eagle/Tests/prologue.eagle.
︙ | ︙ | |||
301 302 303 304 305 306 307 308 309 310 311 312 313 314 | tputs $test_channel [appendArgs "---- input encoding: " \ $encoding \n] catch {object invoke Console.OutputEncoding WebName} encoding tputs $test_channel [appendArgs "---- output encoding: " \ $encoding \n] tputs $test_channel [appendArgs "---- starting memory: " \ [formatListAsDict [debug memory]] \n] catch {debug stack true} stack tputs $test_channel [appendArgs "---- starting stack: " \ | > > | 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 | tputs $test_channel [appendArgs "---- input encoding: " \ $encoding \n] catch {object invoke Console.OutputEncoding WebName} encoding tputs $test_channel [appendArgs "---- output encoding: " \ $encoding \n] unset encoding tputs $test_channel [appendArgs "---- starting memory: " \ [formatListAsDict [debug memory]] \n] catch {debug stack true} stack tputs $test_channel [appendArgs "---- starting stack: " \ |
︙ | ︙ |
Changes to Externals/Eagle/lib/Eagle1.0/init.eagle.
︙ | ︙ | |||
665 666 667 668 669 670 671 672 673 674 675 676 677 678 | # # NOTE: Returns non-zero if the logged on user has full administrator # rights on this machine. # return [expr {[info exists ::eagle_platform(administrator)] && \ $::eagle_platform(administrator)}] } proc getPluginFlags { pattern } { foreach loaded [info loaded] { set plugin [lindex $loaded end] if {[regexp -- $pattern $plugin]} then { return [string map [list , " "] \ | > > > > > > > | 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 | # # NOTE: Returns non-zero if the logged on user has full administrator # rights on this machine. # return [expr {[info exists ::eagle_platform(administrator)] && \ $::eagle_platform(administrator)}] } proc hasRuntimeOption { name } { # # NOTE: Returns non-zero if the specified runtime option is set. # return [object invoke Interpreter.GetActive HasRuntimeOption $name] } proc getPluginFlags { pattern } { foreach loaded [info loaded] { set plugin [lindex $loaded end] if {[regexp -- $pattern $plugin]} then { return [string map [list , " "] \ |
︙ | ︙ |
Changes to Tests/basic.eagle.
︙ | ︙ | |||
173 174 175 176 177 178 179 | list $code $results \ [expr {[info exists errors] ? $errors : ""}] \ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} GetReservedWords } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName | | | 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 | list $code $results \ [expr {[info exists errors] ? $errors : ""}] \ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} GetReservedWords } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code dataSource id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA System.Data.SQLite} \ -match regexp -result {^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0\ System#Data#DataTable#\d+$}} ############################################################################### unset -nocomplain testExeFile testLinqExeFile northwindEfDbFile testLinqOutFile |
︙ | ︙ |
Changes to Tests/common.eagle.
︙ | ︙ | |||
11 12 13 14 15 16 17 | proc getBuildDirectory {} { # # NOTE: See if the "native" runtime option has been added. If so, use the # directory for the mixed-mode assembly. To enable this option via # the command line, enter a command similar to the following (all on # one line): # | | < | | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | proc getBuildDirectory {} { # # NOTE: See if the "native" runtime option has been added. If so, use the # directory for the mixed-mode assembly. To enable this option via # the command line, enter a command similar to the following (all on # one line): # # EagleShell.exe -initialize -runtimeOption native # -file .\path\to\all.eagle # if {[hasRuntimeOption native]} then { return [file join [file dirname $::path] bin \ [expr {[haveConstraint imageRuntime40] ? "2010" : "2008"}] \ [machineToPlatform $::tcl_platform(machine)] $::test_configuration] } else { return [file join [file dirname $::path] bin \ [expr {[haveConstraint imageRuntime40] ? "2010" : "2008"}] \ $::test_configuration bin] |
︙ | ︙ |