xref: /sqlite-3.40.0/test/malloc8.test (revision ed138fb3) 
1# 2007 April 25
2#
3# The author disclaims copyright to this source code.  In place of
4# a legal notice, here is a blessing:
5#
6#    May you do good and not evil.
7#    May you find forgiveness for yourself and forgive others.
8#    May you share freely, never taking more than you give.
9#
10#***********************************************************************
11# This file contains additional out-of-memory checks (see malloc.tcl)
12# added to expose a bug in out-of-memory handling for sqlite3_value_text()
13#
14# $Id: malloc8.test,v 1.4 2007/08/22 22:04:37 drh Exp $
15
16set testdir [file dirname $argv0]
17source $testdir/tester.tcl
18
19# Only run these tests if memory debugging is turned on.
20#
21ifcapable !memdebug {
22   puts "Skipping malloc tests: not compiled with -DSQLITE_MEMDEBUG..."
23   finish_test
24   return
25}
26
27source $testdir/malloc_common.tcl
28
29# The setup is a database with UTF-16 encoding that contains a single
30# large string.  We will be running lots of queries against this
31# database.  Because we will be extracting the string as UTF-8, there
32# is a type conversion that occurs and thus an opportunity for malloc()
33# to fail and for sqlite3_value_text() to return 0 even though
34# sqlite3_value_type() returns SQLITE_TEXT.
35#
36
37do_malloc_test malloc8-1 -sqlprep {
38  PRAGMA encoding='UTF-16';
39  CREATE TABLE t1(a);
40  INSERT INTO t1
41  VALUES('0123456789aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ');
42} -sqlbody {
43  SELECT lower(a), upper(a), quote(a), trim(a), trim('x',a) FROM t1;
44}
45do_malloc_test malloc8-2 -sqlprep {
46  PRAGMA encoding='UTF-16';
47  CREATE TABLE t1(a);
48  INSERT INTO t1
49  VALUES('0123456789aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ');
50} -sqlbody {
51  SELECT replace(a,'x','y'), replace('x',a,'y'), replace('x','y',a)
52    FROM t1;
53}
54do_malloc_test malloc8-3 -sqlprep {
55  PRAGMA encoding='UTF-16';
56  CREATE TABLE t1(a);
57  INSERT INTO t1
58  VALUES('0123456789aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ');
59} -sqlbody {
60  SELECT length(a), substr(a, 4, 4) FROM t1;
61}
62do_malloc_test malloc8-4 -sqlprep {
63  PRAGMA encoding='UTF-16';
64  CREATE TABLE t1(a);
65  INSERT INTO t1
66  VALUES('0123456789aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ');
67} -sqlbody {
68  SELECT julianday(a,a) FROM t1;
69}
70do_malloc_test malloc8-5 -sqlprep {
71  PRAGMA encoding='UTF-16';
72  CREATE TABLE t1(a);
73  INSERT INTO t1
74  VALUES('0123456789aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ');
75} -sqlbody {
76  SELECT 1 FROM t1 WHERE a LIKE 'hello' ESCAPE NULL;
77}
78do_malloc_test malloc8-6 -sqlprep {
79  PRAGMA encoding='UTF-16';
80  CREATE TABLE t1(a);
81  INSERT INTO t1
82  VALUES('0123456789aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ');
83} -sqlbody {
84  SELECT hex(randomblob(100));
85}
86
87# Ensure that no file descriptors were leaked.
88do_test malloc-99.X {
89  catch {db close}
90  set sqlite_open_file_count
91} {0}
92
93finish_test
94