envmodules/modules
1
0
Fork 0
mirror of https://github.com/envmodules/modules.git synced 2026-06-10 00:56:30 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

ts: adapt existing tests now limited access are recorded

Browse Source
This commit is contained in:
Xavier Delaruelle
2022-12-10 21:16:50 +01:00
parent d5bdf7d173
commit 1eecf28cb2
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
testsuite/modules.30-cache/031-cachebuild-full.exp
View File

@@ -136,7 +136,7 @@ set tscache "#%Module$major_minor_rel"
foreach f [lsort [array names other_file_arr]] {
switch -- $f {
bar/1.0 {
set entry [list modulefile-invalid $f accesserr "Permission denied on '$mp2/bar/1.0'"]
set entry [list limited-access-file $f]
}
default {
if {[file tail $f] in {.modulerc .version}} {
@@ -159,7 +159,9 @@ set tscache "#%Module$major_minor_rel"
foreach f [lsort [array names other_file_arr]] {
set entry {}
switch -- $f {
foo/.modulerc {}
foo/.modulerc {
set entry [list limited-access-file $f]
}
default {
if {[file tail $f] in {.modulerc .version}} {
set entry [list modulerc-content $f {#%Module} $other_file_arr($f)]
@@ -173,7 +175,6 @@ foreach f [lsort [array names other_file_arr]] {
append tscache "\n$entry"
}
}
#FIXME: should track that foo/.modulerc exists and has limited access
testouterrfile_cmd sh cachebuild OK $tserr $mp2cache $tscache
restore_file_perms $mp2/foo/.modulerc
@@ -198,9 +199,8 @@ foreach f [lsort [array names other_file_arr]] {
append tscache "\n$entry"
}
}
set entry [list modulefile-invalid foo accesserr "Permission denied on '$mp2/foo'"]
set entry [list limited-access-directory foo]
append tscache "\n$entry"
#FIXME: should track foo as a directory with limited access rather than an invalid modulefile
testouterrfile_cmd sh cachebuild OK $tserr $mp2cache $tscache
restore_file_perms $mp2/foo