Import SQLite 3.8.7.4.

third_party/sqlite/src/test/tkt-b72787b1.test

 # 2011 February 21
 #
 # 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 17 matching lines @@
 #        * When control returns to B it will then abort 
 #
 #     The bug is that sqlite3ExpirePreparedStatements expires all statements.
 #     Note that B was prepared after the schema change and hence is perfectly
 #     valid and then is marked as expired while running.
 #
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
+ifcapable !compound {
+  finish_test
+  return
+}
+
 unset -nocomplain ::STMT
 proc runsql {} {
   db eval {CREATE TABLE IF NOT EXISTS t4(q)}
   sqlite3_step $::STMT
   set rc [sqlite3_column_int $::STMT 0]
   sqlite3_reset $::STMT
   return $rc
 }
 
 do_test tkt-b72787b1.1 {
@@ skipping 20 matching lines @@
     SELECT CASE WHEN y=3 THEN y+100 WHEN y==4 THEN runsql()+200
                 ELSE 300+y END FROM t2
     UNION ALL
     SELECT * FROM t1;
   }
 } {103 202 305 306 1 2}
 
 sqlite3_finalize $::STMT
 
 finish_test