Import SQLite 3.8.7.4.

third_party/sqlite/src/test/trace.test

 # 2004 Jun 29
 #
 # 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.
 #
 #***********************************************************************
@@ skipping 30 matching lines @@
     SELECT * FROM t1;
   }
 } {1 2}
 do_test trace-1.4 {
   set ::stmtlist
 } {{CREATE TABLE t1(a,b);} {INSERT INTO t1 VALUES(1,2);} {SELECT * FROM t1;}}
 do_test trace-1.5 {
   db trace {}
   db trace
 } {}
+do_test trace-1.6 {
+  db eval {
+     CREATE TABLE t1b(x TEXT PRIMARY KEY, y);
+     INSERT INTO t1b VALUES('abc','def'),('ghi','jkl'),('mno','pqr');
+  }
+  set ::stmtlist {}
+  set xyzzy a*
+  db trace trace_proc
+  db eval {
+     SELECT y FROM t1b WHERE x GLOB $xyzzy
+  }
+} {def}
+do_test trace-1.7 {
+  set ::stmtlist
+} {{SELECT y FROM t1b WHERE x GLOB 'a*'}}
+db trace {}
 
 # If we prepare a statement and execute it multiple times, the trace
 # happens on each execution.
 #
 db close
 sqlite3 db test.db; set DB [sqlite3_connection_pointer db]
 do_test trace-2.1 {
   set STMT [sqlite3_prepare $DB {INSERT INTO t1 VALUES(2,3)} -1 TAIL]
   db trace trace_proc
   proc trace_proc sql {
@@ skipping 175 matching lines @@
   db trace trace_proc
   set TRACE_OUT {}
   execsql {SELECT '$::t6str', [$::t6str], $::t6str, ?1, "?1", $::t6str FROM t6}
 } {{$::t6str} 1 {test-six y'all} {test-six y'all} 2 {test-six y'all}}
 do_test trace-6.201 {
   set TRACE_OUT
 } {{SELECT '$::t6str', [$::t6str], 'test-six y''all', 'test-six y''all', "?1", 'test-six y''all' FROM t6}}
 
 
 finish_test