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

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

Overview
Comment:Enhance/add tests to check memory usage related to ticket [3b9dcdc32d].
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tkt-3b9dcdc32d
Files: files | file ages | folders
SHA1: b3d05f0aa025c232b176be3a677b6c70b4c9166c
User & Date: mistachkin 2011-11-28 04:01:26
Context
2011-11-28
04:02
Remove superfluous logging from test. Closed-Leaf check-in: 0ac2dc31fe user: mistachkin tags: tkt-3b9dcdc32d
04:01
Enhance/add tests to check memory usage related to ticket [3b9dcdc32d]. check-in: b3d05f0aa0 user: mistachkin tags: tkt-3b9dcdc32d
2011-11-27
12:26
First attempt to reproduce the issue described in ticket [3b9dcdc32d]. check-in: 85b23122e0 user: mistachkin tags: tkt-3b9dcdc32d
Changes
Hide Diffs Unified Diffs Show Whitespace Changes Patch

Changes to Tests/tkt-3b9dcdc32d.eagle.

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
###############################################################################

package require System.Data.SQLite.Test
runSQLiteTestPrologue

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

runTest {test tkt-3b9dcdc32d-1.1 {range of REAL type} -setup {

  setupDb [set fileName tkt-3b9dcdc32d-1.1.db]
} -body {
  sql execute $db "CREATE TABLE t1(x INTEGER, y BLOB NULL, z BLOB NULL);"


  sql execute $db "INSERT INTO t1 (x) VALUES(1);"


  sql execute $db \
      "UPDATE t1 SET y = ZEROBLOB(10 * 1024 * 1024) WHERE rowid = 1;"


  sql execute $db "UPDATE t1 SET z = ZEROBLOB(10) WHERE rowid = 1;"



  sql execute -execute reader -format list $db \
      "SELECT x, LENGTH(y), LENGTH(z) FROM t1 ORDER BY x;"




































































































} -cleanup {
  cleanupDb $fileName

  unset -nocomplain db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \
{1 10485760 10}}







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

runSQLiteTestEpilogue
runTestEpilogue







|
>



>
>
|
>
>
|
|
>

|
>
|
>
|
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>



|

|
|
>
>
>
>
>
>





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
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
###############################################################################

package require System.Data.SQLite.Test
runSQLiteTestPrologue

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

runTest {test tkt-3b9dcdc32d-1.1 {ZEROBLOB memory leak} -setup {
  set memory_used(before) [reportSQLiteResources stdout]
  setupDb [set fileName tkt-3b9dcdc32d-1.1.db]
} -body {
  sql execute $db "CREATE TABLE t1(x INTEGER, y BLOB NULL, z BLOB NULL);"

  for {set i 1} {$i < 10} {incr i} {
    sql execute $db "INSERT INTO t1 (x) VALUES(?);" \
        [list param1 String $i]

    sql execute $db \
        "UPDATE t1 SET y = ZEROBLOB(10 * 1024 * 1024) WHERE rowid = ?;" \
        [list param1 String $i]

    sql execute $db "UPDATE t1 SET z = ZEROBLOB(10) WHERE rowid = ?;" \
        [list param1 String $i]
  }

  set result [sql execute -execute reader -format list $db \
      "SELECT x, LENGTH(y), LENGTH(z) FROM t1 ORDER BY x;"]

  cleanupDb $fileName; unset -nocomplain db fileName
  set memory_used(after) [reportSQLiteResources stdout]

  list [expr {$memory_used(after) - $memory_used(before)}] $result
} -cleanup {
  if {[info exists fileName]} then {
    cleanupDb $fileName
  }

  unset -nocomplain memory_used db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \
{0 {1 10485760 10 2 10485760 10 3 10485760 10 4 10485760 10 5 10485760 10 6\
10485760 10 7 10485760 10 8 10485760 10 9 10485760 10}}}

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

set memory_used(before) [reportSQLiteResources stdout]

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

runTest {test tkt-3b9dcdc32d-1.2 {ZEROBLOB leak} -setup {
  set fileName tkt-3b9dcdc32d-1.2.db
} -body {
  set id [object invoke Interpreter.GetActive NextId]
  set dataSource [file join [getTemporaryPath] $fileName]
  set name [file rootname [file tail $fileName]]

  set sql(1) { \
    CREATE TABLE t1(x INTEGER, y BLOB NULL, z BLOB NULL); \
  }

  set sql(2) { \
    INSERT INTO t1 (x) VALUES(10); \
  }

  set sql(3) { \
    UPDATE t1 SET y = ZEROBLOB(10 * 1024 * 1024) WHERE rowid = 1; \
  }

  set sql(4) { \
    UPDATE t1 SET z = ZEROBLOB(10) WHERE rowid = 1; \
  }

  unset -nocomplain results errors

  set code [compileCSharpWith [subst {
    using System;
    using System.Data.SQLite;
    using System.Diagnostics;
    using System.IO;

    namespace _Dynamic${id}
    {
      public class Test${id}
      {
        public static void Main()
        {
          using (SQLiteConnection connection = new SQLiteConnection(
              "Data Source=${dataSource};"))
          {
            connection.Open();
            connection.LogMessage(0, "Connection opened.");

            SQLiteCommand command1 = new SQLiteCommand("${sql(1)}",
                connection);

            command1.ExecuteNonQuery();

            SQLiteCommand command2 = new SQLiteCommand("${sql(2)}",
                connection);

            command2.ExecuteNonQuery();

            SQLiteCommand command3 = new SQLiteCommand("${sql(3)}",
                connection);

            command3.ExecuteNonQuery();

            SQLiteCommand command4 = new SQLiteCommand("${sql(4)}",
                connection);

            command4.ExecuteNonQuery();
          }

          GC.Collect();
          GC.WaitForPendingFinalizers();
          GC.Collect();
        }
      }
    }
  }] results errors System.Data.SQLite.dll]

  list $code $results \
      [expr {[info exists errors] ? $errors : ""}] \
      [expr {$code eq "Ok" ? [catch {
        object invoke _Dynamic${id}.Test${id} Main
      } result] : [set result ""]}] $result \
      [set memory_used(after) [reportSQLiteResources stdout]]
} -cleanup {
  cleanupDb $fileName

  unset -nocomplain result code results errors sql dataSource id db fileName
} -constraints \
{eagle logFile monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} \
-match regexp -result [appendArgs "^Ok\
System#CodeDom#Compiler#CompilerResults#\\d+ \\{\\} 0 \\{\\} "\
$memory_used(before) \$]}

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

unset -nocomplain memory_used

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

runSQLiteTestEpilogue
runTestEpilogue