wasCSharpSQLite – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 #
2 # 2007 May 7
3 #
4 # The author disclaims copyright to this source code. In place of
5 # a legal notice, here is a blessing:
6 #
7 # May you do good and not evil.
8 # May you find forgiveness for yourself and forgive others.
9 # May you share freely, never taking more than you give.
10 #
11 #***********************************************************************
12 # This file implements regression tests for SQLite library. The
13 # focus of this script is the experimental sqlite3_create_collation_v2()
14 # API.
15 #
16 # $Id: collate7.test,v 1.2 2008/07/12 14:52:20 drh Exp $
17  
18 set testdir [file dirname $argv0]
19 source $testdir/tester.tcl
20  
21 set ::caseless_del 0
22 proc caseless_cmp {zLeft zRight} {
23 string compare -nocase $zLeft $zRight
24 }
25  
26 do_test collate7-1.1 {
27 set cmd [list incr ::caseless_del]
28 sqlite3_create_collation_v2 db CASELESS caseless_cmp $cmd
29 set ::caseless_del
30 } {0}
31 do_test collate7-1.2 {
32 sqlite_delete_collation db CASELESS
33 set ::caseless_del
34 } {1}
35 do_test collate7-1.3 {
36 catchsql {
37 CREATE TABLE abc(a COLLATE CASELESS, b, c);
38 }
39 } {1 {no such collation sequence: CASELESS}}
40 do_test collate7-1.4 {
41 sqlite3_create_collation_v2 db CASELESS caseless_cmp {incr ::caseless_del}
42 db close
43 set ::caseless_del
44 } {2}
45  
46 do_test collate7-2.1 {
47 file delete -force test.db test.db-journal
48 sqlite3 db test.db
49 sqlite3_create_collation_v2 db CASELESS caseless_cmp {incr ::caseless_del}
50 execsql {
51 PRAGMA encoding='utf-16';
52 CREATE TABLE abc16(a COLLATE CASELESS, b, c);
53 } db
54 set ::caseless_del
55 } {2}
56 do_test collate7-2.2 {
57 execsql {
58 SELECT * FROM abc16 WHERE a < 'abc';
59 }
60 set ::caseless_del
61 } {2}
62 do_test collate7-2.3 {
63 sqlite_delete_collation db CASELESS
64 set ::caseless_del
65 } {3}
66 do_test collate7-2.4 {
67 catchsql {
68 SELECT * FROM abc16 WHERE a < 'abc';
69 }
70 } {1 {no such collation sequence: CASELESS}}
71  
72 finish_test