OLD | NEW |
(Empty) | |
| 1 # 2011 October 18 |
| 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 set testdir [file dirname $argv0] |
| 13 source $testdir/tester.tcl |
| 14 source $testdir/malloc_common.tcl |
| 15 |
| 16 ifcapable !fts3 { |
| 17 finish_test |
| 18 return |
| 19 } |
| 20 |
| 21 set testprefix fts3first |
| 22 |
| 23 proc lreverse {L} { |
| 24 set res [list] |
| 25 for {set ii [expr [llength $L]-1]} {$ii>=0} {incr ii -1} { |
| 26 lappend res [lindex $L $ii] |
| 27 } |
| 28 set res |
| 29 } |
| 30 |
| 31 proc mit {blob} { |
| 32 set scan(littleEndian) i* |
| 33 set scan(bigEndian) I* |
| 34 binary scan $blob $scan($::tcl_platform(byteOrder)) r |
| 35 return $r |
| 36 } |
| 37 db func mit mit |
| 38 |
| 39 do_execsql_test 1.0 { |
| 40 CREATE VIRTUAL TABLE x1 USING FTS4(a, b, c); |
| 41 INSERT INTO x1(docid,a,b,c) VALUES(0, 'K H D S T', 'V M N Y K', 'S Z N Q S'); |
| 42 INSERT INTO x1(docid,a,b,c) VALUES(1, 'K N J L W', 'S Z W J Q', 'D U W S E'); |
| 43 INSERT INTO x1(docid,a,b,c) VALUES(2, 'B P M O I', 'R P H W S', 'R J L L E'); |
| 44 INSERT INTO x1(docid,a,b,c) VALUES(3, 'U R Q M L', 'M J K A V', 'Q W J T J'); |
| 45 INSERT INTO x1(docid,a,b,c) VALUES(4, 'N J C Y N', 'R U D X V', 'B O U A Q'); |
| 46 INSERT INTO x1(docid,a,b,c) VALUES(5, 'Q L X L U', 'I F N X S', 'U Q A N Y'); |
| 47 INSERT INTO x1(docid,a,b,c) VALUES(6, 'M R G U T', 'U V I Q P', 'X Y D L S'); |
| 48 INSERT INTO x1(docid,a,b,c) VALUES(7, 'D Y P O I', 'X J P K R', 'V O T H V'); |
| 49 INSERT INTO x1(docid,a,b,c) VALUES(8, 'R Y D L R', 'U U E S J', 'N W L M R'); |
| 50 INSERT INTO x1(docid,a,b,c) VALUES(9, 'Z P F N P', 'W A X D U', 'V A E Q A'); |
| 51 INSERT INTO x1(docid,a,b,c) VALUES(10, 'Q I A Q M', 'N D K H C', 'A H T Q Z'); |
| 52 INSERT INTO x1(docid,a,b,c) VALUES(11, 'T E R Q B', 'C I B C B', 'F Z U W R'); |
| 53 INSERT INTO x1(docid,a,b,c) VALUES(12, 'E S V U W', 'T P F W H', 'A M D J Q'); |
| 54 INSERT INTO x1(docid,a,b,c) VALUES(13, 'X S B X Y', 'U D N D P', 'X Z Y G F'); |
| 55 INSERT INTO x1(docid,a,b,c) VALUES(14, 'K H A B L', 'S R C C Z', 'D W E H J'); |
| 56 INSERT INTO x1(docid,a,b,c) VALUES(15, 'C E U C C', 'W F M N M', 'T Z U X T'); |
| 57 INSERT INTO x1(docid,a,b,c) VALUES(16, 'Q G C G H', 'H N N B H', 'B Q I H Y'); |
| 58 INSERT INTO x1(docid,a,b,c) VALUES(17, 'Q T S K B', 'W B D Y N', 'V J P E C'); |
| 59 INSERT INTO x1(docid,a,b,c) VALUES(18, 'A J M O Q', 'L G Y Y A', 'G N M R N'); |
| 60 INSERT INTO x1(docid,a,b,c) VALUES(19, 'T R Y P Y', 'N V Y B X', 'L Z T N T'); |
| 61 |
| 62 CREATE VIRTUAL TABLE x2 USING FTS4(a, b, c, order=DESC); |
| 63 INSERT INTO x2(docid, a, b, c) SELECT docid, a, b, c FROM x1; |
| 64 } |
| 65 |
| 66 |
| 67 # Test queries. |
| 68 # |
| 69 foreach x {1 2} { |
| 70 foreach {tn match res} { |
| 71 1 "^K" {0 1 14} |
| 72 2 "^S" {0 1 14} |
| 73 3 "^W" {9 15 17} |
| 74 4 "^J" {} |
| 75 5 "^E" {12} |
| 76 6 "V ^-E" {0 3 4 6 7 9 17 19} |
| 77 7 "V -^E" {0 3 4 6 7 9 17 19} |
| 78 8 "^-E V" {0 3 4 6 7 9 17 19} |
| 79 9 "-^E V" {0 3 4 6 7 9 17 19} |
| 80 10 "V" {0 3 4 6 7 9 12 17 19} |
| 81 |
| 82 11 {"^K H"} {0 14} |
| 83 12 {"K H"} {0 10 14} |
| 84 13 {"K ^H"} {} |
| 85 } { |
| 86 set rev [lreverse $res] |
| 87 do_execsql_test 1.$x.$tn.1 {SELECT docid FROM x1 WHERE x1 MATCH $match} $res |
| 88 do_execsql_test 1.$x.$tn.2 {SELECT docid FROM x2 WHERE x2 MATCH $match} $rev |
| 89 } |
| 90 |
| 91 do_execsql_test 1.$x.[expr $tn+1] { |
| 92 INSERT INTO x1(x1) VALUES('optimize'); |
| 93 INSERT INTO x2(x2) VALUES('optimize'); |
| 94 } {} |
| 95 } |
| 96 |
| 97 # Test the snippet() function. |
| 98 # |
| 99 foreach {tn match res} { |
| 100 1 {^K} {{[K] H D S T} {[K] N J L W} {[K] H A B L}} |
| 101 2 {^X} {{[X] Y D L S} {[X] J P K R} {[X] S B X Y}} |
| 102 3 {^X Y} {{[X] [Y] D L S} {D [Y] P O I...[X] J P K R} {[X] S B X [Y]}} |
| 103 } { |
| 104 set rev [lreverse $res] |
| 105 |
| 106 do_execsql_test 1.3.$tn.1 { |
| 107 SELECT snippet(x1, '[', ']', '...') FROM x1 WHERE x1 MATCH $match |
| 108 } $res |
| 109 |
| 110 do_execsql_test 1.3.$tn.2 { |
| 111 SELECT snippet(x2, '[', ']', '...') FROM x2 WHERE x2 MATCH $match |
| 112 } $rev |
| 113 } |
| 114 |
| 115 # Test matchinfo(). |
| 116 # |
| 117 foreach {tn match res} { |
| 118 1 {^K} { |
| 119 {1 3 3 0 0 0 0 0 0} |
| 120 {1 3 3 0 0 0 0 0 0} |
| 121 {1 3 3 0 0 0 0 0 0} |
| 122 } |
| 123 2 {^X} { |
| 124 {0 1 1 0 1 1 1 2 2} |
| 125 {0 1 1 1 1 1 0 2 2} |
| 126 {1 1 1 0 1 1 1 2 2} |
| 127 } |
| 128 3 {^X Y} { |
| 129 {0 1 1 0 1 1 1 2 2 0 6 5 0 5 4 1 4 4} |
| 130 {0 1 1 1 1 1 0 2 2 1 6 5 0 5 4 0 4 4} |
| 131 {1 1 1 0 1 1 1 2 2 1 6 5 0 5 4 1 4 4} |
| 132 } |
| 133 } { |
| 134 set rev [lreverse $res] |
| 135 |
| 136 do_execsql_test 1.3.$tn.1 { |
| 137 SELECT mit(matchinfo(x1, 'x')) FROM x1 WHERE x1 MATCH $match |
| 138 } $res |
| 139 do_execsql_test 1.3.$tn.2 { |
| 140 SELECT mit(matchinfo(x2, 'x')) FROM x2 WHERE x2 MATCH $match |
| 141 } $rev |
| 142 } |
| 143 |
| 144 # Test that ^ is ignored for FTS3 tables. |
| 145 # |
| 146 do_execsql_test 2.1 { |
| 147 CREATE VIRTUAL TABLE x3 USING fts3; |
| 148 INSERT INTO x3 VALUES('A B C'); |
| 149 INSERT INTO x3 VALUES('B A C'); |
| 150 |
| 151 CREATE VIRTUAL TABLE x4 USING fts4; |
| 152 INSERT INTO x4 VALUES('A B C'); |
| 153 INSERT INTO x4 VALUES('B A C'); |
| 154 } |
| 155 |
| 156 do_execsql_test 2.2.1 { |
| 157 SELECT * FROM x3 WHERE x3 MATCH '^A'; |
| 158 } {{A B C} {B A C}} |
| 159 do_execsql_test 2.2.2 { |
| 160 SELECT * FROM x4 WHERE x4 MATCH '^A'; |
| 161 } {{A B C}} |
| 162 |
| 163 finish_test |
OLD | NEW |