Annotation of embedaddon/sqlite3/test/fts3sort.test, revision 1.1
1.1 ! misho 1: # 2011 May 04
! 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: # This file implements regression tests for SQLite library. The
! 12: # focus of this script is testing the FTS3 module.
! 13: #
! 14:
! 15: set testdir [file dirname $argv0]
! 16: source $testdir/tester.tcl
! 17:
! 18: # If SQLITE_ENABLE_FTS3 is defined, omit this file.
! 19: ifcapable !fts3 {
! 20: finish_test
! 21: return
! 22: }
! 23:
! 24:
! 25: proc build_database {nRow param} {
! 26: db close
! 27: forcedelete test.db
! 28: sqlite3 db test.db
! 29:
! 30: set vocab [list aa ab ac ba bb bc ca cb cc da]
! 31: expr srand(0)
! 32:
! 33: execsql "CREATE VIRTUAL TABLE t1 USING fts4($param)"
! 34: for {set i 0} {$i < $nRow} {incr i} {
! 35: set v [expr int(rand()*1000000)]
! 36: set doc [list]
! 37: for {set div 1} {$div < 1000000} {set div [expr $div*10]} {
! 38: lappend doc [lindex $vocab [expr ($v/$div) % 10]]
! 39: }
! 40: execsql { INSERT INTO t1 VALUES($doc) }
! 41: }
! 42: }
! 43:
! 44: set testprefix fts3sort
! 45:
! 46: unset -nocomplain CONTROL
! 47: foreach {t param} {
! 48: 1 ""
! 49: 2 "order=asc"
! 50: 3 "order=desc"
! 51: } {
! 52:
! 53: set testprefix fts3sort-1.$t
! 54:
! 55: set nRow 1000
! 56: do_test 1.0 {
! 57: build_database $nRow $param
! 58: execsql { SELECT count(*) FROM t1 }
! 59: } $nRow
! 60:
! 61: foreach {tn query} {
! 62: 1 "SELECT docid, * FROM t1"
! 63: 2 "SELECT docid, * FROM t1 WHERE t1 MATCH 'aa'"
! 64: 3 "SELECT docid, * FROM t1 WHERE t1 MATCH 'a*'"
! 65: 4 "SELECT docid, quote(matchinfo(t1)) FROM t1 WHERE t1 MATCH 'a*'"
! 66: 5 "SELECT docid, quote(matchinfo(t1,'pcnxals')) FROM t1 WHERE t1 MATCH 'b*'"
! 67: 6 "SELECT docid, * FROM t1 WHERE t1 MATCH 'a* b* c*'"
! 68: 7 "SELECT docid, * FROM t1 WHERE t1 MATCH 'aa OR da'"
! 69: 8 "SELECT docid, * FROM t1 WHERE t1 MATCH 'nosuchtoken'"
! 70: 9 "SELECT docid, snippet(t1) FROM t1 WHERE t1 MATCH 'aa OR da'"
! 71: 10 "SELECT docid, snippet(t1) FROM t1 WHERE t1 MATCH 'aa OR nosuchtoken'"
! 72: 11 "SELECT docid, snippet(t1) FROM t1 WHERE t1 MATCH 'aa NEAR bb'"
! 73: 12 "SELECT docid, snippet(t1) FROM t1 WHERE t1 MATCH '\"aa bb\"'"
! 74: 13 "SELECT docid, content FROM t1 WHERE t1 MATCH 'aa NEAR/2 bb NEAR/3 cc'"
! 75: 14 "SELECT docid, content FROM t1 WHERE t1 MATCH '\"aa bb cc\"'"
! 76: } {
! 77:
! 78: unset -nocomplain A B C D
! 79: set A_list [list]
! 80: set B_list [list]
! 81: set C_list [list]
! 82: set D_list [list]
! 83:
! 84: unset -nocomplain X
! 85: db eval "$query ORDER BY rowid ASC" X {
! 86: set A($X(docid)) [array get X]
! 87: lappend A_list $X(docid)
! 88: }
! 89: unset -nocomplain X
! 90: db eval "$query ORDER BY rowid DESC" X {
! 91: set B($X(docid)) [array get X]
! 92: lappend B_list $X(docid)
! 93: }
! 94: unset -nocomplain X
! 95: db eval "$query ORDER BY docid ASC" X {
! 96: set C($X(docid)) [array get X]
! 97: lappend C_list $X(docid)
! 98: }
! 99: unset -nocomplain X
! 100: db eval "$query ORDER BY docid DESC" X {
! 101: set D($X(docid)) [array get X]
! 102: lappend D_list $X(docid)
! 103: }
! 104:
! 105: do_test $tn.1 { set A_list } [lsort -integer -increasing $A_list]
! 106: do_test $tn.2 { set B_list } [lsort -integer -decreasing $B_list]
! 107: do_test $tn.3 { set C_list } [lsort -integer -increasing $C_list]
! 108: do_test $tn.4 { set D_list } [lsort -integer -decreasing $D_list]
! 109:
! 110: unset -nocomplain DATA
! 111: unset -nocomplain X
! 112: db eval "$query" X {
! 113: set DATA($X(docid)) [array get X]
! 114: }
! 115:
! 116: do_test $tn.5 { lsort [array get A] } [lsort [array get DATA]]
! 117: do_test $tn.6 { lsort [array get B] } [lsort [array get DATA]]
! 118: do_test $tn.7 { lsort [array get C] } [lsort [array get DATA]]
! 119: do_test $tn.8 { lsort [array get D] } [lsort [array get DATA]]
! 120:
! 121: if {[info exists CONTROL($tn)]} {
! 122: do_test $tn.9 { set CONTROL($tn) } [lsort [array get DATA]]
! 123: } else {
! 124: set CONTROL($tn) [lsort [array get DATA]]
! 125: }
! 126: }
! 127: }
! 128: unset -nocomplain CONTROL
! 129:
! 130: set testprefix fts3sort
! 131:
! 132: #-------------------------------------------------------------------------
! 133: # Tests for parsing the "order=asc" and "order=desc" directives.
! 134: #
! 135: foreach {tn param res} {
! 136: 1 "order=asc" {0 {}}
! 137: 2 "order=desc" {0 {}}
! 138: 3 "order=dec" {1 {unrecognized order: dec}}
! 139: 4 "order=xxx, order=asc" {1 {unrecognized order: xxx}}
! 140: 5 "order=desc, order=asc" {0 {}}
! 141: 6 "order=xxxx, order=asc" {1 {unrecognized order: xxxx}}
! 142: 7 "order=desk" {1 {unrecognized order: desk}}
! 143: } {
! 144: execsql { DROP TABLE IF EXISTS t1 }
! 145: do_catchsql_test 2.1.$tn "
! 146: CREATE VIRTUAL TABLE t1 USING fts4(a, b, $param)
! 147: " $res
! 148: }
! 149:
! 150: do_execsql_test 2.2 {
! 151: BEGIN;
! 152: CREATE VIRTUAL TABLE t2 USING fts4(order=desc);
! 153: INSERT INTO t2 VALUES('aa bb');
! 154: INSERT INTO t2 VALUES('bb cc');
! 155: INSERT INTO t2 VALUES('cc aa');
! 156: SELECT docid FROM t2 WHERE t2 MATCH 'aa';
! 157: END;
! 158: } {3 1}
! 159: do_execsql_test 2.3 {
! 160: SELECT docid FROM t2 WHERE t2 MATCH 'aa';
! 161: } {3 1}
! 162: do_execsql_test 2.4 {
! 163: SELECT docid FROM t2 WHERE t2 MATCH 'aa' ORDER BY content;
! 164: } {1 3}
! 165:
! 166: #-------------------------------------------------------------------------
! 167: # Test that ticket [56be976859] has been fixed.
! 168: #
! 169: do_execsql_test 3.1 {
! 170: CREATE VIRTUAL TABLE t3 USING fts4(x, order=DESC);
! 171: INSERT INTO t3(docid, x) VALUES(113382409004785664, 'aa');
! 172: INSERT INTO t3(docid, x) VALUES(1, 'ab');
! 173: SELECT rowid FROM t3 WHERE x MATCH 'a*' ORDER BY docid DESC;
! 174: } {113382409004785664 1}
! 175: do_execsql_test 3.2 {
! 176: CREATE VIRTUAL TABLE t4 USING fts4(x);
! 177: INSERT INTO t4(docid, x) VALUES(-113382409004785664, 'aa');
! 178: INSERT INTO t4(docid, x) VALUES(1, 'ab');
! 179: SELECT rowid FROM t4 WHERE x MATCH 'a*';
! 180: } {-113382409004785664 1}
! 181:
! 182:
! 183:
! 184: finish_test
! 185:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to fts3sort.test CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test