-C Minor\simprovements\sto\sthe\spermutations.test\sscript.\sMost\snotably,\sa\scommand\nlike\s"permutations.test\salter%"\snow\sruns\sall\stest\sscripts\swith\snames\sthat\nmatch\sthe\sLIKE\spattern\s"alter%".\sOr,\ssay,\s"permutations\swal\salter%"\sto\srun\sall\nalter%\stests\sin\swal\smode.
-D 2018-09-18T16:06:42.548
+C Enhance\stester.tcl\sso\sthat\swhen\s"--malloctrace=1"\sis\sspecified,\sthe\stest\ngenerates\sself-contained\sTcl\sscripts\sthat\spresent\sGUIs\sinstead\sof\s*.sql\sfiles\nthat\srequire\sa\sseparate\sprogram\sto\sinterpret.
+D 2018-09-18T17:00:06.795
F .fossil-settings/empty-dirs dbb81e8fc0401ac46a1491ab34a7f2c7c0452f2f06b54ebb845d024ca8283ef1
F .fossil-settings/ignore-glob 35175cdfcf539b2318cb04a9901442804be81cd677d8b889fcc9149c21f239ea
F Makefile.in 01e95208a78b57d056131382c493c963518f36da4c42b12a97eb324401b3a334
F src/test_bestindex.c 78809f11026f18a93fcfd798d9479cba37e1201c830260bf1edc674b2fa9b857
F src/test_blob.c ae4a0620b478548afb67963095a7417cd06a4ec0a56adb453542203bfdcb31ce
F src/test_btree.c 8b2dc8b8848cf3a4db93f11578f075e82252a274
-F src/test_config.c 6c3f341ece48020c4ddbce055643a91c653283b3a6853c46ea18d22e5c72847d
+F src/test_config.c 3bbc5e593f308cbff426bb88c9dbf75deab551e5ddcece1251b8d9a40e55aef5
F src/test_delete.c e2fe07646dff6300b48d49b2fee2fe192ed389e834dd635e3b3bac0ce0bf9f8f
F src/test_demovfs.c a0c3bdd45ed044115c2c9f7779e56eafff18741e
F src/test_devsym.c 1960abbb234b97e9b920f07e99503fc04b443f62bbc3c6ff2c2cea2133e3b8a2
F test/alter4.test 7e93a21fe131e1dfeb317e90056856f96b10381fc7fe3a05e765569a23400433
F test/alterauth.test dc50064e3d57d60cf8708decefed15cfa154242f6d44069858d4c6c9b1aea961
F test/altercol.test 53fb5e218c9296afc160f2c4fcbeaf42bd0604815d9b3896a7d2eec583ad8704
-F test/altermalloc.test e81ac9657ed25c6c5bb09bebfa5a047cd8e4acfc
+F test/altermalloc.test 167a47de41b5c638f5f5c6efb59784002b196fff70f98d9b4ed3cd74a3fb80c9
F test/altermalloc2.test 0231398534c494401a70a1d06a63d7849cb5b317fcc14228cbdb53039eba7eae
F test/altertab.test 3b830144c18ae00abd2a27e3d2851c8bb1ee8fe655fa16d8a5971066dc71b58a
F test/amatch1.test b5ae7065f042b7f4c1c922933f4700add50cdb9f
F test/attach2.test 256bd240da1835fb8408dd59fb7ef71f8358c7a756c46662434d11d07ba3a0ce
F test/attach3.test c59d92791070c59272e00183b7353eeb94915976
F test/attach4.test 53bf502f17647c6d6c5add46dda6bac8b6f4665c
-F test/attachmalloc.test 3a4bfca9545bfe906a8d2e622de10fbac5b711b0
+F test/attachmalloc.test 12c4f028e570acf9e0a4b0b7fe6f536e21f3d5ebddcece423603d0569beaf438
F test/auth.test f0c1a8fc7f07d94e3e26ba7f77eb4a5cedda67b10d9a49275b154ab03749b6c0
F test/auth2.test 9eb7fce9f34bf1f50d3f366fb3e606be5a2000a1
F test/auth3.test db21405b95257c24d29273b6b31d0efc59e1d337e3d5804ba2d1fd4897b1ae49
F test/cacheflush.test af25bb1509df04c1da10e38d8f322d66eceedf61
F test/cachespill.test 895997f84a25b323b166aecb69baab2d6380ea98f9e0bcc688c4493c535cfab9
F test/capi2.test 34a1a9a96d543a2ec2c209696b11b164444f57253b1f2cba1c2e53fadede6c7b
-F test/capi3.test 36f5c859c91a9bb0075d6ddcfcf2476cad629b09f7bfd135776fb94b06c04706
+F test/capi3.test b299c89d80891c6c9b7f0e4b199df002b8b9f11c19f07d4a6eb7b325f1244de0
F test/capi3b.test efb2b9cfd127efa84433cd7a2d72ce0454ae0dc4
-F test/capi3c.test 7ebed1d8fa2f3190149d556fe8cff5a006be62af437c5c4640db614470126098
+F test/capi3c.test e853c6c1f9a596e0bc58153be08706813bf5795d479d6f81581e3bda3f9d0909
F test/capi3d.test 485048dc5cd07bc68011e4917ad035ad6047ab82
F test/capi3e.test 3d49c01ef2a1a55f41d73cba2b23b5059ec460fe
F test/cast.test 5ceb920718d280b61163500a7d29e0e0a86458b1cbd92d96f962c9d970aa3857
F test/crash2.test 5b14d4eb58b880e231361d3b609b216acda86651
F test/crash3.test 8f5de9d32ab9ab95475a9efe7f47a940aa889418
F test/crash4.test fe2821baf37168dc59dd733dcf7dba2a401487bc
-F test/crash5.test 05dd3aa9dbb751a22d5cdaf22a9c49b6667aa219
+F test/crash5.test f14ff37eddc41991be4eb63568f86caa306fd9962a0ae3750db8836777bb7aae
F test/crash6.test 4c56f1e40d0291e1110790a99807aa875b1647ba
F test/crash7.test 1a194c4900a255258cf94b7fcbfd29536db572df
F test/crash8.test 64366e459c28dd62edfb7ad87253a409c7533b92d16fcc479a6a8131bdcc3100
F test/fuzz2.test 76dc35b32b6d6f965259508508abce75a6c4d7e1
F test/fuzz3.test 9c813e6613b837cb7a277b0383cd66bfa07042b4cf0317157c35852f30043c31
F test/fuzz_common.tcl a87dfbb88c2a6b08a38e9a070dabd129e617b45b
-F test/fuzz_malloc.test 5b257a7652d8ee90b22e9cf80d9dbea31a4f3e6fed1d33de57b24b1bdb211d79
+F test/fuzz_malloc.test f348276e732e814802e39f042b1f6da6362a610af73a528d8f76898fde6b22f2
F test/fuzzcheck.c 8074a35ed4ec3735a5e144b7e0e9123d9821a92281756c1a40d43e302dd79243
F test/fuzzdata1.db 7ee3227bad0e7ccdeb08a9e6822916777073c664
F test/fuzzdata2.db 128b3feeb78918d075c9b14b48610145a0dd4c8d6f1ca7c2870c7e425f5bf31f
F test/incrblob2.test a494c9e848560039a23974b9119cfc2cf3ad3bd15cc2694ee6367ae537ef8f1f
F test/incrblob3.test d8d036fde015d4a159cd3cbae9d29003b37227a4
F test/incrblob4.test 21a52a6843a56cdcce968c6a86b72a7066d0e6ba
-F test/incrblob_err.test 69f9247fed50278d48ea710d1a8f9cdb09e4c0b8
+F test/incrblob_err.test 89372a28f1d98254f03fed705f9efcd34ef61a674df16d2dbb4726944a2de5e9
F test/incrblobfault.test 74dd8ac108304cea0b4a0df6df63a1567e558758
F test/incrcorrupt.test 6c567fbf870aa9e91866fe52ce6f200cd548939a
F test/incrvacuum.test b729aab1d4983037da57e66c20dfd7458561a85626dcf824f60175e35f4ce152
F test/mallocL.test fb311ff80afddf3b1a75e52289081f4754d901dc
F test/mallocM.test 78bbe9d3da84a5c679123cdb40d7b2010b18fc46e13897e4f253c6ba6fbff134
F test/malloc_common.tcl aac62499b76be719fac31e7a3e54a7fd53272e7f
+F test/malloctraceviewer.tcl b7a54595270c1d201abf1c3f3d461f27eaf24cdef623ad08a0fe5e411264c8a9
F test/manydb.test 28385ae2087967aa05c38624cec7d96ec74feb3e
F test/mem5.test c6460fba403c5703141348cd90de1c294188c68f
F test/memdb.test c1f2a343ad14398d5d6debda6ea33e80d0dafcc7
F test/pragma4.test 3046501bee2f652dc2a4f9c87781e2741361d6864439c8381aba6c3b774b335c
F test/pragma5.test 824ce6ced5d6b7ec71abe37fc6005ff836fe39d638273dc5192b39864b9ee983
F test/pragmafault.test 275edaf3161771d37de60e5c2b412627ac94cef11739236bec12ed1258b240f8
-F test/printf.test b3ff34e73d59124140eaf89f7672e21bc2ca5fcc
+F test/printf.test a3e559bc9d922e7fe44e9d05c6965fee34fe3bc28300a4248c6a063425246ffd
F test/printf2.test 30b5dd0b4b992dc5626496846ecce17ff592cacbcb11c3e589f3ac4d7e129dae
F test/progress.test ebab27f670bd0d4eb9d20d49cef96e68141d92fb
F test/ptrchng.test ef1aa72d6cf35a2bbd0869a649b744e9d84977fc
F test/sysfault.test c9f2b0d8d677558f74de750c75e12a5454719d04
F test/tabfunc01.test c47171c36b3d411df2bd49719dcaa5d034f8d277477fd41d253940723b969a51
F test/table.test b708f3e5fa2542fa51dfab21fc07b36ea445cb2f
-F test/tableapi.test 2674633fa95d80da917571ebdd759a14d9819126
+F test/tableapi.test ecbcc29c4ab62c1912c3717c48ea5c5e59f7d64e4a91034e6148bd2b82f177f4
F test/tableopts.test dba698ba97251017b7c80d738c198d39ab747930
F test/tclsqlite.test 5337e8890b96dad1ee541b15fbeec32e6bac2fe7fa096f91089057385aadba9b
F test/tempdb.test 4cdaa23ddd8acb4d79cbb1b68ccdfd09b0537aaba909ca69a876157c2a2cbd08
F test/temptable2.test d2940417496e2b9548e01d09990763fbe88c316504033256d51493e1f1a5ce6a
F test/temptable3.test d11a0974e52b347e45ee54ef1923c91ed91e4637
F test/temptrigger.test 38f0ca479b1822d3117069e014daabcaacefffcc
-F test/tester.tcl d5138d226cc2aaacb6934cdd79acaa5edd17cad862482895b833bbf62c49aca0
+F test/tester.tcl fa5656391e3b477508abe12b3b81f019b2e71397399ab38a2f32d8d7f3bf8e56
F test/thread001.test b61a29dd87cf669f5f6ac96124a7c97d71b0c80d9012746072055877055cf9ef
F test/thread002.test e630504f8a06c00bf8bbe68528774dd96aeb2e58
F test/thread003.test ee4c9efc3b86a6a2767516a37bd64251272560a7
F test/trigger7.test 93cfa9b48ab9104b2b3d87bc544ac8021405643e36f23ee84635fbfaf9b8fef5
F test/trigger8.test 30cb0530bd7c4728055420e3f739aa00412eafa4
F test/trigger9.test 2226ec795a33b0460ab5cf8891e9054cc7edef41
-F test/triggerA.test fe5597f47ee21bacb4936dc827994ed94161e332
+F test/triggerA.test 837be862d8721f903dba3f3ceff05b32e0bee5214cf6ea3da5fadf12d3650e9d
F test/triggerB.test 56780c031b454abac2340dbb3b71ac5c56c3d7fe
F test/triggerC.test 302d8995f5ffe63bbc15053abb3ef7a39cf5a092
F test/triggerD.test 8e7f3921a92a5797d472732108109e44575fa650
F test/vtabI.test 751b07636700dbdea328e4265b6077ccd6811a3f
F test/vtabJ.test d7b73675708cf63cfcb9d443bb451fc01a028347275b7311e51f9fdf3ca6757f
F test/vtab_alter.test 736e66fb5ec7b4fee58229aa3ada2f27ec58bc58c00edae4836890c3784c6783
-F test/vtab_err.test 0d4d8eb4def1d053ac7c5050df3024fd47a3fbd8
+F test/vtab_err.test 1c476cac24c9c730f83cd7c8bf66482a30151be08d36a2283f87fc38a2dacbb1
F test/vtab_shared.test 5253bff2355a9a3f014c15337da7e177ab0ef8ad
F test/wal.test 613efec03e517e1775d86b993a54877d2e29a477
F test/wal2.test 155b9efa999bdb38ce1cd729b9a4fcdbffd6b88be27f039bad1d2929d287d918
F vsixtest/vsixtest.vcxproj.data 2ed517e100c66dc455b492e1a33350c1b20fbcdc
F vsixtest/vsixtest.vcxproj.filters 37e51ffedcdb064aad6ff33b6148725226cd608e
F vsixtest/vsixtest_TemporaryKey.pfx e5b1b036facdb453873e7084e1cae9102ccc67a0
-P d1365a5bf0ee2f145427b81d2a593f539c3ad4705d579478703c1f65ae5f80bf
-R 04fce42a1b99ed4e3f6aae31501aa2b5
+P 3e1a2f6614eacb65e1dffe64c6292c809fc5808be2d9d7d103cfc57d7b32fcd9
+R e3886b1f8760e45d3fbfc8f6d69183e6
U dan
-Z 31ac11585131622d50cd5cff75846297
+Z 0af372fccee1295faf720b1e25ced7fe
-3e1a2f6614eacb65e1dffe64c6292c809fc5808be2d9d7d103cfc57d7b32fcd9
\ No newline at end of file
+de2e3cbd08c00d235106c040fa472ec267ef8f1ec13c34ed7d16deac8d50b6cc
\ No newline at end of file
STRINGVALUE(SQLITE_MAX_WORKER_THREADS), TCL_GLOBAL_ONLY
);
-#if 1 /* def SQLITE_MEMDEBUG */
+#ifdef SQLITE_MEMDEBUG
Tcl_SetVar2(interp, "sqlite_options", "memdebug", "1", TCL_GLOBAL_ONLY);
#else
Tcl_SetVar2(interp, "sqlite_options", "memdebug", "0", TCL_GLOBAL_ONLY);
source $testdir/tester.tcl
# If SQLITE_OMIT_ALTERTABLE is defined, omit this file.
-ifcapable !altertable||!memdebug {
+ifcapable !altertable {
finish_test
return
}
set testdir [file dirname $argv0]
source $testdir/tester.tcl
-ifcapable !memdebug||!attach {
+ifcapable !attach {
finish_test
return
}
# Test the error message when a "real" out of memory occurs.
if { [permutation] != "nofaultsim" } {
-ifcapable memdebug {
do_test capi3-10-1 {
sqlite3 db test.db
set DB [sqlite3_connection_pointer db]
db close
sqlite3_memdebug_fail -1
}
-}
# The following tests - capi3-11.* - test that a COMMIT or ROLLBACK
# statement issued while there are still outstanding VMs that are part of
# Test the error message when a "real" out of memory occurs.
if { [permutation] != "nofaultsim" } {
-ifcapable memdebug {
do_test capi3c-10-1 {
sqlite3 db test.db
set DB [sqlite3_connection_pointer db]
db close
sqlite3_memdebug_fail -1
}
-}
# The following tests - capi3c-11.* - test that a COMMIT or ROLLBACK
# statement issued while there are still outstanding VMs that are part of
# Only run these tests if memory debugging is turned on.
#
-ifcapable !memdebug||!crashtest||!memorymanage {
+ifcapable !crashtest||!memorymanage {
puts "Skipping crash5 tests: not compiled with -DSQLITE_MEMDEBUG..."
finish_test
return
set testdir [file dirname $argv0]
source $testdir/tester.tcl
-ifcapable !memdebug {
- finish_test
- return
-}
-
source $testdir/malloc_common.tcl
source $testdir/fuzz_common.tcl
source $testdir/tester.tcl
set ::testprefix incrblob_err
-ifcapable {!incrblob || !memdebug || !tclvar} {
+ifcapable {!incrblob || !tclvar} {
finish_test
return
}
--- /dev/null
+
+package require sqlite3
+package require Tk
+
+#############################################################################
+# Code to set up scrollbars for widgets. This is generic, boring stuff.
+#
+namespace eval autoscroll {
+ proc scrollable {widget path args} {
+ ::ttk::frame $path
+ set w [$widget ${path}.widget {*}$args]
+ set vs [::ttk::scrollbar ${path}.vs]
+ set hs [::ttk::scrollbar ${path}.hs -orient horizontal]
+ grid $w -row 0 -column 0 -sticky nsew
+
+ grid rowconfigure $path 0 -weight 1
+ grid columnconfigure $path 0 -weight 1
+
+ set grid [list grid $vs -row 0 -column 1 -sticky nsew]
+ $w configure -yscrollcommand [list ::autoscroll::scrollcommand $grid $vs]
+ $vs configure -command [list $w yview]
+ set grid [list grid $hs -row 1 -column 0 -sticky nsew]
+ $w configure -xscrollcommand [list ::autoscroll::scrollcommand $grid $hs]
+ $hs configure -command [list $w xview]
+
+ return $w
+ }
+ proc scrollcommand {grid sb args} {
+ $sb set {*}$args
+ set isRequired [expr {[lindex $args 0] != 0.0 || [lindex $args 1] != 1.0}]
+ if {$isRequired && ![winfo ismapped $sb]} {
+ {*}$grid
+ }
+ if {!$isRequired && [winfo ismapped $sb]} {
+ grid forget $sb
+ }
+ }
+ namespace export scrollable
+}
+namespace import ::autoscroll::*
+#############################################################################
+
+proc populate_text_widget {db} {
+ $::O(text) configure -state normal
+ set id [lindex [$::O(tree) selection] 0]
+ set frame [lindex $id end]
+
+ set line [$db one {SELECT line FROM frame WHERE frame = $frame}]
+ if {$line ne ""} {
+ foreach {file line} [split $line :] {}
+ set content [$db one "SELECT content FROM file WHERE name = '$file'"]
+ $::O(text) delete 0.0 end
+
+ set iLine 1
+ foreach L [split $content "\n"] {
+ if {$iLine == $line} {
+ $::O(text) insert end "$L\n" highlight
+ } else {
+ $::O(text) insert end "$L\n"
+ }
+ incr iLine
+ }
+ $::O(text) yview -pickplace ${line}.0
+ }
+ $::O(text) configure -state disabled
+}
+
+proc populate_index {db} {
+ $::O(text) configure -state normal
+
+ $::O(text) delete 0.0 end
+ $::O(text) insert end "\n\n"
+
+ set L [format " % -40s%12s%12s\n" "Test Case" "Allocations" "Bytes"]
+ $::O(text) insert end $L
+ $::O(text) insert end " [string repeat - 64]\n"
+
+ $db eval {
+ SELECT 'TOTAL' AS ztest, sum(ncall) AS calls, sum(nbyte) AS bytes
+ FROM malloc
+ UNION ALL
+ SELECT ztest AS ztest, sum(ncall) AS calls, sum(nbyte) AS bytes
+ FROM malloc
+ GROUP BY ztest
+
+ ORDER BY 3 DESC
+ } {
+ set tags [list $ztest]
+ if {$ztest eq $::O(current)} {
+ lappend tags highlight
+ }
+ set L [format " % -40s%12s%12s\n" $ztest $calls $bytes]
+ $::O(text) insert end $L $tags
+
+ $::O(text) tag bind $ztest <1> [list populate_tree_widget $db $ztest]
+ $::O(text) tag bind $ztest <Enter> [list $::O(text) configure -cursor hand2]
+ $::O(text) tag bind $ztest <Leave> [list $::O(text) configure -cursor ""]
+ }
+
+ $::O(text) configure -state disabled
+}
+
+proc sort_tree_compare {iLeft iRight} {
+ global O
+ switch -- [expr (int($O(tree_sort)/2))] {
+ 0 {
+ set left [$O(tree) item $iLeft -text]
+ set right [$O(tree) item $iRight -text]
+ set res [string compare $left $right]
+ }
+ 1 {
+ set left [lindex [$O(tree) item $iLeft -values] 0]
+ set right [lindex [$O(tree) item $iRight -values] 0]
+ set res [expr $left - $right]
+ }
+ 2 {
+ set left [lindex [$O(tree) item $iLeft -values] 1]
+ set right [lindex [$O(tree) item $iRight -values] 1]
+ set res [expr $left - $right]
+ }
+ }
+ if {$O(tree_sort)&0x01} {
+ set res [expr -1 * $res]
+ }
+ return $res
+}
+
+proc sort_tree {iMode} {
+ global O
+ if {$O(tree_sort) == $iMode} {
+ incr O(tree_sort)
+ } else {
+ set O(tree_sort) $iMode
+ }
+ set T $O(tree)
+ set items [$T children {}]
+ set items [lsort -command sort_tree_compare $items]
+ for {set ii 0} {$ii < [llength $items]} {incr ii} {
+ $T move [lindex $items $ii] {} $ii
+ }
+}
+
+proc trim_frames {stack} {
+ while {[info exists ::O(ignore.[lindex $stack 0])]} {
+ set stack [lrange $stack 1 end]
+ }
+ return $stack
+}
+
+proc populate_tree_widget {db zTest} {
+ $::O(tree) delete [$::O(tree) children {}]
+
+ for {set ii 0} {$ii < 15} {incr ii} {
+ $db eval {
+ SELECT
+ sum(ncall) AS calls,
+ sum(nbyte) AS bytes,
+ trim_frames(lrange(lstack, 0, $ii)) AS stack
+ FROM malloc
+ WHERE (zTest = $zTest OR $zTest = 'TOTAL') AND llength(lstack)>$ii
+ GROUP BY stack
+ HAVING stack != ''
+ } {
+ set parent_id [lrange $stack 0 end-1]
+ set frame [lindex $stack end]
+ set line [$db one {SELECT line FROM frame WHERE frame = $frame}]
+ set line [lindex [split $line /] end]
+ set v [list $calls $bytes]
+
+ catch {
+ $::O(tree) insert $parent_id end -id $stack -text $line -values $v
+ }
+ }
+ }
+
+ set ::O(current) $zTest
+ populate_index $db
+}
+
+
+
+set O(tree_sort) 0
+
+::ttk::panedwindow .pan -orient horizontal
+set O(tree) [scrollable ::ttk::treeview .pan.tree]
+
+frame .pan.right
+set O(text) [scrollable text .pan.right.text]
+button .pan.right.index -command {populate_index mddb} -text "Show Index"
+pack .pan.right.index -side top -fill x
+pack .pan.right.text -fill both -expand true
+
+$O(text) tag configure highlight -background wheat
+$O(text) configure -wrap none -height 35
+
+.pan add .pan.tree
+.pan add .pan.right
+
+$O(tree) configure -columns {calls bytes}
+$O(tree) heading #0 -text Line -anchor w -command {sort_tree 0}
+$O(tree) heading calls -text Calls -anchor w -command {sort_tree 2}
+$O(tree) heading bytes -text Bytes -anchor w -command {sort_tree 4}
+$O(tree) column #0 -width 150
+$O(tree) column calls -width 100
+$O(tree) column bytes -width 100
+
+pack .pan -fill both -expand 1
+
+#--------------------------------------------------------------------
+# Open the database containing the malloc data. The user specifies the
+# database to use by passing the file-name on the command line.
+#
+proc open_database {} {
+ if {[info exists ::BUILTIN]} {
+ sqlite3 mddb :memory:
+ mddb eval $::BUILTIN
+ wm title . $::argv0
+ } else {
+ set zFilename [lindex $::argv 0]
+ if {$zFilename eq ""} {
+ set zFilename mallocs.sql
+ }
+ set fd [open $zFilename]
+ set zHdr [read $fd 15]
+ if {$zHdr eq "SQLite format 3"} {
+ close $fd
+ sqlite3 mddb $zFilename
+ } else {
+ seek $fd 0
+ sqlite3 mddb :memory:
+ mddb eval [read $fd]
+ close $fd
+ }
+ wm title . $zFilename
+ }
+
+ mddb function lrange -argcount 3 lrange
+ mddb function llength -argcount 1 llength
+ mddb function trim_frames -argcount 1 trim_frames
+
+ mddb eval {
+ SELECT frame FROM frame
+ WHERE line LIKE '%malloc.c:%' OR line LIKE '%mem2.c:%'
+ } {
+ set ::O(ignore.$frame) 1
+ }
+}
+
+open_database
+bind $O(tree) <<TreeviewSelect>> [list populate_text_widget mddb]
+
+populate_tree_widget mddb [mddb one {SELECT zTest FROM malloc LIMIT 1}]
+
# Now test malloc() failure within a sqlite3_mprintf():
#
-ifcapable memdebug {
- foreach var {a b c d} {
- set $var [string repeat $var 400]
- }
- set str1 "[string repeat A 360]%d%d%s"
- set str2 [string repeat B 5000]
- set zSuccess "[string repeat A 360]11[string repeat B 5000]"
- foreach ::iRepeat {0 1} {
- set nTestNum 1
- while {1} {
- sqlite3_memdebug_fail $nTestNum -repeat $::iRepeat
- set z [sqlite3_mprintf_str $str1 1 1 $str2]
- set nFail [sqlite3_memdebug_fail -1 -benign nBenign]
- do_test printf-malloc-$::iRepeat.$nTestNum {
- expr {($nFail>0 && $z eq "") || ($nFail==$nBenign && $z eq $zSuccess)}
- } {1}
- if {$nFail == 0} break
- incr nTestNum
- }
+foreach var {a b c d} {
+ set $var [string repeat $var 400]
+}
+set str1 "[string repeat A 360]%d%d%s"
+set str2 [string repeat B 5000]
+set zSuccess "[string repeat A 360]11[string repeat B 5000]"
+foreach ::iRepeat {0 1} {
+ set nTestNum 1
+ while {1} {
+ sqlite3_memdebug_fail $nTestNum -repeat $::iRepeat
+ set z [sqlite3_mprintf_str $str1 1 1 $str2]
+ set nFail [sqlite3_memdebug_fail -1 -benign nBenign]
+ do_test printf-malloc-$::iRepeat.$nTestNum {
+ expr {($nFail>0 && $z eq "") || ($nFail==$nBenign && $z eq $zSuccess)}
+ } {1}
+ if {$nFail == 0} break
+ incr nTestNum
}
}
return
}
-ifcapable memdebug {
- source $testdir/malloc_common.tcl
-}
+source $testdir/malloc_common.tcl
do_test tableapi-1.0 {
set ::dbx [sqlite3_open test.db]
sqlite3_close $::dbx
} {SQLITE_OK}
-ifcapable memdebug {
- do_malloc_test tableapi-7 -sqlprep {
- DROP TABLE IF EXISTS t1;
- CREATE TABLE t1(a,b);
- INSERT INTO t1 VALUES(1,2);
- INSERT INTO t1 VALUES(3,4);
- INSERT INTO t1 SELECT a+4, b+4 FROM t1;
- INSERT INTO t1 SELECT a+8, b+8 FROM t1;
- } -tclbody {
- set r [sqlite3_get_table_printf db {SELECT rowid, a, b FROM t1} {}]
- if {[llength $r]<26} {error "out of memory"}
- }
+do_malloc_test tableapi-7 -sqlprep {
+ DROP TABLE IF EXISTS t1;
+ CREATE TABLE t1(a,b);
+ INSERT INTO t1 VALUES(1,2);
+ INSERT INTO t1 VALUES(3,4);
+ INSERT INTO t1 SELECT a+4, b+4 FROM t1;
+ INSERT INTO t1 SELECT a+8, b+8 FROM t1;
+} -tclbody {
+ set r [sqlite3_get_table_printf db {SELECT rowid, a, b FROM t1} {}]
+ if {[llength $r]<26} {error "out of memory"}
}
finish_test
{^-+malloctrace=.+$} {
foreach {dummy cmdlinearg(malloctrace)} [split $a =] break
if {$cmdlinearg(malloctrace)} {
+ if {0==$::sqlite_options(memdebug)} {
+ set err "Error: --malloctrace=1 requires an SQLITE_MEMDEBUG build"
+ puts stderr $err
+ exit 1
+ }
sqlite3_memdebug_log start
}
}
output2 "Unfreed memory: [sqlite3_memory_used] bytes in\
[lindex [sqlite3_status SQLITE_STATUS_MALLOC_COUNT 0] 1] allocations"
incr nErr
- ifcapable memdebug||mem5||(mem3&&debug) {
+ ifcapable mem5||(mem3&&debug) {
output2 "Writing unfreed memory log to \"./memleak.txt\""
sqlite3_memdebug_dump ./memleak.txt
}
} else {
output2 "All memory allocations freed - no leaks"
- ifcapable memdebug||mem5 {
+ ifcapable mem5 {
sqlite3_memdebug_dump ./memusage.txt
}
}
output2 "Number of malloc() : [sqlite3_memdebug_malloc_count] calls"
}
if {$::cmdlinearg(malloctrace)} {
- output2 "Writing mallocs.sql..."
- memdebug_log_sql
+ output2 "Writing mallocs.tcl..."
+ memdebug_log_sql mallocs.tcl
sqlite3_memdebug_log stop
sqlite3_memdebug_log clear
-
if {[sqlite3_memory_used]>0} {
- output2 "Writing leaks.sql..."
+ output2 "Writing leaks.tcl..."
sqlite3_memdebug_log sync
- memdebug_log_sql leaks.sql
+ memdebug_log_sql leaks.tcl
}
}
foreach f [glob -nocomplain test.db-*-journal] {
return [md5 $txt]
}
-proc memdebug_log_sql {{filename mallocs.sql}} {
+proc memdebug_log_sql {filename} {
set data [sqlite3_memdebug_log dump]
set nFrame [expr [llength [lindex $data 0]]-2]
append sql "INSERT INTO ${database}.file VALUES('$f', '$contents');\n"
}
+ set escaped "BEGIN; ${tbl}${tbl2}${tbl3}${sql} ; COMMIT;"
+ set escaped [string map [list "{" "\\{" "}" "\\}"] $escaped]
+
set fd [open $filename w]
- puts $fd "BEGIN; ${tbl}${tbl2}${tbl3}${sql} ; COMMIT;"
+ puts $fd "set BUILTIN {"
+ puts $fd $escaped
+ puts $fd "}"
+ puts $fd {set BUILTIN [string map [list "\\{" "{" "\\}" "}"] $BUILTIN]}
+ set mtv [open $::testdir/malloctraceviewer.tcl]
+ set txt [read $mtv]
+ close $mtv
+ puts $fd $txt
close $fd
}
}
} {3 305 3 9900305 4 404 4 9900404 5 504 5 9900504}
-# Only run the reamining tests if memory debugging is turned on.
-#
-ifcapable !memdebug {
- puts "Skipping triggerA malloc tests: not compiled with -DSQLITE_MEMDEBUG..."
- finish_test
- return
-}
source $testdir/malloc_common.tcl
# Save a copy of the current database configuration.
COMMIT;
}
-ifcapable !memdebug {
- puts "Skipping vtab_err-2 tests: not compiled with -DSQLITE_MEMDEBUG..."
- finish_test
- return
-}
source $testdir/malloc_common.tcl
projects / thirdparty / sqlite.git / commitdiff
