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: |
9e4970c6e20bd3374c1cc209a756a91c |
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
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] |
︙ | ︙ |