Return to tkt3997.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/tkt3997.test, revision 1.1.1.1

1.1       misho       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