Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Changes In Branch rc-test-uevent-fixes Excluding Merge-Ins
This is equivalent to a diff from 1dc169f990 to bb02043cd1
|
2015-04-14
| ||
| 20:48 | uevent - Merge test fix to release. check-in: 2be3691e9a user: aku tags: tcllib-1-17-rc | |
| 20:44 | struct::pool - Merge fix to release. Bump version to 1.2.3. check-in: a4e99fce81 user: aku tags: tcllib-1-17-rc | |
| 20:33 | Fix (handle) 8.5/8.6 output variance in the snit2 tests. Retest. Closed-Leaf check-in: 49bd682f8b user: andreask tags: rc-test-snit-fixes | |
| 20:26 | Fix (handle) 8.5/8.6 output variance in the struct::set tests. Retest. Closed-Leaf check-in: e42c6f286b user: andreask tags: rc-test-struct-set-fixes | |
| 20:06 | Fix (handle) 8.5/8.6 output variance in the uevent tests. Retest. Closed-Leaf check-in: bb02043cd1 user: andreask tags: rc-test-uevent-fixes | |
| 19:50 | Fix (handle) 8.5/8.6 output variance in the clock tests. Retest. Closed-Leaf check-in: 80acadb004 user: andreask tags: rc-test-clock-fixes | |
| 19:10 | Ticket [624f2300ab]. Fix struct::pool Tcl 8.4 compat. Retest. check-in: 7774dcaf1d user: andreask tags: rc-test-fixes | |
| 06:56 | Updated README check-in: 1dc169f990 user: aku tags: tcllib-1-17-rc | |
| 06:36 | Updated README check-in: 39f14ee444 user: aku tags: tcllib-1-17-rc | |
Changes to modules/uev/uevent.test.
| ︙ | ︙ | |||
348 349 350 351 352 353 354 355 356 357 358 359 360 361 |
# -------------------------------------------------------------------------
proc WATCHE {a t e} {
global res
lappend res $a $t $e
return
}
test uevent-9.0 {watch event add, wrong#args, not enough} {
catch {
::uevent::watch::event::add
} msg
set msg
} {wrong # args: should be "::uevent::watch::event::add tpattern epattern cmdprefix"}
| > > > > > > > > > > > > > | 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 |
# -------------------------------------------------------------------------
proc WATCHE {a t e} {
global res
lappend res $a $t $e
return
}
proc SORTE {} {
global res
set tmp {}
foreach {a t e} $res {
lappend tmp [list $a $t $e]
}
set res {}
foreach item [lsort -dict $tmp] {
foreach {a t e} $item break
lappend res $a $t $e
}
return $res
}
test uevent-9.0 {watch event add, wrong#args, not enough} {
catch {
::uevent::watch::event::add
} msg
set msg
} {wrong # args: should be "::uevent::watch::event::add tpattern epattern cmdprefix"}
|
| ︙ | ︙ | |||
443 444 445 446 447 448 449 450 451 452 453 454 455 |
test uevent-10.3 {watch events, watch after bind, glob} {
set res {}
set t1 [::uevent::bind TAGX E FOO]
set t2 [::uevent::bind TAG E FOO]
set t3 [::uevent::bind TAGX EX FOO]
set t4 [::uevent::bind TAG EX FOO]
set tw [::uevent::watch::event::add TAG* E* WATCHE]
::uevent::unbind $t1
::uevent::unbind $t2
::uevent::unbind $t3
::uevent::unbind $t4
::uevent::watch::event::remove $tw
set res
| > | | 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 |
test uevent-10.3 {watch events, watch after bind, glob} {
set res {}
set t1 [::uevent::bind TAGX E FOO]
set t2 [::uevent::bind TAG E FOO]
set t3 [::uevent::bind TAGX EX FOO]
set t4 [::uevent::bind TAG EX FOO]
set tw [::uevent::watch::event::add TAG* E* WATCHE]
SORTE ;# ensure a canonical order
::uevent::unbind $t1
::uevent::unbind $t2
::uevent::unbind $t3
::uevent::unbind $t4
::uevent::watch::event::remove $tw
set res
} {bound TAG E bound TAG EX bound TAGX E bound TAGX EX unbound TAGX E unbound TAG E unbound TAGX EX unbound TAG EX}
# -------------------------------------------------------------------------
rename EVENT {}
rename EVENT2 {}
rename WATCHT {}
rename WATCHE {}
catch {unset res}
testsuiteCleanup
|