Index: example/main.tcl
==================================================================
--- example/main.tcl
+++ example/main.tcl
@@ -5,11 +5,17 @@
 tcltest::testConstraint tcl87 [string match "8.7.*" [info patchlevel]]
 
 tcltest::configure -verbose pbse
 tcltest::configure {*}$argv
 
-set rootDir "//xvfs:/example"
+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} {
@@ -273,11 +279,11 @@
 	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/*"