Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Updates to unit test infrastructure. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
1f8786cc73a3dd366792390a6eac4f96 |
| User & Date: | mistachkin 2011-07-10 01:48:49 |
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 180 181 182 183 184 185 186 187 188 189 190 191 192 |
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 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
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
| |
173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 |
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
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
Changes to Tests/common.eagle.
11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
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 -preInitialize
# "object invoke Interpreter.GetActive AddRuntimeOption native"
# -file .\path\to\all.eagle
#
if {[object invoke Interpreter.GetActive 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]
|
| < | |
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]
|