Overview
| Comment: | More tests regarding threads and child interps |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
4a6a7916e7f8e21d955624022507cce7 |
| User & Date: | rkeene on 2020-04-13 20:50:13 |
| Other Links: | manifest | tags |
Context
|
2020-04-17
| ||
| 17:05 | Ensure that an standalone XVFS client can co-exist with the server implementation check-in: 997a035b20 user: rkeene tags: trunk | |
|
2020-04-13
| ||
| 20:50 | More tests regarding threads and child interps check-in: 4a6a7916e7 user: rkeene tags: trunk | |
| 20:43 | More tests check-in: 32bd347b13 user: rkeene tags: trunk | |
Changes
Modified example/main.tcl from [b547425a5a] to [f9a0847dca].
| ︙ | ︙ | |||
286 287 288 289 290 291 292 293 294 295 296 297 298 299 |
tcltest::test xvfs-stat-basic-dir "Xvfs stat Basic Directory Test" -body {
file stat $rootDir/lib fileInfo
set fileInfo(type)
} -cleanup {
unset -nocomplain fileInfo
} -result directory
# Broken in Tcl 8.6 and earlier
tcltest::test xvfs-glob-advanced-dir-with-pattern "Xvfs Glob Match Pattern and Directory Together" -body {
llength [glob ${rootDir}/*]
} -constraints tcl87 -result 3
tcltest::test xvfs-glob-file-dirname "Xvfs Relies on file dirname" -body {
| > > > > > > > > > > > > > > > > > > > > | 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 |
tcltest::test xvfs-stat-basic-dir "Xvfs stat Basic Directory Test" -body {
file stat $rootDir/lib fileInfo
set fileInfo(type)
} -cleanup {
unset -nocomplain fileInfo
} -result directory
tcltest::test xvfs-child-interp-basic "Xvfs Child Interp Test" -setup {
set interp [interp create]
} -body {
llength [$interp eval [list glob -nocomplain -directory $rootDir *]]
} -cleanup {
interp delete $interp
unset -nocomplain $interp
} -result 3
tcltest::test xvfs-thread-interp-basic "Xvfs Thread Interp Test" -setup {
package require Thread
set thread [thread::create -joinable]
} -body {
llength [thread::send $thread [list glob -nocomplain -directory $rootDir *]]
} -cleanup {
thread::release -wait $thread
thread::join $thread
unset -nocomplain $thread
} -result 3
# Broken in Tcl 8.6 and earlier
tcltest::test xvfs-glob-advanced-dir-with-pattern "Xvfs Glob Match Pattern and Directory Together" -body {
llength [glob ${rootDir}/*]
} -constraints tcl87 -result 3
tcltest::test xvfs-glob-file-dirname "Xvfs Relies on file dirname" -body {
|
| ︙ | ︙ |