ts: add skip_if_quick_mode in 70 suite

This commit is contained in:
Xavier Delaruelle
2021-07-22 23:06:39 +02:00
parent e91683c3e8
commit 07d151f913
62 changed files with 143 additions and 7 deletions

View File

@@ -52,6 +52,8 @@ test_cmd "csh" "purge" $ans
# command nickname tests
test_cmd "csh" "pu" $ans
skip_if_quick_mode
# setup LOADEDMODULES/_LMFILES_ with an empty element
setenv_loaded_module [list {} $module] [list {} $modulefile]

View File

@@ -52,6 +52,8 @@ testouterr_cmd "csh" "list" "OK" "$ts_csh_num"
# command nickname tests
testouterr_cmd "csh" "li" "OK" "$ts_csh_num"
skip_if_quick_mode
# setup MODULEPATH with a trailing slash and an empty dir element
setenv_path_var MODULEPATH {} "$modpath/"
testouterr_cmd "csh" "--terse list" "OK" "$ts_csh"

View File

@@ -53,6 +53,7 @@ setenv_loaded_module $module/$version $modulefile
testouterr_cmd_re "csh" "--long list" "OK" "$ts_csh"
skip_if_quick_mode
#
# Set up the environment pointing to module file holding tags

View File

@@ -22,6 +22,8 @@
#
##############################################################################
skip_if_quick_mode
# ensure auto symbolic versions are not set for these tests
setenv_var MODULES_ADVANCED_VERSION_SPEC 0

View File

@@ -65,6 +65,9 @@ set ts_csh_7 "$header\n$whatis_7: erroneous module test"
testouterr_cmd_re "csh" "--terse whatis $module_1" "OK" "$ts_csh_1"
testouterr_cmd_re "csh" "--terse whatis $module_2" "OK" "$ts_csh_2"
testouterr_cmd_re "csh" "--terse whatis $module_3" "OK" "$ts_csh_3"
skip_if_quick_mode
testouterr_cmd_re "csh" "--terse whatis $module_4" "OK" "$ts_csh_4"
testouterr_cmd_re "csh" "--terse whatis $module_5" "OK" "$ts_csh_5"

View File

@@ -23,6 +23,8 @@
#
##############################################################################
skip_if_quick_mode
# force MODULEPATH with "empty" value.
setenv_path_var MODULEPATH foo {} bar

View File

@@ -52,6 +52,9 @@ set ts_7 " bad2/proc: erroneous module test"
# expect a break message
# error found in interpreted module, so an error code is rendered
testouterr_cmd_re "csh" "apropos Whatis" "ERR" "$header\n$ts_1\n$ts_1a\n$ts_2\n$ts_4"
skip_if_quick_mode
# different behavior than C-version: on Tcl-version -i/--icase option is ignored
# but search is always case insensitive
testouterr_cmd_re "csh" "apropos WHATIS" "ERR" "$header\n$ts_1\n$ts_1a\n$ts_2\n$ts_4"

View File

@@ -179,6 +179,8 @@ setenv\t\ttestsuite yes
testouterr_cmd_re "csh" "display $module_1" "OK" "$out_pat"
skip_if_quick_mode
# command nickname tests
testouterr_cmd_re "csh" "show $module_1" "OK" "$out_pat"
testouterr_cmd_re "csh" "di $module_1" "OK" "$out_pat"

View File

@@ -106,6 +106,9 @@ set out_err_4 "$err_path'$module_4'"
# test stderr output
testouterr_cmd_re "sh" "help $module" "OK" "$err_help"
skip_if_quick_mode
# test with module passed as full path
if {$plus_in_modpath && $install_advversspec eq {y}} {
setenv_var MODULES_ADVANCED_VERSION_SPEC 0

View File

@@ -75,6 +75,9 @@ set mod6_err "$err_path'$module6'"
# missing procedure
testouterr_cmd_re "sh" "test $module" "OK" "$modlin\n$lin_test$modulefile:\n\n$missing_test$modulefile.\n$modlin"
skip_if_quick_mode
# test with module passed as full path
if {$plus_in_modpath && $install_advversspec eq {y}} {
setenv_var MODULES_ADVANCED_VERSION_SPEC 0

View File

@@ -41,6 +41,8 @@ set err_csh2 [msg_moderr "$msg_invcmdname \"bad-command\"" {bad-command} $module
#
testouterr_cmd "csh" "source $module_1" $ans ""
skip_if_quick_mode
#
# test sourcing rc file with no module-specific magic cookie
#

View File

@@ -20,6 +20,8 @@
#
##############################################################################
skip_if_quick_mode
# skip tests if implicit_default option could not be overridden
if {[is_config_locked implicit_default]} {
send_user "\tskipping tests as implicit_default could not be overridden\n"

View File

@@ -20,6 +20,8 @@
#
##############################################################################
skip_if_quick_mode
#
# Test variables
#

View File

@@ -596,6 +596,8 @@ foreach set_shell_startup [list {} 0 1] {
unsetenv_var MODULES_SET_SHELL_STARTUP
}
skip_if_quick_mode
# test versioning autoinit when MODULE_VERSION is already defined
if {$install_versioning eq "y"} {
# setup environment state

View File

@@ -134,6 +134,8 @@ use/default -> use/1.0"
testouterr_cmd_re "sh" "aliases" "OK" "$alias_header\n$alias_list\n\n$version_header\n$version_list"
skip_if_quick_mode
# command nickname tests
testouterr_cmd_re "sh" "al" "OK" "$alias_header\n$alias_list\n\n$version_header\n$version_list"

View File

@@ -20,6 +20,7 @@
#
##############################################################################
skip_if_quick_mode
set mod_g1 "append/2.0"
set modfile_g1 "$modpath/$mod_g1"

View File

@@ -36,6 +36,7 @@ lappend ans [list set FOO_modshare "$path1:1"]
testouterr_cmd_re "sh" "append-path FOO $path1" $ans ""
skip_if_quick_mode
if { $verbose > 0 } {
send_user "\tSetup FOO = '$path1'\n"

View File

@@ -36,6 +36,7 @@ lappend ans [list set FOO_modshare "$path1:1"]
testouterr_cmd_re "sh" "prepend-path FOO $path1" $ans ""
skip_if_quick_mode
if { $verbose > 0 } {
send_user "\tSetup FOO = '$path1'\n"

View File

@@ -33,6 +33,7 @@ lappend ans [list unset FOO]
testouterr_cmd_re "sh" "remove-path FOO $path1" $ans ""
skip_if_quick_mode
setenv_path_var FOO $path1

View File

@@ -28,6 +28,9 @@ set modulefile_reld "$reldmodpath/$module"
set modulefile_reldd "$relddmodpath/$module"
testouterr_cmd "ALL" "is-loaded $module" "ERR" ""
skip_if_quick_mode
testouterr_cmd "sh" "is-loaded" "ERR" ""
testouterr_cmd "sh" "is-loaded $modname foo" "ERR" ""
testouterr_cmd "sh" "is-loaded foo $modpart" "ERR" ""

View File

@@ -34,6 +34,9 @@ set env(HOME) "$homewithcoll"
testouterr_cmd "ALL" "is-saved foo" "ERR" ""
testouterr_cmd "ALL" "is-saved foo coll1" "OK" ""
skip_if_quick_mode
testouterr_cmd "sh" "is-saved" "OK" ""
# define a collection target

View File

@@ -28,6 +28,8 @@ testouterr_cmd "ALL" "is-used foo" "ERR" ""
testouterr_cmd "ALL" "is-used foo $modpath" "OK" ""
testouterr_cmd "sh" "is-used" "OK" ""
skip_if_quick_mode
# empty modulepath
unsetenv_path_var MODULEPATH

View File

@@ -20,6 +20,8 @@
#
##############################################################################
skip_if_quick_mode
set module "info"
set module1 "$module/loaded"
set modulefile1 "$modpath/$module1"

View File

@@ -20,6 +20,8 @@
#
##############################################################################
skip_if_quick_mode
# skip tests if implicit_default option could not be overridden
if {[is_config_locked implicit_default]} {
send_user "\tskipping tests as implicit_default could not be overridden\n"

View File

@@ -48,6 +48,8 @@ setenv_loaded_module $module $modulefile
test_cmd "sh" "reload" $ans
skip_if_quick_mode
# command nickname tests
test_cmd "sh" "rel" $ans
test_cmd "sh" "ref" $ans

View File

@@ -25,6 +25,8 @@
#
##############################################################################
skip_if_quick_mode
set module1 "/path/to/mod1"
set modulefile1 "$module1"
set module2 "loc_dv1/1.0"

View File

@@ -20,6 +20,8 @@
#
##############################################################################
skip_if_quick_mode
set test_cols 20
if {![info exists term_cols]} {
# skip tests if current terminal witdh is unknown

View File

@@ -43,6 +43,8 @@ foreach str [list y Y yes YES Yes yESfoo] {
testouterr_cmd sh "clear $str" $ans {}
}
skip_if_quick_mode
# test valid confirmation passed via stdin
foreach str [list y Y yes YES Yes yESfoo] {
testinouterr_cmd sh {clear} $str $ans {}

View File

@@ -175,19 +175,18 @@ array set configlockable [list\
set statelist [list always_read_full_file autoinit clock_seconds cmdline commandname domainname error_count extra_siteconfig_loaded false_rendered force hiding_threshold inhibit_errreport inhibit_interp init_error_report is_stderr_tty is_win kernelversion lm_info_cached machine modulefile nodename os osversion paginate path_separator report_format reportfd return_false shell shelltype siteconfig_loaded sub1_separator sub2_separator subcmd subcmd_args tcl_ext_lib_loaded tcl_version tcl_version_lt85 term_columns usergroups username]
if {[is_quick_mode]} {
array unset configdfl
array set configdfl [list\
advanced_version_spec [expr {$install_advversspec eq {y}}]
]
}
# single config parameter report
foreach param [array names configdfl] {
testouterr_cmd_re sh "config $param" OK "$vers_reportre\n\n$config_header\n$param\\s+$configdfl($param)[if_configlocked $param { \(locked\)}]"
}
# test full config report
set tserr "$vers_reportre\n\n$config_header"
foreach param [lsort [array names configdfl]] {
append tserr "\n$param\\s+$configdfl($param)[if_configlocked $param { \(locked\)}]"
}
testouterr_cmd_re ALL config OK $tserr
# unknown parameter report
testouterr_cmd_re sh {config foo} ERR "$error_msgs: Configuration option 'foo' does not exist"
@@ -202,6 +201,15 @@ foreach param [array names configdfl] {
}
}
skip_if_quick_mode
# test full config report
set tserr "$vers_reportre\n\n$config_header"
foreach param [lsort [array names configdfl]] {
append tserr "\n$param\\s+$configdfl($param)[if_configlocked $param { \(locked\)}]"
}
testouterr_cmd_re ALL config OK $tserr
# set parameter that could be altered and whose value is checked
foreach param [array names configvalid] {
if {[info exists configvalidkind($param)]} {

View File

@@ -46,6 +46,8 @@ setenv_var MODULES_VERBOSITY normal
testouterr_cmd_re sh {load module/meta} $ans [msg_load trace/all_on $err_trace]\n\n[msg_top_load module/meta {} {setenv/1.0 trace/all_on prereq/module} {}]
testouterr_cmd_re sh {load -v module/meta} $ans [msg_load setenv/1.0]\n\n[msg_load trace/all_on $err_trace]\n\n[msg_load prereq/module]\n\n[msg_top_load module/meta {} {setenv/1.0 trace/all_on prereq/module} {}]
skip_if_quick_mode
# for the other tests, just set the MODULES_VERBOSITY variable to selected verbosity level
foreach verbosity [list silent concise normal verbose verbose2] {
setenv_var MODULES_VERBOSITY $verbosity

View File

@@ -20,6 +20,8 @@
#
##############################################################################
skip_if_quick_mode
set mp $modpath.3
set mpre $modpathre.3
setenv_path_var MODULEPATH $mp

View File

@@ -80,6 +80,8 @@ testouterr_cmd_re sh {whatis NOCASE2} OK $tserrw1
testouterr_cmd sh {paths NOCASE2} $ansp1 {}
testouterr_cmd sh {load NOCASE2} $ans1 {}
skip_if_quick_mode
# default option value
setenv_var MODULES_ICASE badvalue
switch -- $install_icase {

View File

@@ -20,6 +20,8 @@
#
##############################################################################
skip_if_quick_mode
set mp "$modpath.2"
set mpre "$modpathre.2"

View File

@@ -69,6 +69,8 @@ switch -- $install_extendeddefault {
y {testouterr_cmd sh {path extdfl2/3} $ans {}}
}
skip_if_quick_mode
# enable extended_default for next tests
setenv_var MODULES_EXTENDED_DEFAULT 1

View File

@@ -66,6 +66,8 @@ switch -- $install_advversspec {
y {testouterr_cmd sh {path extdfl@2.0} $ans {}}
}
skip_if_quick_mode
# enable advanced version spec for next tests
setenv_var MODULES_ADVANCED_VERSION_SPEC 1

View File

@@ -66,6 +66,8 @@ switch -- $install_advversspec {
y {testouterr_cmd sh {path extdfl@1.4.5,2.0} $ans {}}
}
skip_if_quick_mode
# enable advanced version spec for next tests
setenv_var MODULES_ADVANCED_VERSION_SPEC 1

View File

@@ -63,6 +63,8 @@ switch -- $install_advversspec {
y {testouterr_cmd sh {path extdfl@:2.0} $ans {}}
}
skip_if_quick_mode
# enable advanced version spec for next tests
setenv_var MODULES_ADVANCED_VERSION_SPEC 1

View File

@@ -21,6 +21,8 @@
#
##############################################################################
skip_if_quick_mode
# ensure avail -t tests have implicit default enabled
setenv_var MODULES_IMPLICIT_DEFAULT 1

View File

@@ -20,6 +20,8 @@
#
##############################################################################
skip_if_quick_mode
# ensure avail -t tests have implicit default enabled
setenv_var MODULES_IMPLICIT_DEFAULT 1

View File

@@ -20,6 +20,8 @@
#
##############################################################################
skip_if_quick_mode
# ensure tests have implicit default enabled
setenv_var MODULES_IMPLICIT_DEFAULT 1

View File

@@ -62,6 +62,9 @@ advvers2/5.1
advvers2/5.2
advvers2/5.3"
testouterr_cmd sh {avail -t advvers2@1.3:2.1,3.2,4:5} OK $tserr
skip_if_quick_mode
set tserr "$mp:\nadvvers2/1.0
advvers2/1.1
advvers2/1.2

View File

@@ -57,6 +57,8 @@ testouterr_cmd sh {ml lo extdfl} $ans {}
set tserr $no_loaded
testouterr_cmd sh {ml} OK $tserr
skip_if_quick_mode
# trigger usage message
set tserr "$vers_reportre\nUsage: ml .*See 'module --help' to get available commands and options."
testouterr_cmd_re sh {ml -h} OK $tserr

View File

@@ -55,6 +55,9 @@ testouterr_cmd sh {whatis nocase/ --json} OK "{\"$mp\": {
\"nocase/regular\": { \"name\": \"nocase/regular\", \"whatis\": \[ \"nocase/regular\" \]},
\"nocase/virt\": { \"name\": \"nocase/virt\", \"whatis\": \[ \"nocase/virt\" \]}
}}"
skip_if_quick_mode
# newline in result comes from a modulefile that directly puts to stderr during its search evaluation
testouterr_cmd sh {search nocase/ --json} ERR "{\n\"$mp\": {
\"nocase/1\": { \"name\": \"nocase/1\", \"whatis\": \[ \"nocase/1\" \]},

View File

@@ -34,6 +34,8 @@ set custom { (procedure "good-command" line 2)
set tserr [msg_load bad3/bodyproc [msg_moderr "$msg_invcmdname \"bad-command\"" bad-command $mp/bad3/bodyproc 6 {} {} {} $custom]]
testouterr_cmd sh "load bad3/bodyproc" ERR $tserr
skip_if_quick_mode
set custom " (procedure \"good-command\" line 2)
invoked from within
\"good-command\"

View File

@@ -160,6 +160,9 @@ if {[info exists shell_pathname(sh)]} {
testouterr_shtomod sh {} OK "#%Module\n$tscwd\n$tsvarpre\n$tsalias_sh\n$tsfunc_sh\n$tsvar"
}
}
skip_if_quick_mode
if {[info exists shell_pathname(dash)]} {
testouterr_shtomod dash {} OK "#%Module\n$tscwd\n$tsvarpre\n$tsalias_dash\n$tsvar"
}

View File

@@ -132,6 +132,8 @@ set tserr "{\"tag/4.0\": { \"name\": \"tag/4.0\", \"type\": \"modulefile\", \"va
\"tag/2.0\": { \"name\": \"tag/2.0\", \"type\": \"modulefile\", \"variants\": {}, \"symbols\": \[\], \"tags\": \[ \"forbidden\" \], \"pathname\": \"$mp/tag/1.0\"}}"
testouterr_cmd sh {list -j} OK $tserr
skip_if_quick_mode
# display hidden entries
testouterr_cmd sh {list -a} OK "$cur_loaded
1) tag/4.0 <nF:othertag> 2) tag/2.0 <F> 3) tag/5.0 <H>

View File

@@ -42,6 +42,8 @@ tag/6.0 <BaR:F>
tag/7.0"
testouterr_cmd sh {avail -t tag@5:7} OK $tserr
skip_if_quick_mode
set ans [list]
lappend ans [list setpath LOADEDMODULES tag/5.0]
lappend ans [list setpath _LMFILES_ $mp/tag/5.0]

View File

@@ -54,6 +54,8 @@ testerr_cmd_re sh {list} "$cur_loaded
Key:
[sgr 100]auto-loaded[sgr 0] <module-tag> <O>=foo "
skip_if_quick_mode
setenv_var MODULES_COLORS {auto-loaded=100}
testerr_cmd_re sh {list} "$cur_loaded
1\\) tag/5.0 <aL:BaR:O>

View File

@@ -20,6 +20,8 @@
#
##############################################################################
skip_if_quick_mode
set mp $modpath.3
set mpre [regsub -all "\(\[.+?\]\)" $mp {\\\1}]

View File

@@ -20,6 +20,8 @@
#
##############################################################################
skip_if_quick_mode
set mp $modpath.3
set mpre [regsub -all "\(\[.+?\]\)" $mp {\\\1}]

View File

@@ -20,6 +20,8 @@
#
##############################################################################
skip_if_quick_mode
set test_cols 169
if {![info exists term_cols]} {
# skip tests if current terminal witdh is unknown

View File

@@ -47,6 +47,9 @@ setenv_var TESTSUITE_AVAIL_OUTPUT_FOO_SYM 1
set tserr_avail_foo "foo/1.0\\(bar\\) "
set tserr_avail_terse_foo "foo/1.0\\(bar\\)"
testouterr_cmd_re sh {avail -o sym foo/1.0} OK $tserr_avail_foo
skip_if_quick_mode
testouterr_cmd sh {avail foo -o} ERR "$error_msgs: Missing value for '-o' option\n$err_typehelp"
testouterr_cmd_re sh {avail --output=sym foo/1.0} OK $tserr_avail_foo
testouterr_cmd sh {avail --output foo} ERR "$error_msgs: Missing value for '--output' option\n$err_typehelp"

View File

@@ -46,6 +46,9 @@ setenv_path_var MODULES_LMALTNAME foo/1.0&foo/bar
set tserr_list_foo "foo/1.0(bar) "
set tserr_list_terse_foo "foo/1.0(bar)"
testouterr_cmd sh {list -o sym} OK $tserr_list_foo
skip_if_quick_mode
testouterr_cmd sh {list -o} ERR "$error_msgs: Missing value for '-o' option\n$err_typehelp"
testouterr_cmd sh {list --output=sym} OK $tserr_list_foo
testouterr_cmd sh {list --output} ERR "$error_msgs: Missing value for '--output' option\n$err_typehelp"

View File

@@ -41,6 +41,8 @@ testouterr_cmd sh {list} OK "$cur_loaded
Key:
{variant=value} "
skip_if_quick_mode
testouterr_cmd sh {list -o header:idx:sym:tag:key} OK "$cur_loaded
1) variant/1.0 "

View File

@@ -20,6 +20,8 @@
#
##############################################################################
skip_if_quick_mode
set mp $modpath.3
set mpre $modpathre.3
setenv_path_var MODULEPATH $mp

View File

@@ -41,6 +41,8 @@ append-path\tTS2 bar-foo
$modlin"
testouterr_cmd_re sh {display variant/4.0 foo=val1 bar=2} OK $tserr
skip_if_quick_mode
# no variant value
set tserr "$modlin
$mpre/variant/4.0:

View File

@@ -20,6 +20,8 @@
#
##############################################################################
skip_if_quick_mode
set mp $modpath.3
set mpre $modpathre.3
setenv_path_var MODULEPATH $mp

View File

@@ -20,6 +20,8 @@
#
##############################################################################
skip_if_quick_mode
set mp $modpath.3
set mpre $modpathre.3
setenv_path_var MODULEPATH $mp

View File

@@ -20,6 +20,8 @@
#
##############################################################################
skip_if_quick_mode
set mp $modpath.3
set mpre $modpathre.3
setenv_path_var MODULEPATH $mp

View File

@@ -20,6 +20,8 @@
#
##############################################################################
skip_if_quick_mode
set mp $modpath.3
set mpre $modpathre.3
setenv_path_var MODULEPATH $mp

View File

@@ -20,6 +20,8 @@
#
##############################################################################
skip_if_quick_mode
set mp $modpath.3
set mpre $modpathre.3
setenv_path_var MODULEPATH $mp

View File

@@ -71,6 +71,8 @@ if {$install_editor ne {} && ![file exists $dfleditorpath]} {
send_user "\tskipping default editor tests\n"
}
skip_if_quick_mode
# inexistent module
testouterr_cmd sh {edit unknown/3.0} ERR $err_path'unknown/3.0'