1##############################################################################
2#   Modules Revision 3.0
3#   Providing a flexible user environment
4#
5#   File:		modules.35-trace/%M%
6#   Revision:		%I%
7#   First Edition:	1995/12/06
8#   Last Mod.:		%U%, %G%
9#
10#   Authors:		Jens Hamisch, Jens.Hamisch@Strawberry.COM
11#
12#   Description:	Testuite testsequence
13#   Command:		load
14#   Modulefiles:	trace/load_onoff, trace/disptrac
15#   Sub-Command:
16#
17#   Comment:	%C{
18#			Changes tracing onl for the module command load' in
19#			a way, that tracing is turned on for a subset of all
20#			modulefiles and turned of for another. The trace-
21#			pattern resulting in this is checked here.
22#		}C%
23#
24##############################################################################
25
26#
27#  Variables. This test forces a module load command. It will result in the
28#    environment variables "_LMFILES_", "LOADEDMODULES" and "testsuite" to
29#    be set up
30#
31
32set module "trace/load_onoff"
33set modulefile "$env(MODULEPATH)/$module"
34
35set disp_module "trace/disptrac"
36set disp_modulefile "$env(MODULEPATH)/$disp_module"
37
38#
39#  setenv commands we expect to see
40#
41
42set tr_ap "setenv trace_apropos $trace_apropos ;"
43set tr_av "setenv trace_avail $trace_avail ;"
44set tr_cl "setenv trace_clear $trace_clear ;"
45set tr_di "setenv trace_display $trace_disp ;"
46set tr_he "setenv trace_help $trace_help ;"
47set tr_in "setenv trace_init $trace_init ;"
48set tr_li "setenv trace_list $trace_list ;"
49set tr_ld "setenv trace_load -\[\\^/\]\\*/3\\\\.4:+\[\\^/\]\\*/2\\\\.0:$trace_load ;"
50set tr_pu "setenv trace_purge $trace_purge ;"
51set tr_sw "setenv trace_switch $trace_switch ;"
52set tr_ul "setenv trace_unload $trace_unload ;"
53set tr_un "setenv trace_unuse $trace_unuse ;"
54set tr_up "setenv trace_update $trace_update ;"
55set tr_us "setenv trace_use $trace_use ;"
56set tr_wi "setenv trace_whatis $trace_whatis ;"
57
58#
59#  We only do check the csh ...
60#
61
62set lmf "setenv _LMFILES_ $modulefile:$disp_modulefile ;"
63set lm "setenv LOADEDMODULES $module:$disp_module ;"
64
65set exp "$lm$lmf$tr_ap$tr_av$tr_cl$tr_di$tr_he$tr_in$tr_li"
66set exp "$exp$tr_ld$tr_pu$tr_sw$tr_ul$tr_un$tr_up$tr_us$tr_wi"
67
68#
69#  The tests
70#
71
72test_cmd "csh" "load $module trace/disptrac" "$exp"
73
74#
75#  Cleanup
76#
77
78unset lm
79unset lmf
80unset exp
81
82unset disp_modulefile
83unset disp_module
84
85unset modulefile
86unset module
87