1 files changed, 0 insertions, 87 deletions
diff --git a/lang/sql/adapter/sqlite-patches/01_sqlite_excl_test.patch b/lang/sql/adapter/sqlite-patches/01_sqlite_excl_test.patch
deleted file mode 100644
index 8e69044e..00000000
--- a/lang/sql/adapter/sqlite-patches/01_sqlite_excl_test.patch
+++ /dev/null
@@ -1,87 +0,0 @@
---- test/tester.tcl
-+++ test/tester.tcl
-@@ -266,16 +266,21 @@
-   proc set_test_counter {counter args} {
-     if {[llength $args]} {
-       set ::TC($counter) [lindex $args 0]
-     }
-     set ::TC($counter)
-   }
- }
- 
-+# Pull in the list of test cases that are excluded and ignored when running
-+# with Berkeley DB.
-+#
-+source $testdir/../../../../test/sql/bdb_excl.test
-+
- # Record the fact that a sequence of tests were omitted.
- #
- proc omit_test {name reason} {
-   set omitList [set_test_counter omit_list]
-   lappend omitList [list $name $reason]
-   set_test_counter omit_list $omitList
- }
- 
-@@ -300,22 +305,29 @@
-   set_test_counter count [expr [set_test_counter count] + 1]
- }
- 
- 
- # Invoke the do_test procedure to run a single test 
- #
- proc do_test {name cmd expected} {
- 
--  global argv cmdlinearg
-+  global argv cmdlinearg IGNORE_CASES EXCLUDE_CASES
- 
-   fix_testname name
- 
-   sqlite3_memdebug_settitle $name
- 
-+  foreach pattern $EXCLUDE_CASES {
-+    if {[string match $pattern $name]} {
-+      puts "$name... Skipping"
-+      flush stdout
-+      return
-+    }
-+  }
- #  if {[llength $argv]==0} { 
- #    set go 1
- #  } else {
- #    set go 0
- #    foreach pattern $argv {
- #      if {[string match $pattern $name]} {
- #        set go 1
- #        break
-@@ -329,18 +341,29 @@
- 
-   incr_ntest
-   puts -nonewline $name...
-   flush stdout
-   if {[catch {uplevel #0 "$cmd;\n"} result]} {
-     puts "\nError: $result"
-     fail_test $name
-   } elseif {[string compare $result $expected]} {
--    puts "\nExpected: \[$expected\]\n     Got: \[$result\]"
--    fail_test $name
-+    set ignore 0
-+    foreach pattern $IGNORE_CASES {
-+      if {[string match $pattern $name]} {
-+        set ignore 1
-+        break
-+      }
-+    }
-+    if {$ignore} {
-+      puts " Ignored"
-+    } else {
-+      puts "\nExpected: \[$expected\]\n     Got: \[$result\]"
-+      fail_test $name
-+    }
-   } else {
-     puts " Ok"
-   }
-   flush stdout
- }
- 
- proc fix_testname {varname} {
-   upvar $varname testname