System.Data.SQLite

Check-in [5419324a5d]
Login

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

Overview
Comment:Test constraint fixes.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 5419324a5d0d7a01b3aa991e83e7534001a97e26
User & Date: mistachkin 2018-02-27 16:32:43.913
Context
2018-02-27
17:04
Modify experimental WaitForEnlistmentReset method to require a nullable boolean parameter for the value to return when the connection is disposed. check-in: 301207ad6d user: mistachkin tags: trunk
16:32
Test constraint fixes. check-in: 5419324a5d user: mistachkin tags: trunk
16:32
Support using a non-empty build configuration suffix when compiling/running on Mono. check-in: 8cc6eb1da7 user: mistachkin tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to Tests/basic.eagle.
︙︙
4835
4836
4837
4838
4839
4840
4841

4842
4843
4844
4845
4846
4847
4848
4849

  }

  unset -nocomplain result exception errCode errCodes
  unset -nocomplain connection db fileName
} -constraints {eagle command.object monoBug28\
compile.DATA defineConstant.System.Data.SQLite.INTEROP_TEST_EXTENSION\
command.sql SQLite System.Data.SQLite} -constraintExpression \

{[package vcompare $core_library_version 3.23] >= 0} -result {{0 {}} {0 {}} {0\
{}} Error {SQL logic error ==> SQL logic error} IoErr {disk I/O error ==> disk\
I/O error} CantOpen {unable to open database file ==> unable to open database\
file} Notice {notification message ==> notification message} Warning {warning\
message ==> warning message} 231 {SQL logic error ==> unknown error} {0 {}}\
Ok_Load_Permanently {not an error ==> not an error} Error_Retry {SQL logic\
error ==> SQL logic error} IoErr_Short_Read {disk I/O error ==> disk I/O error}\
CantOpen_NoTempDir {unable to open database file ==> unable to open database\








>
|








4835
4836
4837
4838
4839
4840
4841
4842
4843
4844
4845
4846
4847
4848
4849
4850

  }

  unset -nocomplain result exception errCode errCodes
  unset -nocomplain connection db fileName
} -constraints {eagle command.object monoBug28\
compile.DATA defineConstant.System.Data.SQLite.INTEROP_TEST_EXTENSION\
command.sql SQLite System.Data.SQLite} -constraintExpression \
{[info exists core_library_version] && \
[package vcompare $core_library_version 3.23] >= 0} -result {{0 {}} {0 {}} {0\
{}} Error {SQL logic error ==> SQL logic error} IoErr {disk I/O error ==> disk\
I/O error} CantOpen {unable to open database file ==> unable to open database\
file} Notice {notification message ==> notification message} Warning {warning\
message ==> warning message} 231 {SQL logic error ==> unknown error} {0 {}}\
Ok_Load_Permanently {not an error ==> not an error} Error_Retry {SQL logic\
error ==> SQL logic error} IoErr_Short_Read {disk I/O error ==> disk I/O error}\
CantOpen_NoTempDir {unable to open database file ==> unable to open database\
︙︙
4912
4913
4914
4915
4916
4917
4918

4919
4920
4921
4922
4923
4924
4925
4926

  freeDbConnection

  unset -nocomplain result exception errCode errCodes
  unset -nocomplain connection db fileName
} -constraints {eagle command.object monoBug28\
compile.DATA defineConstant.System.Data.SQLite.INTEROP_TEST_EXTENSION\
command.sql SQLite System.Data.SQLite} -constraintExpression \

{[package vcompare $core_library_version 3.23] >= 0} -result {{0 {}} {0 {}} {0\
{}} Error {SQL logic error ==> SQL logic error} IoErr {disk I/O error ==> disk\
I/O error} CantOpen {unable to open database file ==> unable to open database\
file} Notice {notification message ==> notification message} Warning {warning\
message ==> warning message} 231 {unknown error ==> unknown error} {0 {}}\
Ok_Load_Permanently {not an error ==> not an error} Error_Retry {SQL logic\
error ==> SQL logic error} IoErr_Short_Read {disk I/O error ==> disk I/O error}\
CantOpen_NoTempDir {unable to open database file ==> unable to open database\








>
|








4913
4914
4915
4916
4917
4918
4919
4920
4921
4922
4923
4924
4925
4926
4927
4928

  freeDbConnection

  unset -nocomplain result exception errCode errCodes
  unset -nocomplain connection db fileName
} -constraints {eagle command.object monoBug28\
compile.DATA defineConstant.System.Data.SQLite.INTEROP_TEST_EXTENSION\
command.sql SQLite System.Data.SQLite} -constraintExpression \
{[info exists core_library_version] && \
[package vcompare $core_library_version 3.23] >= 0} -result {{0 {}} {0 {}} {0\
{}} Error {SQL logic error ==> SQL logic error} IoErr {disk I/O error ==> disk\
I/O error} CantOpen {unable to open database file ==> unable to open database\
file} Notice {notification message ==> notification message} Warning {warning\
message ==> warning message} 231 {unknown error ==> unknown error} {0 {}}\
Ok_Load_Permanently {not an error ==> not an error} Error_Retry {SQL logic\
error ==> SQL logic error} IoErr_Short_Read {disk I/O error ==> disk I/O error}\
CantOpen_NoTempDir {unable to open database file ==> unable to open database\
︙︙
Changes to Tests/tkt-a7d04fb111.eagle.
︙︙
38
39
40
41
42
43
44

45

46
47
48

49
50
51

52




53

54
55

56

57
58
59

60
61
62

63




64

65
66

67

68
69
70

71
72
73

74





75
76
77
78
79
80
81


set iso8601Value(0) [$instanceValue(0) ToString [getDateTimeFormat]]
set iso8601Value(1) [$instanceValue(1) ToString [getDateTimeFormat]]
set iso8601Value(2) [$instanceValue(2) ToString [getDateTimeFormat false]]

###############################################################################


set julianDayValue(0) [object invoke System.Data.SQLite.SQLiteConvert \

    ToJulianDay $instanceValue(0)]

set julianDayValue(1) [object invoke System.Data.SQLite.SQLiteConvert \

    ToJulianDay $instanceValue(1)]

set julianDayValue(2) [object invoke System.Data.SQLite.SQLiteConvert \

    ToJulianDay $instanceValue(2)]






###############################################################################


set unixEpochValue(0) [object invoke System.Data.SQLite.SQLiteConvert \

    ToUnixEpoch $instanceValue(0)]

set unixEpochValue(1) [object invoke System.Data.SQLite.SQLiteConvert \

    ToUnixEpoch $instanceValue(1)]

set unixEpochValue(2) [object invoke System.Data.SQLite.SQLiteConvert \

    ToUnixEpoch $instanceValue(2)]






###############################################################################


set invariantCultureValue(0) [object invoke System.Data.SQLite.SQLiteConvert \

    ToString $instanceValue(0) InvariantCulture Unspecified null]

set invariantCultureValue(1) [object invoke System.Data.SQLite.SQLiteConvert \

    ToString $instanceValue(1) InvariantCulture Utc null]

set invariantCultureValue(2) [object invoke System.Data.SQLite.SQLiteConvert \

    ToString $instanceValue(2) InvariantCulture Local null]






###############################################################################

runTest {test tkt-a7d04fb111-1.1 {Bind DateTime Utc Ticks} -setup {
  setupDb [set fileName tkt-a7d04fb111-1.1.db] "" Ticks Utc \
      BindDateTimeWithKind
} -body {








>
|
>
|

|
>
|

|
>
|
>
>
>
>
|
>


>
|
>
|

|
>
|

|
>
|
>
>
>
>
|
>


>
|
>
|

|
>
|

|
>
|
>
>
>
>
>








38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108


set iso8601Value(0) [$instanceValue(0) ToString [getDateTimeFormat]]
set iso8601Value(1) [$instanceValue(1) ToString [getDateTimeFormat]]
set iso8601Value(2) [$instanceValue(2) ToString [getDateTimeFormat false]]

###############################################################################

if {[haveConstraint System.Data.SQLite]} then {
  set julianDayValue(0) [object invoke \
      System.Data.SQLite.SQLiteConvert \
      ToJulianDay $instanceValue(0)]

  set julianDayValue(1) [object invoke \
      System.Data.SQLite.SQLiteConvert \
      ToJulianDay $instanceValue(1)]

  set julianDayValue(2) [object invoke \
      System.Data.SQLite.SQLiteConvert \
      ToJulianDay $instanceValue(2)]
} else {
  set julianDayValue(0) 0
  set julianDayValue(1) 0
  set julianDayValue(2) 0
}

###############################################################################

if {[haveConstraint System.Data.SQLite]} then {
  set unixEpochValue(0) [object invoke \
      System.Data.SQLite.SQLiteConvert \
      ToUnixEpoch $instanceValue(0)]

  set unixEpochValue(1) [object invoke \
      System.Data.SQLite.SQLiteConvert \
      ToUnixEpoch $instanceValue(1)]

  set unixEpochValue(2) [object invoke \
      System.Data.SQLite.SQLiteConvert \
      ToUnixEpoch $instanceValue(2)]
} else {
  set unixEpochValue(0) 0
  set unixEpochValue(1) 0
  set unixEpochValue(2) 0
}

###############################################################################

if {[haveConstraint System.Data.SQLite]} then {
  set invariantCultureValue(0) [object invoke \
      System.Data.SQLite.SQLiteConvert \
      ToString $instanceValue(0) InvariantCulture Unspecified null]

  set invariantCultureValue(1) [object invoke \
      System.Data.SQLite.SQLiteConvert \
      ToString $instanceValue(1) InvariantCulture Utc null]

  set invariantCultureValue(2) [object invoke \
      System.Data.SQLite.SQLiteConvert \
      ToString $instanceValue(2) InvariantCulture Local null]
} else {
  set invariantCultureValue(0) 0
  set invariantCultureValue(1) 0
  set invariantCultureValue(2) 0
}

###############################################################################

runTest {test tkt-a7d04fb111-1.1 {Bind DateTime Utc Ticks} -setup {
  setupDb [set fileName tkt-a7d04fb111-1.1.db] "" Ticks Utc \
      BindDateTimeWithKind
} -body {
︙︙