Index: third_party/sqlite/sqlite-src-3080704/test/mallocH.test |
diff --git a/third_party/sqlite/sqlite-src-3080704/test/mallocH.test b/third_party/sqlite/sqlite-src-3080704/test/mallocH.test |
new file mode 100644 |
index 0000000000000000000000000000000000000000..7017b381ab1d8595648ab3be0d28423072878350 |
--- /dev/null |
+++ b/third_party/sqlite/sqlite-src-3080704/test/mallocH.test |
@@ -0,0 +1,73 @@ |
+# 2008 August 01 |
+# |
+# 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 test script checks malloc failures in various obscure operations. |
+# |
+# $Id: mallocH.test,v 1.2 2008/08/01 20:10:09 drh Exp $ |
+ |
+set testdir [file dirname $argv0] |
+source $testdir/tester.tcl |
+source $testdir/malloc_common.tcl |
+ |
+# Malloc failures in journaling of in-memory databases. |
+# |
+do_malloc_test mallocH-1 -tclprep { |
+ db close |
+ sqlite3 db :memory: |
+ db eval { |
+ CREATE TABLE t1(x UNIQUE, y); |
+ INSERT INTO t1 VALUES(1,2); |
+ } |
+} -sqlbody { |
+ INSERT INTO t1 SELECT x+1, y+100 FROM t1; |
+} |
+ |
+# Malloc failures while parsing a CASE expression. |
+# |
+do_malloc_test mallocH-2 -sqlbody { |
+ SELECT CASE WHEN 1 THEN 1 END; |
+} |
+ |
+# Malloc failures while parsing a EXISTS(SELECT ...) |
+# |
+do_malloc_test mallocH-3 -sqlbody { |
+ SELECT 3+EXISTS(SELECT * FROM sqlite_master); |
+} |
+ |
+# Malloc failures within the replace() function. |
+# |
+do_malloc_test mallocH-3 -sqlbody { |
+ SELECT replace('ababa','a','xyzzy'); |
+} |
+ |
+# Malloc failures during EXPLAIN. |
+# |
+ifcapable explain { |
+ do_malloc_test mallocH-4 -sqlprep { |
+ CREATE TABLE abc(a PRIMARY KEY, b, c); |
+ } -sqlbody { |
+ EXPLAIN SELECT * FROM abc AS t2 WHERE rowid=1; |
+ EXPLAIN QUERY PLAN SELECT * FROM abc AS t2 WHERE rowid=1; |
+ } |
+} |
+ |
+# Malloc failure during integrity_check pragma. |
+# |
+do_malloc_test mallocH-5 -sqlprep { |
+ CREATE TABLE t1(a PRIMARY KEY, b UNIQUE); |
+ CREATE TABLE t2(x,y); |
+ INSERT INTO t1 VALUES(1,2); |
+ INSERT INTO t2 SELECT * FROM t1; |
+} -sqlbody { |
+ PRAGMA integrity_check; |
+} |
+ |
+finish_test |