Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Test iogt-2.4 is another segfault demo for [721ec69271]. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
b83734f724837b74bfe3db814d4c830b |
| User & Date: | dgp 2014-03-27 16:47:33 |
Context
|
2014-03-27
| ||
| 19:15 | Test iocmd-23.11 demos another segfault. check-in: 045e8076eb user: dgp tags: trunk | |
| 16:47 | Test iogt-2.4 is another segfault demo for [721ec69271]. check-in: b83734f724 user: dgp tags: trunk | |
| 16:44 | Test iogt-2.4 is another segfault demo for [721ec69271]. check-in: ee4b5c6c43 user: dgp tags: core-8-5-branch | |
| 16:27 | New test iortrans-4.8.1 exposes segfault bug [721ec69271]. check-in: 994f93910e user: dgp tags: trunk | |
Changes
Changes to tests/iogt.test.
| ︙ | ︙ | |||
215 216 217 218 219 220 221 222 223 224 225 226 227 228 |
#catch {puts stdout "\t>* $res" ; flush stdout}
#catch {puts stdout "x$res"} msg
lappend trail [list $op $data $res]
return $res
}
proc counter {var op data} {
namespace upvar [namespace current] $var n
switch -- $op {
create/write - create/read - delete/write - delete/read - clear_read {
#ignore
| > > > > > > > > > > > > > > > > > > > > | 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 |
#catch {puts stdout "\t>* $res" ; flush stdout}
#catch {puts stdout "x$res"} msg
lappend trail [list $op $data $res]
return $res
}
proc id_torture {chan op data} {
switch -- $op {
create/write -
create/read -
delete/write -
delete/read -
clear_read {;#ignore}
flush/write -
flush/read -
write -
read {
testchannel unstack $chan
testchannel transform $chan \
-command [namespace code [list id_torture $chan]]
return $data
}
query/maxRead {return -1}
}
}
proc counter {var op data} {
namespace upvar [namespace current] $var n
switch -- $op {
create/write - create/read - delete/write - delete/read - clear_read {
#ignore
|
| ︙ | ︙ | |||
322 323 324 325 326 327 328 329 330 331 332 333 334 335 |
}
proc audit_ops {var -attach channel} {
testchannel transform $channel -command [namespace code [list id_optrail $var]]
}
proc audit_flow {var -attach channel} {
testchannel transform $channel -command [namespace code [list id_fulltrail $var]]
}
proc stopafter {var n -attach channel} {
namespace upvar [namespace current] $var vn
set vn $n
testchannel transform $channel -command [namespace code [list counter $var]]
}
proc stopafter_audit {var trail n -attach channel} {
namespace upvar [namespace current] $var vn
| > > > > > | 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 |
}
proc audit_ops {var -attach channel} {
testchannel transform $channel -command [namespace code [list id_optrail $var]]
}
proc audit_flow {var -attach channel} {
testchannel transform $channel -command [namespace code [list id_fulltrail $var]]
}
proc torture {-attach channel} {
testchannel transform $channel -command [namespace code [list id_torture $channel]]
}
proc stopafter {var n -attach channel} {
namespace upvar [namespace current] $var vn
set vn $n
testchannel transform $channel -command [namespace code [list counter $var]]
}
proc stopafter_audit {var trail n -attach channel} {
namespace upvar [namespace current] $var vn
|
| ︙ | ︙ | |||
541 542 543 544 545 546 547 548 549 550 551 552 553 554 |
write %^&*()_+-= %^&*()_+-=
write {
} {
}
delete/read {} *ignored*
flush/write {} {}
delete/write {} *ignored*}
test iogt-3.0 {Tcl_Channel valid after stack/unstack, fevent handling} -setup {
proc DoneCopy {n {err {}}} {
variable copy 1
}
} -constraints {testchannel hangs} -body {
# This test to check the validity of aquired Tcl_Channel references is not
| > > > > > > > > > > | 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 |
write %^&*()_+-= %^&*()_+-=
write {
} {
}
delete/read {} *ignored*
flush/write {} {}
delete/write {} *ignored*}
test iogt-2.4 {basic I/O, mixed trail} {testchannel} {
set fh [open $path(dummy) r]
torture -attach $fh
chan configure $fh -buffersize 2
set x [read $fh]
testchannel unstack $fh
close $fh
set x
} {}
test iogt-3.0 {Tcl_Channel valid after stack/unstack, fevent handling} -setup {
proc DoneCopy {n {err {}}} {
variable copy 1
}
} -constraints {testchannel hangs} -body {
# This test to check the validity of aquired Tcl_Channel references is not
|
| ︙ | ︙ |