ADDED   Tests/tkt-3b9dcdc32d.eagle
Index: Tests/tkt-3b9dcdc32d.eagle
==================================================================
--- /dev/null
+++ Tests/tkt-3b9dcdc32d.eagle
@@ -0,0 +1,159 @@
+###############################################################################
+#
+# tkt-3b9dcdc32d.eagle --
+#
+# Written by Joe Mistachkin.
+# Released to the public domain, use at your own risk!
+#
+###############################################################################
+
+package require Eagle
+package require EagleLibrary
+package require EagleTest
+
+runTestPrologue
+
+###############################################################################
+
+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();
+
+            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