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

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

Overview
Comment:Correction to the new test suite helper procedures.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | customDataTypes
Files: files | file ages | folders
SHA1: fd2ed795c186858f2fc5e4d0a1da8234fc919354
User & Date: mistachkin 2016-06-19 20:17:10
Context
2016-06-19
20:28
When invoking a data reader callback, pass in the method name that was responsible for invoking it. check-in: 5bead76447 user: mistachkin tags: customDataTypes
20:17
Correction to the new test suite helper procedures. check-in: fd2ed795c1 user: mistachkin tags: customDataTypes
08:22
Add some procedures to the test suite infrastructure. check-in: d593d900ac user: mistachkin tags: customDataTypes
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to lib/System.Data.SQLite/common.eagle.

1828
1829
1830
1831
1832
1833
1834


1835



1836
1837
1838
1839
1840
1841
1842
....
1878
1879
1880
1881
1882
1883
1884

1885
1886
1887
1888
1889
1890
1891
      }
    }
 
    proc getProperties { object varName } {
      upvar 1 $varName properties

      set count 0


      set names [object members -membertypes Property -nameonly $object]




      foreach name $names {
        if {[catch {
          object invoke -objectflags +NoDispose $object $name
        } value] == 0} then {
          if {[isObjectHandle $value]} then {
            set error null; object invoke -flags +NonPublic \
................................................................................

        set value [lindex [lindex $properties(objects) 0] end]
        set properties(objects) [lrange $properties(objects) 1 end]
      }

      if {[info exists properties(seenObjects)]} then {
        foreach value $properties(seenObjects) {

          catch {object dispose $value}
        }

        unset properties(seenObjects)
      }
    }
 







>
>
|
>
>
>







 







>







1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
....
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
      }
    }
 
    proc getProperties { object varName } {
      upvar 1 $varName properties

      set count 0

      set names [object members \
          -membertypes Property -nameonly $object]

      eval lappend names [object members \
          -membertypes Field -nameonly $object]

      foreach name $names {
        if {[catch {
          object invoke -objectflags +NoDispose $object $name
        } value] == 0} then {
          if {[isObjectHandle $value]} then {
            set error null; object invoke -flags +NonPublic \
................................................................................

        set value [lindex [lindex $properties(objects) 0] end]
        set properties(objects) [lrange $properties(objects) 1 end]
      }

      if {[info exists properties(seenObjects)]} then {
        foreach value $properties(seenObjects) {
          if {$value eq $object} continue
          catch {object dispose $value}
        }

        unset properties(seenObjects)
      }
    }