mirror of
https://github.com/envmodules/modules.git
synced 2026-06-14 00:42:43 +08:00
e6e435b971
Like C-version catch raised error when break or continue are called from outside of a loop to handle them as when they are called from modulefile main body. Add non-regression tests in 200-break, 210-exit, 220-continue and 230-loop of 50-cmds to check behavior when break, exit and continue are called from within a procedure.
42 lines
893 B
Plaintext
42 lines
893 B
Plaintext
#%Module1.0
|
|
|
|
##############################################################################
|
|
# Modules Revision 3.0
|
|
# Providing a flexible user environment
|
|
#
|
|
# File: continue/%M%
|
|
# Revision: %I%
|
|
# First Edition: 2017/06/07
|
|
# Last Mod.: %U%, %G%
|
|
#
|
|
# Authors: Xavier Delaruelle, xavier.delaruelle@cea.fr
|
|
#
|
|
# Description: Testuite modulefile
|
|
# Command:
|
|
# Sub-Command: break
|
|
#
|
|
# Invocation: load @M@/foo
|
|
# Result: %R{
|
|
# }R%
|
|
# Comment: %C{
|
|
# This modulefile is used for checking whether the
|
|
# TCL "continue" mechanism is working,
|
|
# where this a valid loop "continue" within proc
|
|
# }C%
|
|
#
|
|
##############################################################################
|
|
|
|
proc loop_from_proc {} {
|
|
global j
|
|
set i 0
|
|
set j 0
|
|
while {$i < 19} {
|
|
incr i
|
|
if {$i > 9} continue
|
|
incr j
|
|
}
|
|
}
|
|
|
|
loop_from_proc
|
|
setenv testsuite6 "$j"
|