Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | 3606391 trace.test test independence |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-5-branch |
| Files: | files | file ages | folders |
| SHA1: |
b94141ae1da0d1084edba13823bfcafa |
| User & Date: | dgp 2013-03-11 19:05:11 |
Context
|
2013-03-12
| ||
| 08:45 | Patch by Andrew Shadura, providing better support for three architectures they have in Debian. check-in: 2544c55254 user: jan.nijtmans tags: core-8-5-branch | |
|
2013-03-11
| ||
| 19:06 | 3606391 trace.test test independence. check-in: 47cb241e14 user: dgp tags: trunk | |
| 19:05 | 3606391 trace.test test independence check-in: b94141ae1d user: dgp tags: core-8-5-branch | |
| 17:37 | Greater protection against double TclFreeObj() calls in TCL_MEM_DEBUG mode. check-in: 3474bcc2db user: dgp tags: core-8-5-branch | |
Changes
Changes to tests/trace.test.
| ︙ | ︙ | |||
1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 |
trace add command foo rename traceCommand
rename foo {}
set info
} {}
test trace-19.4 {trace add command rename doesn't trace recreated commands} {
proc foo {} {}
catch {rename bar {}}
trace add command foo rename traceCommand
proc foo {} {}
rename foo bar
set info
} {}
test trace-19.5 {trace add command deleted removes traces} {
proc foo {} {}
trace add command foo rename traceCommand
proc foo {} {}
trace info command foo
} {}
| > > | | < > > > | | > > > > > > > | | > > > > > > > | | > > > > > > > | > | > > > > > > | | 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388 1389 1390 1391 1392 1393 |
trace add command foo rename traceCommand
rename foo {}
set info
} {}
test trace-19.4 {trace add command rename doesn't trace recreated commands} {
proc foo {} {}
catch {rename bar {}}
set info {}
trace add command foo rename traceCommand
proc foo {} {}
rename foo bar
set info
} {}
test trace-19.5 {trace add command deleted removes traces} {
proc foo {} {}
trace add command foo rename traceCommand
proc foo {} {}
trace info command foo
} {}
test trace-19.6 {trace add command rename in namespace} -setup {
namespace eval tc {}
proc tc::tcfoo {} {}
} -body {
trace add command tc::tcfoo rename traceCommand
rename tc::tcfoo tc::tcbar
set info
} -cleanup {
namespace delete tc
} -result {::tc::tcfoo ::tc::tcbar rename}
test trace-19.7 {trace add command rename in namespace back again} -setup {
namespace eval tc {}
proc tc::tcfoo {} {}
} -body {
trace add command tc::tcfoo rename traceCommand
rename tc::tcfoo tc::tcbar
rename tc::tcbar tc::tcfoo
set info
} -cleanup {
namespace delete tc
} -result {::tc::tcbar ::tc::tcfoo rename}
test trace-19.8 {trace add command rename in namespace to out of namespace} -setup {
namespace eval tc {}
proc tc::tcfoo {} {}
} -body {
trace add command tc::tcfoo rename traceCommand
rename tc::tcfoo tcbar
set info
} -cleanup {
catch {rename tcbar {}}
namespace delete tc
} -result {::tc::tcfoo ::tcbar rename}
test trace-19.9 {trace add command rename back into namespace} -setup {
namespace eval tc {}
proc tc::tcfoo {} {}
} -body {
trace add command tc::tcfoo rename traceCommand
rename tc::tcfoo tcbar
rename tcbar tc::tcfoo
set info
} -cleanup {
namespace delete tc
} -result {::tcbar ::tc::tcfoo rename}
test trace-19.10 {trace add command failed rename doesn't trigger trace} {
set info {}
proc foo {} {}
proc bar {} {}
trace add command foo {rename delete} traceCommand
catch {rename foo bar}
set info
} {}
catch {rename foo {}}
catch {rename bar {}}
test trace-19.11 {trace add command qualifies when renamed in namespace} -setup {
namespace eval tc {}
proc tc::tcfoo {} {}
} -body {
set info {}
trace add command tc::tcfoo {rename delete} traceCommand
namespace eval tc {rename tcfoo tcbar}
set info
} -cleanup {
namespace delete tc
} -result {::tc::tcfoo ::tc::tcbar rename}
# Make sure it exists again
proc foo {} {}
test trace-20.1 {trace add command (delete option)} {
trace add command foo delete traceCommand
rename foo ""
|
| ︙ | ︙ |