Import SQLite 3.8.7.4.

third_party/sqlite/src/test/sqllimits1.test

 # 2007 May 8
 #
 # 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 33 matching lines @@
 } $SQLITE_MAX_FUNCTION_ARG
 do_test sqllimits1-1.8 {
   sqlite3_limit db SQLITE_LIMIT_ATTACHED -1
 } $SQLITE_MAX_ATTACHED
 do_test sqllimits1-1.9 {
   sqlite3_limit db SQLITE_LIMIT_LIKE_PATTERN_LENGTH -1
 } $SQLITE_MAX_LIKE_PATTERN_LENGTH
 do_test sqllimits1-1.10 {
   sqlite3_limit db SQLITE_LIMIT_VARIABLE_NUMBER -1
 } $SQLITE_MAX_VARIABLE_NUMBER
+do_test sqllimits1-1.11 {
+  sqlite3_limit db SQLITE_LIMIT_TRIGGER_DEPTH -1
+} $SQLITE_MAX_TRIGGER_DEPTH
+do_test sqllimits1-1.12 {
+  sqlite3_limit db SQLITE_LIMIT_WORKER_THREADS 99999
+  sqlite3_limit db SQLITE_LIMIT_WORKER_THREADS -1
+} $SQLITE_MAX_WORKER_THREADS
 
 # Limit parameters out of range.
 #
 do_test sqllimits1-1.20 {
   sqlite3_limit db SQLITE_LIMIT_TOOSMALL 123
 } {-1}
 do_test sqllimits1-1.21 {
   sqlite3_limit db SQLITE_LIMIT_TOOSMALL 123
 } {-1}
 do_test sqllimits1-1.22 {
@@ skipping 248 matching lines @@
 } {SQLITE_ERROR}
 do_test sqllimits1-5.14.3 {
   sqlite3_reset $::STMT 
 } {SQLITE_TOOBIG}
 do_test sqllimits1-5.14.4 {
   set np1 [expr {$SQLITE_LIMIT_LENGTH + 1}]
   set ::str1 [string repeat A $np1]
   catch {sqlite3_bind_text $::STMT 1 $::str1 -1} res
   set res
 } {SQLITE_TOOBIG}
-do_test sqllimits1-5.14.5 {
-  catch {sqlite3_bind_text16 $::STMT 1 $::str1 -1} res
-  set res
-} {SQLITE_TOOBIG}
+ifcapable utf16 {
+  do_test sqllimits1-5.14.5 {
+    catch {sqlite3_bind_text16 $::STMT 1 $::str1 -1} res
+    set res
+  } {SQLITE_TOOBIG}
+}
 do_test sqllimits1-5.14.6 {
   catch {sqlite3_bind_text $::STMT 1 $::str1 $np1} res
   set res
 } {SQLITE_TOOBIG}
-do_test sqllimits1-5.14.7 {
-  catch {sqlite3_bind_text16 $::STMT 1 $::str1 $np1} res
-  set res
-} {SQLITE_TOOBIG}
+ifcapable utf16 {
+  do_test sqllimits1-5.14.7 {
+    catch {sqlite3_bind_text16 $::STMT 1 $::str1 $np1} res
+    set res
+  } {SQLITE_TOOBIG}
+}
 do_test sqllimits1-5.14.8 {
   set n [expr {$np1-1}]
   catch {sqlite3_bind_text $::STMT 1 $::str1 $n} res
   set res
 } {}
 do_test sqllimits1-5.14.9 {
   catch {sqlite3_bind_text16 $::STMT 1 $::str1 $n} res
   set res
 } {}
 sqlite3_finalize $::STMT 
@@ skipping 404 matching lines @@
   } {1 {too many arguments on function myfunc}}
 }
 
 #--------------------------------------------------------------------
 # Test cases sqllimits1-12.*: Test the SQLITE_MAX_ATTACHED limit.
 #
 ifcapable attach {
   do_test sqllimits1-12.1 {
     set max $::SQLITE_MAX_ATTACHED
     for {set i 0} {$i < ($max)} {incr i} {
-      file delete -force test${i}.db test${i}.db-journal
+      forcedelete test${i}.db test${i}.db-journal
     }
     for {set i 0} {$i < ($max)} {incr i} {
       execsql "ATTACH 'test${i}.db' AS aux${i}"
     }
     catchsql "ATTACH 'test${i}.db' AS aux${i}"
   } "1 {too many attached databases - max $::SQLITE_MAX_ATTACHED}"
   do_test sqllimits1-12.2 {
     set max $::SQLITE_MAX_ATTACHED
     for {set i 0} {$i < ($max)} {incr i} {
       execsql "DETACH aux${i}"
@@ skipping 62 matching lines @@
   catchsql {
     SELECT strftime($::format, 1);
   }
 } {1 {string or blob too big}}
 
 
 foreach {key value} [array get saved] {
   catch {set $key $value}
 }
 finish_test