|
1 # 2007 Aug 29 |
|
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 # |
|
12 # This test script checks that tickets #2794, #2795, #2796, and #2797 |
|
13 # have been fixed. |
|
14 # |
|
15 # $Id: mallocF.test,v 1.4 2008/02/18 22:24:58 drh Exp $ |
|
16 |
|
17 set testdir [file dirname $argv0] |
|
18 source $testdir/tester.tcl |
|
19 source $testdir/malloc_common.tcl |
|
20 |
|
21 # Only run these tests if memory debugging is turned on. |
|
22 # |
|
23 if {!$MEMDEBUG} { |
|
24 puts "Skipping mallocF tests: not compiled with -DSQLITE_MEMDEBUG..." |
|
25 finish_test |
|
26 return |
|
27 } |
|
28 |
|
29 # tickets #2794 and #2795 and #2797 |
|
30 # |
|
31 set PREP { |
|
32 CREATE TABLE t1(x,y); |
|
33 INSERT INTO t1 VALUES('abc123', 5); |
|
34 INSERT INTO t1 VALUES('xyz987', 42); |
|
35 } |
|
36 do_malloc_test malloeF-1 -sqlprep $PREP -sqlbody { |
|
37 SELECT * FROM t1 WHERE x GLOB 'abc*' |
|
38 } |
|
39 |
|
40 # ticket #2796 |
|
41 # |
|
42 set PREP { |
|
43 CREATE TABLE t1(x PRIMARY KEY,y UNIQUE); |
|
44 INSERT INTO t1 VALUES('abc123', 5); |
|
45 INSERT INTO t1 VALUES('xyz987', 42); |
|
46 } |
|
47 do_malloc_test malloeF-2 -sqlprep $PREP -sqlbody { |
|
48 SELECT x FROM t1 |
|
49 WHERE y=1 OR y=2 OR y=3 OR y=4 OR y=5 |
|
50 OR y=6 OR y=7 OR y=8 OR y=9 OR y=10 |
|
51 OR y=11 OR y=12 OR y=13 OR y=14 OR y=15 |
|
52 OR y=x |
|
53 } |
|
54 |
|
55 set PREP { |
|
56 CREATE TABLE t1(x PRIMARY KEY,y UNIQUE); |
|
57 INSERT INTO t1 VALUES('abc123', 5); |
|
58 INSERT INTO t1 VALUES('xyz987', 42); |
|
59 } |
|
60 do_malloc_test malloeF-3 -sqlprep $PREP -sqlbody { |
|
61 SELECT x FROM t1 WHERE y BETWEEN 10 AND 29 |
|
62 } |
|
63 |
|
64 # Ticket #2843 |
|
65 # |
|
66 set PREP { |
|
67 CREATE TABLE t1(x); |
|
68 CREATE TRIGGER r1 BEFORE INSERT ON t1 BEGIN |
|
69 SELECT 'hello'; |
|
70 END; |
|
71 } |
|
72 do_malloc_test mallocF-4 -sqlprep $PREP -sqlbody { |
|
73 INSERT INTO t1 VALUES(random()); |
|
74 } |
|
75 |
|
76 finish_test |