mirror of
https://github.com/envmodules/modules.git
synced 2026-06-14 00:42:43 +08:00
9b2cad1d7d
Specify language directive for included Tcl script files in cookbook recipes to get their code highlighted in resulting HTML documents. As Pygment Tcl lexer used by Sphinx does not support the whole Tcl syntax, scripts of modulepaths-persist-over-sudo and test-modulefiles recipes have been adapted to enable highlighting. Change has not been performed over the expose-procs-vars-to-modulefiles and top-priority-values recipes as their code cannot be adapted to match lexer needs.
40 lines
1.3 KiB
Tcl
40 lines
1.3 KiB
Tcl
#%Module1.0 # -*- mode: tcl; -*-
|
|
|
|
proc ModulesTest { } {
|
|
set retcode 1 ;# default: 1 meaning PASS
|
|
|
|
puts stderr "Running ModulesTest for directory existence..."
|
|
if { [file isdirectory $::env(TESTDIR)] } {
|
|
puts stderr "Is a directory: $::env(TESTDIR)"
|
|
} else {
|
|
puts stderr "ERROR: Is not a directory: $::env(TESTDIR)"
|
|
set retcode 0
|
|
}
|
|
puts stderr "Running ModulesTest for directory existence...done"
|
|
|
|
puts stderr "Running ModulesTest for directory permissions..."
|
|
set cmd { cd $::env(TESTDIR) }
|
|
if { [catch $cmd errmsg] } {
|
|
puts stderr "ERROR: Was not able to enter directory $::env(TESTDIR): ${errmsg}"
|
|
set retcode 0
|
|
} else {
|
|
puts stderr "Was able to enter directory $::env(TESTDIR)"
|
|
}
|
|
puts stderr "Running ModulesTest for directory permissions...done"
|
|
|
|
puts stderr "Running ModulesTest for file creation..."
|
|
set cmd { open $::env(TESTFILE) w }
|
|
if { [catch $cmd errmsg] } {
|
|
puts stderr "ERROR: Was not able to create file $::env(TESTFILE): ${errmsg}"
|
|
set retcode 0
|
|
} else {
|
|
puts stderr "Was able to create file $::env(TESTFILE)"
|
|
}
|
|
puts stderr "Running ModulesTest for file creation...done"
|
|
|
|
return $retcode
|
|
}
|
|
|
|
setenv TESTDIR /tmp/$::env(USER)/testdir
|
|
setenv TESTFILE $::env(TESTDIR)/testfile
|