System.Data.SQLite
Check-in [2381125d29]
Not logged in

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

Overview
Comment:Fix script variable name typo.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 2381125d2979e6581da12602e662d36ff98a45cf
User & Date: mistachkin 2012-09-22 18:56:26
Context
2012-09-23
07:36
Disable the 'Prefer 32-bit' project setting for all Visual Studio 2012 managed EXE projects as this prevents them from working properly on x64. check-in: 83e6d84d01 user: mistachkin tags: trunk
2012-09-22
18:56
Fix script variable name typo. check-in: 2381125d29 user: mistachkin tags: trunk
18:50
Modularize the connection opaque object handle lookup done by several tests. Modify test data-1.34 to use the Enum typed ReturnCode property instead of the Int32 typed ErrorCode property. Improve comments and formatting in the common test suite infrastructure file. check-in: 40e0fb8133 user: mistachkin tags: trunk
Changes
Hide Diffs Unified Diffs Show Whitespace Changes Patch

Changes to Tests/common.eagle.

759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
      #       Eagle internals, great care should be taken to avoid disposing of
      #       this object or otherwise putting it into an invalid state.
      #
      if {[info exists db]} then {
        if {[catch {
                object invoke -flags +NonPublic -objectflags +NoDispose \
                -alias Interpreter.GetActive.connections Item $db} \
                connection] == 0} then {
          #
          # NOTE: Success, return the opaque object handle.
          #
          return $connection
        } else {
          #
          # NOTE: Failure, report why.
          #
          tputs $::test_channel [appendArgs \
              "==== WARNING: failed to get connection handle for database \"" \
              $db "\", error: " \n\t $error \n]
        }
      }
    }
 
    proc freeDbConnection { {varName connection} } {
      #
      # NOTE: Refer to the specified variable (e.g. "connection") in the context







|



|






|







759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
      #       Eagle internals, great care should be taken to avoid disposing of
      #       this object or otherwise putting it into an invalid state.
      #
      if {[info exists db]} then {
        if {[catch {
                object invoke -flags +NonPublic -objectflags +NoDispose \
                -alias Interpreter.GetActive.connections Item $db} \
                result] == 0} then {
          #
          # NOTE: Success, return the opaque object handle.
          #
          return $result
        } else {
          #
          # NOTE: Failure, report why.
          #
          tputs $::test_channel [appendArgs \
              "==== WARNING: failed to get connection handle for database \"" \
              $db "\", error: " \n\t $result \n]
        }
      }
    }
 
    proc freeDbConnection { {varName connection} } {
      #
      # NOTE: Refer to the specified variable (e.g. "connection") in the context