System.Data.SQLite

Check-in [9e4970c6e2]
Login

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

Overview
Comment:Add DateTime helper procedure to the test suite infrastructure.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 9e4970c6e20bd3374c1cc209a756a91ce1e1284d
User & Date: mistachkin 2016-06-21 21:52:48.231
Context
2016-06-22
03:13
Cleanup and simplify the tests for ticket [a7d04fb111] and make them work without assuming a particular time zone. check-in: 448185cbf9 user: mistachkin tags: trunk
2016-06-21
21:52
Add DateTime helper procedure to the test suite infrastructure. check-in: 9e4970c6e2 user: mistachkin tags: trunk
20:07
Update a test suite infrastructure procedure to account for a breaking change in Eagle beta 36. check-in: 77b9528eea user: mistachkin tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to lib/System.Data.SQLite/common.eagle.
1823
1824
1825
1826
1827
1828
1829


























1830
1831
1832
1833
1834
1835
1836
        #       System.Data.SQLite, and suitable for round-tripping with the
        #       DateTime class of the framework.  If this value is changed,
        #       various tests may fail.
        #
        return "yyyy-MM-dd HH:mm:ss.FFFFFFFK"
      }
    }



























    proc getProperties { object varName } {
      upvar 1 $varName properties

      set count 0
      set names [list]








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







1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
        #       System.Data.SQLite, and suitable for round-tripping with the
        #       DateTime class of the framework.  If this value is changed,
        #       various tests may fail.
        #
        return "yyyy-MM-dd HH:mm:ss.FFFFFFFK"
      }
    }

    proc getDateTimeTicks { value {local ""} {default ""} } {
      if {[string length $value] == 0} then {
        return $default
      }

      if {[catch {
        set dateTime [object invoke -create DateTime ParseExact \
            $value [getDateTimeFormat] null AdjustToUniversal]
      }]} then {
        return $default
      }

      if {[string is boolean -strict $local]} then {
        set dateTime [object invoke -create DateTime SpecifyKind \
            $dateTime Utc]
      } else {
        return [object invoke $dateTime Ticks]
      }

      if {$local} then {
        return [object invoke $dateTime ToLocalTime.Ticks]
      } else {
        return [object invoke $dateTime ToUniversalTime.Ticks]
      }
    }

    proc getProperties { object varName } {
      upvar 1 $varName properties

      set count 0
      set names [list]