mirror of
https://github.com/envmodules/modules.git
synced 2026-06-10 00:56:30 +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.
40 lines
858 B
Plaintext
40 lines
858 B
Plaintext
#%Module1.0
|
|
|
|
##############################################################################
|
|
# Modules Revision 3.0
|
|
# Providing a flexible user environment
|
|
#
|
|
# File: break/%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 "break" mechanism is working,
|
|
# where this is a valid loop "break" within a proc
|
|
# }C%
|
|
#
|
|
##############################################################################
|
|
|
|
proc loop_from_proc {} {
|
|
global i
|
|
set i 0
|
|
while {$i < 99} {
|
|
incr i
|
|
if {$i == 9} break
|
|
}
|
|
}
|
|
|
|
loop_from_proc
|
|
setenv testsuite6 $i
|