Lines Matching defs:workingDirectory
67 namespace export workingDirectory ;# [cd] [pwd]
264 # Set workingDirectory to [pwd]. The default output directory for
267 variable workingDirectory
268 trace variable workingDirectory w \
269 [namespace code {cd $workingDirectory ;#}]
271 Default workingDirectory [pwd] AcceptAbsolutePath
272 proc workingDirectory { {dir ""} } {
273 variable workingDirectory
275 return $workingDirectory
277 set workingDirectory [AcceptAbsolutePath $dir]
289 if {[file exists [file join [workingDirectory] core]]} {
291 [file mtime [file join [workingDirectory] core]]
736 if {[string equal [workingDirectory] $directory]} {
747 Option -tmpdir [workingDirectory] {
756 Option -testdir [workingDirectory] {
1509 DebugPuts 2 "tcltest::workingDirectory = [workingDirectory]"
1945 if {[file exists [file join [workingDirectory] core]]} {
1946 set coreModTime [file mtime [file join [workingDirectory] core]]
1993 if {[file exists [file join [workingDirectory] core]]} {
1999 [file join [workingDirectory] core]]} {
2010 [file join [workingDirectory] core] \
2343 # workingDirectory that were not pre-existing, and associate them
2498 if {[file exists [file join [workingDirectory] core]]} {
2505 [file join [workingDirectory] core] \
2518 [file join [workingDirectory] core]]} {
2679 puts [outputChannel] "Tests running in: [workingDirectory]"