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

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

Overview
Comment:Further enhancements to the test suite infrastructure.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | ef6
Files: files | file ages | folders
SHA1:da255bcf7c6e714ad274e59a3ef5deb3e5cc380b
User & Date: mistachkin 2014-01-13 02:16:08
Context
2014-01-13
02:31
Fix comments and formatting. check-in: 2d06ea75cc user: mistachkin tags: ef6
02:16
Further enhancements to the test suite infrastructure. check-in: da255bcf7c user: mistachkin tags: ef6
01:51
Add the testef6 binaries to the test automation setup batch file. check-in: ac75215581 user: mistachkin tags: ef6
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to Tests/common.eagle.

102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
...
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
...
174
175
176
177
178
179
180


181
182
183
184
185
186
187
...
532
533
534
535
536
537
538


539
540
541
542
543
544
545
....
2613
2614
2615
2616
2617
2618
2619






2620
2621
2622
2623
2624
2625
2626
....
2655
2656
2657
2658
2659
2660
2661



2662



2663
2664
2665
2666
2667
2668
2669
....
2871
2872
2873
2874
2875
2876
2877












2878
2879
2880
2881
2882
2883
2884
      if {[info exists ::test_years] && [llength $::test_years] > 0} then {
        #
        # NOTE: Use the specified list of test years.
        #
        return $::test_years
      } else {
        #
        # NOTE: Use the default list of test years.
        #
        return [list 2005 2008 2010 2012 2013]
      }
    }
 
    proc getBuildNetFx {} {
      #
................................................................................
          2012 {
            return netFx45
          }
          2013 {
            return netFx451
          }
          default {
            return ""
          }
        }
      }
    }
 
    proc getBuildPlatform { native } {
      if {[info exists ::test_platform] && \
................................................................................
        #
        return [expr {
          $native ? [machineToPlatform $::tcl_platform(machine)] : ""
        }]
      } else {
        #
        # NOTE: No machine architecture is available, return an empty string.


        #
        return ""
      }
    }
 
    proc getBuildConfiguration {} {
      #
................................................................................
        # NOTE: The release version has been overridden; therefore, use it
        #       verbatim.
        #
        return $::release_version
      } else {
        #
        # NOTE: No release version is available, return an empty string.


        #
        return ""
      }
    }
 
    proc getBuildFileName { fileName {platform ""} } {
      #
................................................................................
              #       legacy tests run with exactly the same set of Managed
              #       Debugging Assistants configured.
              #
              foreach fileName $mdaConfigFileNames {
                tryCopyBinaryFile EagleShell.exe.mda.config "" $fileName
              }







              foreach fileName $externalFileNames {
                tryCopyExternalFile $fileName
              }
            }

            if {![info exists ::no(copySqliteNativeFiles)]} then {
              if {![info exists ::no(copySqliteImplicitFiles)]} then {
................................................................................

          #
          # NOTE: Skip trying to load any files if instructed.
          #
          if {![info exists ::no(loadSqliteFiles)]} then {
            if {![info exists ::no(loadSqliteImplicitFiles)]} then {
              tryLoadAssembly System.Data.SQLite.dll



              tryLoadAssembly System.Data.SQLite.Linq.dll



              tryLoadAssembly System.Data.SQLite.EF6.dll
            }

            if {![info exists ::no(loadSqliteNonImplicitFiles)]} then {
              if {![info exists ::no(loadSqlitePlatformFiles)] && \
                  [string length $platform] > 0} then {
                tryLoadAssembly System.Data.SQLite.dll $platform
................................................................................
        tputs $::test_channel \
            "---- checking for System.Data.SQLite build year... "

        set year [getBuildYear]
        addConstraint [appendArgs buildYear. $year]
        tputs $::test_channel [appendArgs \" $year \"\n]













        #
        # NOTE: Check the current build configuration.  This should normally
        #       be either "Debug" or "Release".
        #
        tputs $::test_channel \
            "---- checking for System.Data.SQLite build configuration... "








|







 







|







 







>
>







 







>
>







 







>
>
>
>
>
>







 







>
>
>

>
>
>







 







>
>
>
>
>
>
>
>
>
>
>
>







102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
...
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
...
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
...
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
....
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
....
2665
2666
2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
....
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
      if {[info exists ::test_years] && [llength $::test_years] > 0} then {
        #
        # NOTE: Use the specified list of test years.
        #
        return $::test_years
      } else {
        #
        # NOTE: Use the default list of test years (i.e. all).
        #
        return [list 2005 2008 2010 2012 2013]
      }
    }
 
    proc getBuildNetFx {} {
      #
................................................................................
          2012 {
            return netFx45
          }
          2013 {
            return netFx451
          }
          default {
            return netFx35; # TODO: Good "fallback" default?
          }
        }
      }
    }
 
    proc getBuildPlatform { native } {
      if {[info exists ::test_platform] && \
................................................................................
        #
        return [expr {
          $native ? [machineToPlatform $::tcl_platform(machine)] : ""
        }]
      } else {
        #
        # NOTE: No machine architecture is available, return an empty string.
        #       It is important to return an empty string here because the
        #       result of this procedure may be used with [file join].
        #
        return ""
      }
    }
 
    proc getBuildConfiguration {} {
      #
................................................................................
        # NOTE: The release version has been overridden; therefore, use it
        #       verbatim.
        #
        return $::release_version
      } else {
        #
        # NOTE: No release version is available, return an empty string.
        #       It is important to return an empty string here because the
        #       result of this procedure may be used with [file join].
        #
        return ""
      }
    }
 
    proc getBuildFileName { fileName {platform ""} } {
      #
................................................................................
              #       legacy tests run with exactly the same set of Managed
              #       Debugging Assistants configured.
              #
              foreach fileName $mdaConfigFileNames {
                tryCopyBinaryFile EagleShell.exe.mda.config "" $fileName
              }

              #
              # NOTE: Copy the external binaries, if any, to the directory that
              #       contains the Eagle shell.  This is typically used to make
              #       sure assemblies referenced by the ones being tested are
              #       available during the testing process.
              #
              foreach fileName $externalFileNames {
                tryCopyExternalFile $fileName
              }
            }

            if {![info exists ::no(copySqliteNativeFiles)]} then {
              if {![info exists ::no(copySqliteImplicitFiles)]} then {
................................................................................

          #
          # NOTE: Skip trying to load any files if instructed.
          #
          if {![info exists ::no(loadSqliteFiles)]} then {
            if {![info exists ::no(loadSqliteImplicitFiles)]} then {
              tryLoadAssembly System.Data.SQLite.dll
            }

            if {![info exists ::no(loadSqliteLinqFiles)]} then {
              tryLoadAssembly System.Data.SQLite.Linq.dll
            }

            if {![info exists ::no(loadSqliteEf6Files)]} then {
              tryLoadAssembly System.Data.SQLite.EF6.dll
            }

            if {![info exists ::no(loadSqliteNonImplicitFiles)]} then {
              if {![info exists ::no(loadSqlitePlatformFiles)] && \
                  [string length $platform] > 0} then {
                tryLoadAssembly System.Data.SQLite.dll $platform
................................................................................
        tputs $::test_channel \
            "---- checking for System.Data.SQLite build year... "

        set year [getBuildYear]
        addConstraint [appendArgs buildYear. $year]
        tputs $::test_channel [appendArgs \" $year \"\n]

        #
        # NOTE: Check the current build .NET Framework.  Basically, this
        #       indicates which version of the .NET Framework is being
        #       by the assembly binaries under test.
        #
        tputs $::test_channel \
            "---- checking for System.Data.SQLite build .NET Framework... "

        set netFx [getBuildNetFx]
        addConstraint [appendArgs buildFramework. $netFx]
        tputs $::test_channel [appendArgs \" $netFx \"\n]

        #
        # NOTE: Check the current build configuration.  This should normally
        #       be either "Debug" or "Release".
        #
        tputs $::test_channel \
            "---- checking for System.Data.SQLite build configuration... "