1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
#%Module4.0 # -*- mode: tcl; -*-
proc ModulesTest { } {
set retcode 1 ;# default: 1 meaning PASS
puts stderr "Running ModulesTest for directory existence..."
if { [file isdirectory [getenv TESTDIR]] } {
puts stderr "Is a directory: [getenv TESTDIR]"
} else {
puts stderr "ERROR: Is not a directory: [getenv TESTDIR]"
set retcode 0
}
puts stderr "Running ModulesTest for directory existence...done"
puts stderr "Running ModulesTest for directory permissions..."
set cmd { cd [getenv TESTDIR] }
if { [catch $cmd errmsg] } {
puts stderr "ERROR: Was not able to enter directory [getenv TESTDIR]: ${errmsg}"
set retcode 0
} else {
puts stderr "Was able to enter directory [getenv TESTDIR]"
}
puts stderr "Running ModulesTest for directory permissions...done"
puts stderr "Running ModulesTest for file creation..."
set cmd { open [getenv TESTFILE] w }
if { [catch $cmd errmsg] } {
puts stderr "ERROR: Was not able to create file [getenv TESTFILE]: ${errmsg}"
set retcode 0
} else {
puts stderr "Was able to create file [getenv TESTFILE]"
}
puts stderr "Running ModulesTest for file creation...done"
return $retcode
}
setenv TESTDIR /tmp/[getenv USER]/testdir
setenv TESTFILE [getenv TESTDIR]/testfile
|
