[sql] Import SQLite 3.17.0.

third_party/sqlite/src/test/fuzzer1.test

 # 2011 March 25
 #
 # 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 TCL interface to the
 # SQLite library. 
 #
 # The focus of the tests is the word-fuzzer virtual table.
 #
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
 ifcapable !vtab {
   finish_test
   return
 }
 
 set ::testprefix fuzzer1
-
 load_static_extension db fuzzer
 
 # Check configuration errors.
 #
 do_catchsql_test fuzzer1-1.1 {
   CREATE VIRTUAL TABLE f USING fuzzer;
 } {1 {fuzzer: wrong number of CREATE VIRTUAL TABLE arguments}}
 
 do_catchsql_test fuzzer1-1.2 {
   CREATE VIRTUAL TABLE f USING fuzzer(one, two);
@@ skipping 1605 matching lines @@
 do_execsql_test 5.5.3 {
   DROP TABLE IF EXISTS x;
   DELETE FROM "fuzzer [x] rules table";
   INSERT INTO "fuzzer [x] rules table" VALUES((1<<32)+100, 'x', 'y', 2);
 } 
 do_catchsql_test 5.5.4 {
   CREATE VIRTUAL TABLE x USING fuzzer('fuzzer [x] rules table');
 } {1 {fuzzer: ruleset must be between 0 and 2147483647}}
 
 #-------------------------------------------------------------------------
-# This test uses a fuzzer table with many rules. There is one rule to
-# map each possible two character string, where characters are lower-case
-# letters used in the English language, to all other possible two character
-# strings. In total, (26^4)-(26^2) mappings (the subtracted term represents
-# the no-op mappings discarded automatically by the fuzzer).
-#
-#
-do_execsql_test 6.1.1 {
-  DROP TABLE IF EXISTS x1;
-  DROP TABLE IF EXISTS x1_rules;
-  CREATE TABLE x1_rules(ruleset, cFrom, cTo, cost);
-}
-puts "This test is slow - perhaps around 7 seconds on an average pc"
-do_test 6.1.2 {
-  set LETTERS {a b c d e f g h i j k l m n o p q r s t u v w x y z}
-  set cost 1
-  db transaction {
-    foreach c1 $LETTERS { 
-      foreach c2 $LETTERS { 
-        foreach c3 $LETTERS { 
-          foreach c4 $LETTERS { 
-            db eval {INSERT INTO x1_rules VALUES(0, $c1||$c2, $c3||$c4, $cost)}
-            set cost [expr ($cost%1000) + 1]
-          }
-        }
-      }
-    }
-    db eval {UPDATE x1_rules SET cost = 20 WHERE cost<20 AND cFrom!='xx'}
-  }
-} {}
-
-do_execsql_test 6.2 {
-  SELECT count(*) FROM x1_rules WHERE cTo!=cFrom;
-} [expr 26*26*26*26 - 26*26]
-
-do_execsql_test 6.2.1 {
-  CREATE VIRTUAL TABLE x1 USING fuzzer(x1_rules);
-  SELECT word FROM x1 WHERE word MATCH 'xx' LIMIT 10;
-} {xx hw hx hy hz ia ib ic id ie}
-do_execsql_test 6.2.2 {
-  SELECT cTo FROM x1_rules WHERE cFrom='xx' 
-  ORDER BY cost asc, rowid asc LIMIT 9;
-} {hw hx hy hz ia ib ic id ie}
-
-#-------------------------------------------------------------------------
 # Test using different types of quotes with CREATE VIRTUAL TABLE 
 # arguments.
 #
 do_execsql_test 7.1 {
   CREATE TABLE [x2 "rules] (a, b, c, d);
   INSERT INTO [x2 "rules] VALUES(0, 'a', 'b', 5);
 }
 foreach {tn sql} {
   1 { CREATE VIRTUAL TABLE x2 USING fuzzer( [x2 "rules] ) }
   2 { CREATE VIRTUAL TABLE x2 USING fuzzer( "x2 ""rules" ) }
@@ skipping 150 matching lines @@
 } {}
 
 do_execsql_test 10.3 {
   INSERT INTO x5_rules VALUES(0, 'a', '0.1.2.3.4.5.6.7.8.9.a', 1);
   DROP TABLE x5;
   CREATE VIRTUAL TABLE x5 USING fuzzer(x5_rules);
   SELECT length(word) FROM x5 WHERE word MATCH 'a' LIMIT 50;
 } {1 21 41 61 81}
 
 finish_test