System.Data.SQLite
Check-in [84821b2787]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Modify unit test infrastructure to better support testing the mixed-mode assembly.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 84821b278792734e086bbf1ac9fe12454d73bec2
User & Date: mistachkin 2011-07-09 21:10:41
Context
2011-07-10
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
20:37
Fix incorrect resource name for SR.resx in the VC 2010 mixed-mode assembly. check-in: 55f56ce508 user: mistachkin tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to Tests/common.eagle.

     5      5   # Written by Joe Mistachkin.
     6      6   # Released to the public domain, use at your own risk!
     7      7   #
     8      8   ###############################################################################
     9      9   
    10     10   if {[isEagle]} then {
    11     11     proc getBuildDirectory {} {
    12         -    return [file join [file dirname $::path] bin \
    13         -        [expr {[haveConstraint imageRuntime40] ? "2010" : "2008"}] \
    14         -        $::test_configuration bin]
           12  +    #
           13  +    # NOTE: See if the "native" runtime option has been added.  If so, use the
           14  +    #       directory for the mixed-mode assembly.  To enable this option via
           15  +    #       the command line, enter a command similar to the following (all on
           16  +    #       one line):
           17  +    #
           18  +    #       EagleShell.exe -preInitialize
           19  +    #         "object invoke Interpreter.GetActive AddRuntimeOption native"
           20  +    #         -file .\path\to\all.eagle
           21  +    #
           22  +    if {[object invoke Interpreter.GetActive HasRuntimeOption native]} then {
           23  +      return [file join [file dirname $::path] bin \
           24  +          [expr {[haveConstraint imageRuntime40] ? "2010" : "2008"}] \
           25  +          [machineToPlatform $::tcl_platform(machine)] $::test_configuration]
           26  +    } else {
           27  +      return [file join [file dirname $::path] bin \
           28  +          [expr {[haveConstraint imageRuntime40] ? "2010" : "2008"}] \
           29  +          $::test_configuration bin]
           30  +    }
    15     31     }
    16     32   
    17     33     proc getBuildFileName { fileName } {
    18     34       return [file nativename \
    19     35           [file join [getBuildDirectory] [file tail $fileName]]]
    20     36     }
    21     37