Skip to content

Commit 5d76c11

Browse files
committed
ts: improve coverage of getCmpSpecFromVersSpec proc
Signed-off-by: Xavier Delaruelle <[email protected]>
1 parent bb3d124 commit 5d76c11

File tree

2 files changed

+11
-0
lines changed

2 files changed

+11
-0
lines changed

testsuite/example/siteconfig.tcl-1

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -690,4 +690,8 @@ if {[info exists env(TESTSUITE_ENABLE_SITECONFIG_GETHELPLINES)]} {
690690
report [string length [getModuleHelpLines]]
691691
}
692692

693+
if {[info exists env(TESTSUITE_ENABLE_SITECONFIG_GETCMPSPECFROMVERSSPEC)]} {
694+
report [getCmpSpecFromVersSpec unk]
695+
}
696+
693697
}

testsuite/modules.00-init/120-siteconfig.exp

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -762,6 +762,13 @@ lappend ans $vers_reportre
762762
testouterr_cmd_re sh -V OK [join $ans \n]
763763
unsetenv_var TESTSUITE_ENABLE_SITECONFIG_GETHELPLINES
764764

765+
setenv_var TESTSUITE_ENABLE_SITECONFIG_GETCMPSPECFROMVERSSPEC 1
766+
set ans [list]
767+
lappend ans eq
768+
lappend ans $vers_reportre
769+
testouterr_cmd_re sh -V OK [join $ans \n]
770+
unsetenv_var TESTSUITE_ENABLE_SITECONFIG_GETCMPSPECFROMVERSSPEC
771+
765772
} elseif {$verbose} {
766773
send_user "\tSkip tests relying on an excepted siteconfig file installed\n"
767774
}

0 commit comments

Comments
 (0)