|
| 1 | +############################################################################## |
| 2 | +# Modules Revision 3.0 |
| 3 | +# Providing a flexible user environment |
| 4 | +# |
| 5 | +# File: modules.70-maint/%M% |
| 6 | +# Revision: %I% |
| 7 | +# First Edition: 2026/02/17 |
| 8 | +# Last Mod.: %U%, %G% |
| 9 | +# |
| 10 | +# Authors: Xavier Delaruelle, xavier.delaruelle@cea.fr |
| 11 | +# |
| 12 | +# Description: Testuite testsequence |
| 13 | +# Command: |
| 14 | +# Modulefiles: tag |
| 15 | +# Sub-Command: load, avail |
| 16 | +# |
| 17 | +# Comment: %C{ |
| 18 | +# Test non_exportable_tags config option |
| 19 | +# }C% |
| 20 | +# |
| 21 | +############################################################################## |
| 22 | + |
| 23 | +set mp $modpath.3 |
| 24 | + |
| 25 | +# setup specific environment |
| 26 | +setenv_path_var MODULEPATH $mp |
| 27 | +setenv_path_var TESTSUITE_TAG_OPT duprc2 |
| 28 | + |
| 29 | + |
| 30 | +set tserr "$mp:\ntag/8.0 <bar:foo>" |
| 31 | +testouterr_cmd sh {avail -t tag/8.0} OK $tserr |
| 32 | + |
| 33 | +set ans [list] |
| 34 | +lappend ans [list set _LMFILES_ $mp/tag/8.0] |
| 35 | +lappend ans [list set LOADEDMODULES tag/8.0] |
| 36 | +lappend ans [list set __MODULES_LMTAG tag/8.0&foo&bar] |
| 37 | +testouterr_cmd sh {load tag/8.0} $ans {} |
| 38 | + |
| 39 | + |
| 40 | +setenv_path_var MODULES_NON_EXPORTABLE_TAGS bar |
| 41 | + |
| 42 | +testouterr_cmd sh {avail -t tag/8.0} OK $tserr |
| 43 | + |
| 44 | +set ans [list] |
| 45 | +lappend ans [list set _LMFILES_ $mp/tag/8.0] |
| 46 | +lappend ans [list set LOADEDMODULES tag/8.0] |
| 47 | +lappend ans [list set __MODULES_LMTAG tag/8.0&foo] |
| 48 | +testouterr_cmd sh {load tag/8.0} $ans {} |
| 49 | + |
| 50 | + |
| 51 | +setenv_path_var MODULES_NON_EXPORTABLE_TAGS foo:bar |
| 52 | + |
| 53 | +testouterr_cmd sh {avail -t tag/8.0} OK $tserr |
| 54 | + |
| 55 | +set ans [list] |
| 56 | +lappend ans [list set _LMFILES_ $mp/tag/8.0] |
| 57 | +lappend ans [list set LOADEDMODULES tag/8.0] |
| 58 | +testouterr_cmd sh {load tag/8.0} $ans {} |
| 59 | + |
| 60 | + |
| 61 | +# |
| 62 | +# Cleanup |
| 63 | +# |
| 64 | + |
| 65 | +reset_test_env |
0 commit comments