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

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

Overview
Comment:Adjust the vendor-specific setup script (for Eagle) to allow it to be successfully evaluated using a 'safe' interpreter.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: a4a1d80b103128a7850ab9c95884744dc549bb27
User & Date: mistachkin 2014-04-22 06:48:22
Context
2014-04-22
20:07
Improve documentation of the build process. check-in: 32ea9b99f9 user: mistachkin tags: trunk
06:48
Adjust the vendor-specific setup script (for Eagle) to allow it to be successfully evaluated using a 'safe' interpreter. check-in: a4a1d80b10 user: mistachkin tags: trunk
2014-04-21
20:11
Add SetChunkSize method to the SQLiteConnection class. Pursuant to [d1c008fa0a]. check-in: 146cb55f1e user: mistachkin tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

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

   193    193       # NOTE: Set the name of the running test suite, if necessary.
   194    194       #
   195    195       if {![info exists test_suite]} then {
   196    196         set test_suite "System.Data.SQLite Test Suite for Eagle"
   197    197       }
   198    198   
   199    199       #
   200         -    # NOTE: This variable will contain the name of the directory containing the
   201         -    #       vendor-specific testing infrastructure.  If the variable does not
   202         -    #       already exist, create it; otherwise, it has been overridden and the
   203         -    #       existing value should be left intact.
          200  +    # NOTE: When being evaluated in a "safe" interpreter, some steps must be
          201  +    #       skipped due to missing commands and/or sub-commands.
   204    202       #
   205         -    set have_vendor_directory [info exists vendor_directory]
          203  +    if {![interp issafe]} then {
          204  +      #
          205  +      # NOTE: This variable will contain the name of the directory containing
          206  +      #       the vendor-specific testing infrastructure.  If the variable does
          207  +      #       not already exist, create it; otherwise, it has been overridden
          208  +      #       and the existing value should be left intact.
          209  +      #
          210  +      set have_vendor_directory [info exists vendor_directory]
          211  +
          212  +      if {!$have_vendor_directory} then {
          213  +        set vendor_directory ""
          214  +      }
   206    215   
   207         -    if {!$have_vendor_directory} then {
   208         -      set vendor_directory ""
   209         -    }
          216  +      #
          217  +      # NOTE: This procedure will attempt to find the vendor-specific testing
          218  +      #       infrastructure directory and add it to the auto-path for the
          219  +      #       current interpreter.  Normally, this will also set the variable
          220  +      #       created above to point to the directory added to the auto-path;
          221  +      #       however, this will not be done if the variable was not created
          222  +      #       by us.
          223  +      #
          224  +      addTestSuiteToAutoPath stdout [expr {$have_vendor_directory ? "" : \
          225  +          "vendor_directory"}] false
   210    226   
   211         -    #
   212         -    # NOTE: This procedure will attempt to find the vendor-specific testing
   213         -    #       infrastructure directory and add it to the auto-path for the
   214         -    #       current interpreter.  Normally, this will also set the variable
   215         -    #       created above to point to the directory added to the auto-path;
   216         -    #       however, this will not be done if the variable was not created
   217         -    #       by us.
   218         -    #
   219         -    addTestSuiteToAutoPath stdout [expr {$have_vendor_directory ? "" : \
   220         -        "vendor_directory"}] false
          227  +      unset have_vendor_directory
   221    228   
   222         -    unset have_vendor_directory
   223         -
   224         -    #
   225         -    # NOTE: If we actually found a vendor-specific testing infrastructure
   226         -    #       directory then modify the TestPath property of the current
   227         -    #       interpreter to point directly to it.
   228         -    #
   229         -    if {[string length $vendor_directory] > 0} then {
   230         -      setupInterpreterTestPath stdout $vendor_directory false
          229  +      #
          230  +      # NOTE: If we actually found a vendor-specific testing infrastructure
          231  +      #       directory then modify the TestPath property of the current
          232  +      #       interpreter to point directly to it.
          233  +      #
          234  +      if {[string length $vendor_directory] > 0} then {
          235  +        setupInterpreterTestPath stdout $vendor_directory false
          236  +      }
   231    237       }
   232    238   
   233    239       #
   234    240       # HACK: Prevent the Eagle core test suite infrastructure from checking
   235    241       #       test constraints that are time-consuming and/or most likely to
   236    242       #       be superfluous to third-party test suites (i.e. those that are
   237    243       #       not testing the Eagle core library itself).