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.
37 lines
899 B
Plaintext
37 lines
899 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 when called from proc.
|
|
# }C%
|
|
#
|
|
##############################################################################
|
|
|
|
# should cause this module not to be loaded, but not affecting the others
|
|
# however, any non-environment commands in this file will be executed though.
|
|
|
|
proc break_from_proc {} {
|
|
break
|
|
}
|
|
|
|
setenv testsuite5 "no"
|
|
break_from_proc
|