Skip to content

Commit e65d789

Browse files
committed
ts: remove unused test procedures
Signed-off-by: Xavier Delaruelle <[email protected]>
1 parent e886416 commit e65d789

File tree

1 file changed

+0
-36
lines changed

1 file changed

+0
-36
lines changed

testsuite/config/unix.exp

Lines changed: 0 additions & 36 deletions
Original file line numberDiff line numberDiff line change
@@ -94,14 +94,6 @@ proc default_tclsh {} {
9494
}
9595

9696

97-
#
98-
# modulecmd_exit -- cleanup
99-
#
100-
101-
proc modulecmd_exit {} {
102-
#not applicable
103-
}
104-
10597
#
10698
# modulecmd_start -- start modulecmd running
10799
# Since modulecmd writes to both streams, stdout and stderr, a catcher
@@ -265,34 +257,6 @@ proc modulecmd_start {command {input noinput}} {
265257
unset no_verbose
266258
}
267259

268-
#
269-
# modulecmd_version -- extract and print the version number of modulecmd
270-
#
271-
272-
proc modulecmd_version {} {
273-
global MODULECMD
274-
global shell
275-
global comp_output
276-
global comp_error
277-
278-
set shell "sh"
279-
default_modulecmd
280-
281-
modulecmd_start help
282-
regexp {Modules Release (Tcl [0-9a-zA-Z\.]+)(.*)} \
283-
$comp_error version rest
284-
285-
set comp_output "$version"
286-
}
287-
288-
#
289-
# modulecmd_load -- loads the program
290-
#
291-
292-
proc modulecmd_load { arg } {
293-
# not applicable
294-
}
295-
296260

297261
#
298262
# Test procedure to check a module installation

0 commit comments

Comments
 (0)