[sql] Import reference version of SQLite 3.8.7.4.

third_party/sqlite/sqlite-src-3080704/test/genesis.tcl

 # 2010 February 02
 #
 # The author disclaims copyright to this source code.  In place of
 # a legal notice, here is a blessing:
 #
 #    May you do good and not evil.
 #    May you find forgiveness for yourself and forgive others.
 #    May you share freely, never taking more than you give.
 #
 #*************************************************************************
-# This file implements regression tests for SQLite library.  The
-# focus of this script is testing the FTS4 module.
-#
+# This file implements a TCL function that fills an FTS table with
+# lots of content useful for testing.  This routine is broken out into
+# a separate file to facilitate its use by multiple test scripts.
 #
 
-set testdir [file dirname $argv0]
-source $testdir/tester.tcl
+# The fts_kjv_genesis routine is already loaded.  This script is a no-op.
+if {[lsearch [info procs] fts_kjv_genesis]>=0} return
 
-# If SQLITE_ENABLE_FTS3 is defined, omit this file.
-ifcapable !fts3 {
-  finish_test
-  return
-}
-if {[db eval {SELECT sqlite_compileoption_used('ENABLE_FTS4')}]==0} {
-  finish_test
-  return
-}
-
-do_test fts4aa-1.0 {
+# This procedure fills an existing FTS3/FTS4 table with many entries.
+# The table needs to have a single column (other than docid) named "words".
+#
+proc fts_kjv_genesis {} {
 db eval {
-CREATE VIRTUAL TABLE t1 USING fts4(words, tokenize porter);
 BEGIN TRANSACTION;
 INSERT INTO t1(docid,words) VALUES(1001001,'In the beginning God created the heaven and the earth.');
 INSERT INTO t1(docid,words) VALUES(1001002,'And the earth was without form, and void; and darkness was upon the face of the deep. And the Spirit of God moved upon the face of the waters.');
 INSERT INTO t1(docid,words) VALUES(1001003,'And God said, Let there be light: and there was light.');
 INSERT INTO t1(docid,words) VALUES(1001004,'And God saw the light, that it was good: and God divided the light from the darkness.');
 INSERT INTO t1(docid,words) VALUES(1001005,'And God called the light Day, and the darkness he called Night. And the evening and the morning were the first day.');
 INSERT INTO t1(docid,words) VALUES(1001006,'And God said, Let there be a firmament in the midst of the waters, and let it divide the waters from the waters.');
 INSERT INTO t1(docid,words) VALUES(1001007,'And God made the firmament, and divided the waters which were under the firmament from the waters which were above the firmament: and it was so.');
 INSERT INTO t1(docid,words) VALUES(1001008,'And God called the firmament Heaven. And the evening and the morning were the second day.');
 INSERT INTO t1(docid,words) VALUES(1001009,'And God said, Let the waters under the heaven be gathered together unto one place, and let the dry land appear: and it was so.');
@@ skipping 1516 matching lines @@
 INSERT INTO t1(docid,words) VALUES(1050019,'And Joseph said unto them, Fear not: for am I in the place of God?');
 INSERT INTO t1(docid,words) VALUES(1050020,'But as for you, ye thought evil against me; but God meant it unto good, to bring to pass, as it is this day, to save much people alive.');
 INSERT INTO t1(docid,words) VALUES(1050021,'Now therefore fear ye not: I will nourish you, and your little ones. And he comforted them, and spake kindly unto them.');
 INSERT INTO t1(docid,words) VALUES(1050022,'And Joseph dwelt in Egypt, he, and his father''s house: and Joseph lived an hundred and ten years.');
 INSERT INTO t1(docid,words) VALUES(1050023,'And Joseph saw Ephraim''s children of the third generation: the children also of Machir the son of Manasseh were brought up upon Joseph''s knees.');
 INSERT INTO t1(docid,words) VALUES(1050024,'And Joseph said unto his brethren, I die: and God will surely visit you, and bring you out of this land unto the land which he sware to Abraham, to Isaac, and to Jacob.');
 INSERT INTO t1(docid,words) VALUES(1050025,'And Joseph took an oath of the children of Israel, saying, God will surely visit you, and ye shall carry up my bones from hence.');
 INSERT INTO t1(docid,words) VALUES(1050026,'So Joseph died, being an hundred and ten years old: and they embalmed him, and he was put in a coffin in Egypt.');
 COMMIT;
 }
-} {}
-
-
-do_test fts4aa-1.1 {
-  db eval {
-    SELECT docid FROM t1 EXCEPT SELECT docid FROM t1_docsize
-  }
-} {}
-do_test fts4aa-1.2 {
-  db eval {
-    SELECT docid FROM t1_docsize EXCEPT SELECT docid FROM t1
-  }
-} {}
-
-proc mit {blob} {
-  set scan(littleEndian) i*
-  set scan(bigEndian) I*
-  binary scan $blob $scan($::tcl_platform(byteOrder)) r
-  return $r
 }
-db func mit mit
-
-do_test fts4aa-2.1 {
-  db eval {
-    SELECT docid, mit(matchinfo(t1)) FROM t1 WHERE t1 MATCH 'melchizedek';
-  }
-} {1014018 {1 1 1 1 1 1533 25 20}}
-do_test fts4aa-2.2 {
-  db eval {
-    SELECT docid, mit(matchinfo(t1)) FROM t1
-     WHERE t1 MATCH 'spake hebrew'
-     ORDER BY docid;
-  }
-} {1039014 {2 1 1 40 40 1 6 6 1533 25 42} 1039017 {2 1 1 40 40 1 6 6 1533 25 26}}
-do_test fts4aa-2.3 {
-  db eval {
-    SELECT docid, mit(matchinfo(t1)) FROM t1
-     WHERE t1 MATCH 'laban overtook jacob'
-     ORDER BY docid;
-  }
-} {1031025 {3 1 2 54 46 1 3 3 2 181 160 1533 25 24}}
-
-do_test fts4aa-9.1 {
-  db eval {
-    DELETE FROM t1 WHERE docid!=1050026;
-    SELECT hex(size) FROM t1_docsize;
-    SELECT hex(value) FROM t1_stat;
-  }
-} {17 0117}
-
-do_test fts4aa-9.2 {
-  db eval {
-    SELECT docid FROM t1 EXCEPT SELECT docid FROM t1_docsize
-  }
-} {}
-do_test fts4aa-9.3 {
-  db eval {
-    SELECT docid FROM t1_docsize EXCEPT SELECT docid FROM t1
-  }
-} {}
-do_test fts4aa-9.4 {
-  db eval {
-    SELECT docid, mit(matchinfo(t1)) FROM t1
-     WHERE t1 MATCH 'joseph died in egypt'
-     ORDER BY docid;
-  }
-} {1050026 {4 1 1 1 1 1 1 1 2 2 1 1 1 1 1 23 23}}
-
-finish_test