wasCSharpSQLite – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 # 2001 September 15
2 #
3 # The author disclaims copyright to this source code. In place of
4 # a legal notice, here is a blessing:
5 #
6 # May you do good and not evil.
7 # May you find forgiveness for yourself and forgive others.
8 # May you share freely, never taking more than you give.
9 #
10 #***********************************************************************
11 #
12 # Tests to make sure #3997 is fixed.
13 #
14 # $Id: tkt3997.test,v 1.1 2009/07/28 13:30:31 danielk1977 Exp $
15  
16 set testdir [file dirname $argv0]
17 source $testdir/tester.tcl
18  
19 proc reverse {lhs rhs} {
20 return [string compare $rhs $lhs]
21 }
22 proc usual {lhs rhs} {
23 return [string compare $lhs $rhs]
24 }
25  
26 db collate reverse reverse
27 db collate usual usual
28  
29 do_test tkt3997-1.1 {
30 execsql {
31 create table mytext(name BLOB);
32 INSERT INTO mytext VALUES('abc');
33 INSERT INTO mytext VALUES('acd');
34 INSERT INTO mytext VALUES('afe');
35 }
36 } {}
37 do_test tkt3997-1.2 {
38 execsql {
39 SELECT name
40 FROM mytext
41 ORDER BY name COLLATE reverse
42 }
43 } {afe acd abc}
44 do_test tkt3997-1.3 {
45 execsql {
46 SELECT name
47 FROM (SELECT name FROM mytext)
48 ORDER BY name COLLATE reverse
49 }
50 } {afe acd abc}
51  
52 do_test tkt3997-2.1 {
53 execsql {
54 CREATE TABLE mytext2(name COLLATE reverse);
55 INSERT INTO mytext2 SELECT name FROM mytext;
56 }
57 } {}
58 do_test tkt3997-2.2 {
59 execsql {
60 SELECT name
61 FROM (SELECT name FROM mytext2)
62 ORDER BY name
63 }
64 } {afe acd abc}
65 do_test tkt3997-2.3 {
66 execsql {
67 SELECT name
68 FROM (SELECT name FROM mytext2)
69 ORDER BY name COLLATE usual
70 }
71 } {abc acd afe}
72  
73 finish_test