# load standard DRAW scripts
if { [file isdirectory $dir] } {
- foreach script {StandardCommands.tcl Geometry.tcl StandardViews.tcl} {
+ foreach script {StandardCommands.tcl Geometry.tcl StandardViews.tcl TestCommands.tcl} {
if [file exist [file join $dir $script]] {
source [file join $dir $script]
+ } else {
+ puts "Warning: could not find command file $script"
}
}
wm iconbitmap . -default [file join $dir lamp.ico]
}
}
+} else {
+ puts "Warning: could not find DRAW directory"
+}
+
+# set default testing environment
+if { [info exists env(CASROOT)] && [file isdirectory $env(CASROOT)/tests] } {
+ if { ! [info exists env(CSF_TestScriptsPath)] } {
+ set env(CSF_TestScriptsPath) $env(CASROOT)/tests
+ } else {
+ set env(CSF_TestScriptsPath) $env(CSF_TestScriptsPath)[_path_separator]$env(CASROOT)/tests
+ }
}
# load application-defined initialization script, which is expected to