System.Data.SQLite
Check-in [ae33a7a7f3]
Not logged in

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

Overview
Comment:Add preliminary test case for [886387ad40].
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | tkt-886387ad40
Files: files | file ages | folders
SHA1: ae33a7a7f3f64ea28b177b88407fdfffb2353735
User & Date: mistachkin 2015-10-15 22:05:45
References
2015-10-15
22:08 Ticket [886387ad40] PRAGMA statements and ExecuteNonQuery status still Open with 3 other changes artifact: 356b542190 user: mistachkin
Context
2015-10-15
22:05
Add preliminary test case for [886387ad40]. Closed-Leaf check-in: ae33a7a7f3 user: mistachkin tags: tkt-886387ad40
19:51
Add SQLITE_ENABLE_API_ARMOR to the interop assembly. check-in: 53a3809160 user: mistachkin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Added Tests/tkt-886387ad40.eagle.













































































































































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
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
###############################################################################
#
# tkt-886387ad40.eagle --
#
# Written by Joe Mistachkin.
# Released to the public domain, use at your own risk!
#
###############################################################################

package require Eagle
package require Eagle.Library
package require Eagle.Test

runTestPrologue

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

package require System.Data.SQLite.Test
runSQLiteTestPrologue

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

runTest {test tkt-886387ad40-1.1 {ExecuteNonQuery w/PRAGMA} -setup {
  setupDb [set fileName tkt-886387ad40-1.1.db]
} -body {
  set connection [getDbConnection]

  array set sql [list \
     1 "PRAGMA locking_mode;" \
     2 "PRAGMA locking_mode=EXCLUSIVE;" \
     3 "PRAGMA locking_mode;" \
     4 "PRAGMA locking_mode=NORMAL;" \
     5 "PRAGMA locking_mode;" \
     6 "PRAGMA legacy_file_format;" \
     7 "PRAGMA legacy_file_format=1;" \
     8 "PRAGMA legacy_file_format;" \
     9 "PRAGMA legacy_file_format=0;" \
    10 "PRAGMA legacy_file_format;" \
    11 "PRAGMA page_size;" \
    12 "PRAGMA page_size=512;" \
    13 "PRAGMA page_size;" \
    14 "PRAGMA page_size=8192;" \
    15 "PRAGMA page_size;" \
  ]

  set result [list]; set i 0

  foreach j [lsort -integer [array names sql]] {
    incr i

    set command($i,1) [$connection -alias CreateCommand]
    $command($i,1) CommandText $sql($j)

    lappend result [$command($i,1) ExecuteNonQuery]

    set command($i,2) [$connection -alias CreateCommand]
    $command($i,2) CommandText $sql($j)

    lappend result [$command($i,2) ExecuteScalar]
  }

  sql execute $db {
    CREATE TABLE t1(x, y);
    INSERT INTO t1 (x, y) VALUES(1, RANDOMBLOB(1048576));
    INSERT INTO t1 (x, y) VALUES(2, RANDOMBLOB(1048576));
    INSERT INTO t1 (x, y) VALUES(3, RANDOMBLOB(1048576));
    INSERT INTO t1 (x, y) VALUES(4, RANDOMBLOB(1048576));
  }

  foreach j [lsort -integer [array names sql]] {
    incr i

    set command($i,1) [$connection -alias CreateCommand]
    $command($i,1) CommandText $sql($j)

    lappend result [$command($i,1) ExecuteNonQuery]

    set command($i,2) [$connection -alias CreateCommand]
    $command($i,2) CommandText $sql($j)

    lappend result [$command($i,2) ExecuteScalar]
  }

  set result
} -cleanup {
  unset -nocomplain command

  freeDbConnection

  cleanupDb $fileName

  unset -nocomplain result j i sql connection db fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite} -result {-1 normal -1 exclusive -1 exclusive -1 normal -1\
normal -1 0 -1 {} -1 1 -1 {} -1 0 -1 1024 -1 {} -1 512 -1 {} -1 8192 -1 normal\
-1 exclusive -1 exclusive -1 normal -1 normal -1 0 -1 {} -1 1 -1 {} -1 0 -1\
8192 -1 {} -1 8192 -1 {} -1 8192}}

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

runSQLiteTestEpilogue
runTestEpilogue