Overview
| Comment: | Updated to support overriding the mountpoint being used by the test program |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
57c553f47763ce4dc05b3ba31ceb86e2 |
| User & Date: | rkeene on 2019-09-18 05:26:46.796 |
| Other Links: | manifest | tags |
Context
|
2019-09-18
| ||
| 05:30 | Updated to allow user to specify mountpoint at compile-time check-in: 2139fe19a8 user: rkeene tags: trunk | |
| 05:26 | Updated to support overriding the mountpoint being used by the test program check-in: 57c553f477 user: rkeene tags: trunk | |
| 05:25 | Fixed issue with client server mode not canonicalizing the path check-in: 4221e5dcbc user: rkeene tags: trunk | |
Changes
Modified example/main.tcl
from [44a6e7f4d1]
to [7c5b926b51].
1 2 3 4 5 6 7 8 9 |
#! /usr/bin/env tclsh
package require tcltest
tcltest::testConstraint tcl87 [string match "8.7.*" [info patchlevel]]
tcltest::configure -verbose pbse
tcltest::configure {*}$argv
| > > > > > > | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
#! /usr/bin/env tclsh
package require tcltest
tcltest::testConstraint tcl87 [string match "8.7.*" [info patchlevel]]
tcltest::configure -verbose pbse
tcltest::configure {*}$argv
if {![info exists ::env(XVFS_ROOT_MOUNTPOINT)]} {
set xvfsRootMountpoint "//xvfs:"
} else {
set xvfsRootMountpoint $::env(XVFS_ROOT_MOUNTPOINT)
}
set rootDir "${xvfsRootMountpoint}/example"
set rootDirNative [file join [pwd] example]
#set rootDir $rootDirNative
set testFile "${rootDir}/foo"
proc glob_verify {args} {
set rv [glob -nocomplain -directory $::rootDir {*}$args]
set verify [glob -nocomplain -directory $::rootDirNative {*}$args]
|
| ︙ | ︙ | |||
271 272 273 274 275 276 277 |
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 {
| | | 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 |
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 {
lindex [glob -directory [file dirname $testFile] *] 0
} -constraints tcl87 -match glob -result "$rootDir/*"
tcltest::test xvfs-cwd-1 "Xvfs Can Be cwd" -setup {
|
| ︙ | ︙ |