| Index: third_party/sqlite/src/test/mallocB.test
|
| diff --git a/third_party/sqlite/src/test/mallocB.test b/third_party/sqlite/src/test/mallocB.test
|
| new file mode 100644
|
| index 0000000000000000000000000000000000000000..73468b5099f2967d2f34af11602fe9109489c1a1
|
| --- /dev/null
|
| +++ b/third_party/sqlite/src/test/mallocB.test
|
| @@ -0,0 +1,51 @@
|
| +# 2007 May 30
|
| +#
|
| +# 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 contains additional out-of-memory checks (see malloc.tcl).
|
| +# These were all discovered by fuzzy generation of SQL. Apart from
|
| +# that they have little in common.
|
| +#
|
| +#
|
| +# $Id: mallocB.test,v 1.9 2008/02/18 22:24:58 drh Exp $
|
| +
|
| +set testdir [file dirname $argv0]
|
| +source $testdir/tester.tcl
|
| +source $testdir/malloc_common.tcl
|
| +
|
| +# Only run these tests if memory debugging is turned on.
|
| +#
|
| +if {!$MEMDEBUG} {
|
| + puts "Skipping mallocB tests: not compiled with -DSQLITE_MEMDEBUG..."
|
| + finish_test
|
| + return
|
| +}
|
| +source $testdir/malloc_common.tcl
|
| +
|
| +do_malloc_test mallocB-1 -sqlbody {SELECT - 456}
|
| +do_malloc_test mallocB-2 -sqlbody {SELECT - 456.1}
|
| +do_malloc_test mallocB-3 -sqlbody {SELECT random()}
|
| +do_malloc_test mallocB-4 -sqlbody {SELECT length(zeroblob(1000))}
|
| +ifcapable subquery {
|
| + do_malloc_test mallocB-5 -sqlbody {SELECT * FROM (SELECT 1) GROUP BY 1;}
|
| +}
|
| +
|
| +# The following test checks that there are no resource leaks following a
|
| +# malloc() failure in sqlite3_set_auxdata().
|
| +#
|
| +# Note: This problem was not discovered by fuzzy generation of SQL. Not
|
| +# that it really matters.
|
| +#
|
| +do_malloc_test mallocB-6 -sqlbody { SELECT test_auxdata('hello world'); }
|
| +
|
| +do_malloc_test mallocB-7 -sqlbody {
|
| + SELECT strftime(hex(randomblob(50)) || '%Y', 'now')
|
| +}
|
| +
|
| +finish_test
|
|
|