Check-in [57c553f477]
Overview
Comment:Updated to support overriding the mountpoint being used by the test program
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 57c553f47763ce4dc05b3ba31ceb86e2ca6442b8f9cf7cb47650ba4120ba340f
User & Date: rkeene on 2019-09-18 05:26:46
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






10

11
12
13
14
15
16
17
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 "//xvfs:/example"
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
278

279
280
281
282
283
284
285
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 //xvfs:/example/*]
	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 {