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]
|
|
|
|
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]
|