Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Added some tests. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | dkf-dict-with-compiled |
| Files: | files | file ages | folders |
| SHA1: |
55b7d7fafb328a1d5c49a7de1442b4ca |
| User & Date: | dkf 2011-10-05 14:19:47 |
Context
|
2011-10-05
| ||
| 14:21 | merge trunk check-in: 055aae0b17 user: dkf tags: dkf-dict-with-compiled | |
| 14:19 | Added some tests. check-in: 55b7d7fafb user: dkf tags: dkf-dict-with-compiled | |
|
2011-10-04
| ||
| 08:44 | merge trunk check-in: 7d5b912b37 user: dkf tags: dkf-dict-with-compiled | |
Changes
Changes to tests/dict.test.
| ︙ | ︙ | |||
1354 1355 1356 1357 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367 |
}
}
}
string range [append foo OK] end-1 end
} -cleanup {
unset foo t inner
} -result OK
# cleanup
::tcltest::cleanupTests
return
# Local Variables:
# mode: tcl
| > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 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 1394 1395 1396 1397 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 |
}
}
}
string range [append foo OK] end-1 end
} -cleanup {
unset foo t inner
} -result OK
test dict-22.12 {dict with: compiled} {
apply {{} {
set d {a 1 b 2}
list [dict with d {
set a $b
unset b
dict set d c 3
list ok
}] $d
}}
} {ok {a 2 c 3}}
test dict-22.13 {dict with: compiled} {
apply {i {
set d($i) {a 1 b 2}
list [dict with d($i) {
set a $b
unset b
dict set d($i) c 3
list ok
}] [array get d]
}} e
} {ok {e {a 2 c 3}}}
test dict-22.14 {dict with: compiled} {
apply {{} {
set d {a 1 b 2}
foreach x {1 2 3} {
dict with d {
incr a $b
if {$x == 2} break
}
unset a b
}
list $a $b $x $d
}}
} {5 2 2 {a 5 b 2}}
test dict-22.15 {dict with: compiled} {
apply {i {
set d($i) {a 1 b 2}
foreach x {1 2 3} {
dict with d($i) {
incr a $b
if {$x == 2} break
}
unset a b
}
list $a $b $x [array get d]
}} e
} {5 2 2 {e {a 5 b 2}}}
test dict-22.16 {dict with: compiled} {
apply {{} {
set d {p {q {a 1 b 2}}}
dict with d p q {
set a $b.$a
}
return $d
}}
} {p {q {a 2.1 b 2}}}
test dict-22.17 {dict with: compiled} {
apply {i {
set d($i) {p {q {a 1 b 2}}}
dict with d($i) p q {
set a $b.$a
}
array get d
}} e
} {e {p {q {a 2.1 b 2}}}}
# cleanup
::tcltest::cleanupTests
return
# Local Variables:
# mode: tcl
|
| ︙ | ︙ |