Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Corrections to the test case for ticket [53633bbe39]. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
67e11dee533df83e7001b32202651ada |
| User & Date: | mistachkin 2016-04-01 00:43:09 |
Context
|
2016-04-01
| ||
| 02:35 | Add a row to the LINQ test database for ticket [eafaece5c1]. check-in: 47ec08ca31 user: mistachkin tags: trunk | |
| 00:43 | Corrections to the test case for ticket [53633bbe39]. check-in: 67e11dee53 user: mistachkin tags: trunk | |
| 00:23 | Add tests for ticket [53633bbe39]. check-in: 8b5a097e13 user: mistachkin tags: trunk | |
Changes
Changes to Tests/tkt-53633bbe39.eagle.
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
..
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
|
###############################################################################
runTest {test tkt-53633bbe39-1.1 {column affinity overrides} -setup {
saveSQLiteConnectionEnvironment
saveSQLiteConvertEnvironment
set env(DefaultFlags_SQLiteConnection) "DetectTextAffinity, DetectStringType"
set env(Use_SQLiteConvert_DefaultDbType) String
set env(Use_SQLiteConvert_DefaultTypeName) TEXT
setupDb [set fileName tkt-53633bbe39-1.1.db]
} -body {
sql execute $db {
CREATE TABLE t1(x);
................................................................................
set dataReader [sql execute -execute reader -format datareader \
-alias $db "SELECT x FROM t1 ORDER BY x;"]
set results [list]
while {[$dataReader Read]} {
set result [list]
lappend result [catch {$dataReader GetString 0} result] $result
lappend result [catch {$dataReader GetValue 0} result] $result
lappend results $result
}
set results
} -cleanup {
cleanupDb $fileName
restoreSQLiteConvertEnvironment
restoreSQLiteConnectionEnvironment
unset -nocomplain result results db fileName savedEnv
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result {}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
|
>
>
|
|
|
|
>
>
|
>
>
|
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
..
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
|
###############################################################################
runTest {test tkt-53633bbe39-1.1 {column affinity overrides} -setup {
saveSQLiteConnectionEnvironment
saveSQLiteConvertEnvironment
set env(DefaultFlags_SQLiteConnection) \
"DetectTextAffinity, DetectStringType, NoVerifyTextAffinity"
set env(Use_SQLiteConvert_DefaultDbType) String
set env(Use_SQLiteConvert_DefaultTypeName) TEXT
setupDb [set fileName tkt-53633bbe39-1.1.db]
} -body {
sql execute $db {
CREATE TABLE t1(x);
................................................................................
set dataReader [sql execute -execute reader -format datareader \
-alias $db "SELECT x FROM t1 ORDER BY x;"]
set results [list]
while {[$dataReader Read]} {
set result(0) [list]
lappend result(0) [catch {$dataReader GetString 0} result(1)] $result(1)
lappend result(0) [catch {$dataReader GetValue 0} result(1)] $result(1)
lappend results $result(0)
}
set results
} -cleanup {
unset -nocomplain dataReader
cleanupDb $fileName
restoreSQLiteConvertEnvironment
restoreSQLiteConnectionEnvironment
unset -nocomplain result results db fileName savedEnv
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -match \
regexp -result {^\{0 \{\} 0 System#DBNull#\d+\} \{0 1 0 1\} \{0 2\.0 0 2\.0\}\
\{0 3\.14159 0 3\.14159\}$}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|