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

Changes to Tests/tkt-01f20ea55a.eagle.

    30     30   ###############################################################################
    31     31   
    32     32   set instanceValue(0) [object create -alias DateTime $ticksValue(0)]
    33     33   set instanceValue(1) [object create -alias DateTime $ticksValue(1) Utc]
    34     34   
    35     35   ###############################################################################
    36     36   
    37         -set iso8601Value(0) [$instanceValue(0) ToString [getDateTimeFormat]]
    38         -set iso8601Value(1) [$instanceValue(1) ToString [getDateTimeFormat]]
    39         -
    40         -###############################################################################
    41         -
    42     37   runTest {test tkt-01f20ea55a-1.1 {DateTimeKind with DataTable} -setup {
    43     38     proc dateTimeValueCallback { dataTable dataRow index value } {
    44     39       if {[object isoftype $value DateTime]} then {
    45     40         return [list [$value Kind] [$value ToString [getDateTimeFormat]]]
    46     41       } else {
    47     42         continue
    48     43       }
................................................................................
    67     62     $command CommandText {SELECT x, y FROM t1 ORDER BY x;}
    68     63   
    69     64     set dataAdapter [object create -alias \
    70     65         System.Data.SQLite.SQLiteDataAdapter $command]
    71     66   
    72     67     set dataTable [object create -alias System.Data.DataTable]
    73     68   
           69  +  set dataColumn(x) [object create -alias System.Data.DataColumn x]
           70  +  set dataColumn(y) [object create -alias System.Data.DataColumn y]
           71  +
           72  +  $dataColumn(y) DataType DateTime; $dataColumn(y) DateTimeMode Utc
           73  +
           74  +  $dataTable Columns.Add $dataColumn(x)
           75  +  $dataTable Columns.Add $dataColumn(y)
           76  +
    74     77     $dataAdapter Fill $dataTable
    75     78     getRowsFromDataTable $dataTable dateTimeValueCallback
    76     79   } -cleanup {
    77         -  unset -nocomplain dataTable dataAdapter command
           80  +  unset -nocomplain dataColumn dataTable dataAdapter command
    78     81   
    79     82     freeDbConnection
    80     83   
    81     84     cleanupDb $fileName
    82     85   
    83     86     unset -nocomplain connection db fileName
    84     87   
    85     88     rename dateTimeValueCallback ""
    86     89   } -constraints {eagle command.object monoBug28 monoBug211 command.sql\
    87     90   compile.DATA SQLite System.Data.SQLite} -result {{{x 1} y} {{x 2} {y\
    88         -{Unspecified {2016-10-01 12:34:56.8765401}}}} {{x 3} {y {Utc {2016-10-01\
    89         -12:34:56.8765401}}}}}}
           91  +{Utc {2016-10-01 12:34:56.8765401Z}}}} {{x 3} {y {Utc {2016-10-01\
           92  +12:34:56.8765401Z}}}}}}
    90     93   
    91     94   ###############################################################################
    92     95   
    93         -unset -nocomplain iso8601Value instanceValue ticksValue rawValue
           96  +unset -nocomplain instanceValue ticksValue rawValue
    94     97   
    95     98   ###############################################################################
    96     99   
    97    100   runSQLiteTestEpilogue
    98    101   runTestEpilogue