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.
35 lines
739 B
Plaintext
35 lines
739 B
Plaintext
#%Module1.0
|
|
|
|
##############################################################################
|
|
# Modules Revision 3.0
|
|
# Providing a flexible user environment
|
|
#
|
|
# File: exit/%M%
|
|
# Revision: %I%
|
|
# First Edition: 2017/06/07
|
|
# Last Mod.: %U%, %G%
|
|
#
|
|
# Authors: Xavier Delaruelle
|
|
#
|
|
# 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 "exit" mechanism is working when called from proc.
|
|
# }C%
|
|
#
|
|
##############################################################################
|
|
|
|
proc exit_from_proc {} {
|
|
exit
|
|
}
|
|
|
|
setenv testsuite4 "no"
|
|
exit_from_proc
|
|
setenv testsuite4x "no"
|