System.Data.SQLite

Check-in [179f0629be]
Login

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

Overview
Comment:Modify test suite initialization to work without the 'object' command, if necessary.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 179f0629be5f99ccf4de9ca0fc45ff216993a55b
User & Date: mistachkin 2015-04-08 22:03:45.968
Context
2015-04-08
23:12
Modify the test suite itself to work without the 'object' command, if necessary. check-in: 673875e370 user: mistachkin tags: trunk
22:03
Modify test suite initialization to work without the 'object' command, if necessary. check-in: 179f0629be user: mistachkin tags: trunk
21:36
Update Eagle script library in externals to the latest trunk code. check-in: 85b231175b user: mistachkin tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to Externals/Eagle/lib/Eagle1.0/vendor.eagle.
︙︙
126
127
128
129
130
131
132

133


















134
135
136
137
138
139
140

            #
            lappend ::env(EAGLELIBPATH) $dir2

            #
            # NOTE: Force Eagle to rebuild the auto-path list for the current
            #       interpreter right now.
            #

            object invoke Utility RefreshAutoPathList true


















          }

          #
          # NOTE: We are done, return success.
          #
          return true
        }








>
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>








126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159

            #
            lappend ::env(EAGLELIBPATH) $dir2

            #
            # NOTE: Force Eagle to rebuild the auto-path list for the current
            #       interpreter right now.
            #
            if {[catch {
              object invoke Utility RefreshAutoPathList true
            }]} then {
              #
              # NOTE: Ok, maybe the [object] command is not available.  Rescan
              #       the package indexes using the [package scan] sub-command
              #       in that case.  The directories within EAGLELIBPATH will
              #       not be added to the auto-path; however, all the package
              #       indexes and their associated packages will be available.
              #
              if {!$quiet} then {
                catch {
                  tqputs $channel [appendArgs \
                      "---- unable to refresh auto-path list, scanning \"" \
                      $::env(EAGLELIBPATH) "\" instead...\n"]
                }
              }

              eval package scan -host -normal -refresh -- $::env(EAGLELIBPATH)
            }
          }

          #
          # NOTE: We are done, return success.
          #
          return true
        }
︙︙
158
159
160
161
162
163
164

165
166
167
168
169
170
171
172
173
174







175
176
177
178
179
180
181

      #
      # NOTE: Directory not found, return failure.
      #
      return false
    }

    proc setupInterpreterTestPath { channel dir quiet } {

      set testPath [object invoke -flags +NonPublic Interpreter.GetActive \
          TestPath]

      if {$dir ne $testPath} then {
        object invoke -flags +NonPublic Interpreter.GetActive TestPath $dir

        if {!$quiet} then {
          catch {
            tqputs $channel [appendArgs \
                "---- set interpreter test path to \"" $dir \"\n]







          }
        }
      }
    }

    #
    # NOTE: Check for any overridden settings that may have been specified via








>
|
|

|
|

|
|
|
|
>
>
>
>
>
>
>








177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208

      #
      # NOTE: Directory not found, return failure.
      #
      return false
    }

    proc setupInterpreterTestPath { channel dir quiet } {
      if {[llength [info commands object]] > 0} then {
        set testPath [object invoke -flags +NonPublic Interpreter.GetActive \
            TestPath]

        if {$dir ne $testPath} then {
          object invoke -flags +NonPublic Interpreter.GetActive TestPath $dir

          if {!$quiet} then {
            catch {
              tqputs $channel [appendArgs \
                  "---- set interpreter test path to \"" $dir \"\n]
            }
          }
        }
      } else {
        if {!$quiet} then {
          catch {
            tqputs $channel "---- cannot set interpreter test path\n"
          }
        }
      }
    }

    #
    # NOTE: Check for any overridden settings that may have been specified via
︙︙