Adding upstream version 1.37.0.

Signed-off-by: Daniel Baumann <daniel@debian.org>

testdata/tcl/tkt3997.test

@@ -0,0 +1,73 @@
+# 2001 September 15
+#
+# The author disclaims copyright to this source code.  In place of
+# a legal notice, here is a blessing:
+#
+#    May you do good and not evil.
+#    May you find forgiveness for yourself and forgive others.
+#    May you share freely, never taking more than you give.
+#
+#***********************************************************************
+#
+# Tests to make sure #3997 is fixed.
+#
+# $Id: tkt3997.test,v 1.1 2009/07/28 13:30:31 danielk1977 Exp $
+
+set testdir [file dirname $argv0]
+source $testdir/tester.tcl
+
+proc reverse {lhs rhs} {
+  return [string compare $rhs $lhs]
+}
+proc usual {lhs rhs} {
+  return [string compare $lhs $rhs]
+}
+
+db collate reverse reverse
+db collate usual usual
+
+do_test tkt3997-1.1 {
+  execsql {
+    create table mytext(name BLOB);
+    INSERT INTO mytext VALUES('abc');
+    INSERT INTO mytext VALUES('acd');
+    INSERT INTO mytext VALUES('afe');
+  }
+} {}
+do_test tkt3997-1.2 {
+  execsql { 
+    SELECT name 
+    FROM mytext 
+    ORDER BY name COLLATE reverse 
+  }
+} {afe acd abc}
+do_test tkt3997-1.3 {
+  execsql { 
+    SELECT name 
+    FROM (SELECT name FROM mytext)  
+    ORDER BY name COLLATE reverse 
+  }
+} {afe acd abc}
+
+do_test tkt3997-2.1 {
+  execsql { 
+    CREATE TABLE mytext2(name COLLATE reverse);
+    INSERT INTO mytext2 SELECT name FROM mytext;
+  }
+} {}
+do_test tkt3997-2.2 {
+  execsql { 
+    SELECT name 
+    FROM (SELECT name FROM mytext2)  
+    ORDER BY name
+  }
+} {afe acd abc}
+do_test tkt3997-2.3 {
+  execsql { 
+    SELECT name 
+    FROM (SELECT name FROM mytext2)
+    ORDER BY name COLLATE usual
+  }
+} {abc acd afe}
+
+finish_test