From 64ee19a948def42c8c5965302caf389ccc278ecb Mon Sep 17 00:00:00 2001 From: Matthew Cawood Date: Tue, 10 Dec 2024 13:10:14 -0600 Subject: [PATCH] added tests --- rt/unload/mf/Core/C/1.0.lua | 21 +++++++++++++++++++++ rt/unload/mf/Core/D/1.0.lua | 4 ++++ rt/unload/mf/Core/E/1.0.lua | 2 ++ rt/unload/mf/Core/F/1.0.lua | 2 ++ rt/unload/unload.tdesc | 9 +++++++++ 5 files changed, 38 insertions(+) create mode 100644 rt/unload/mf/Core/C/1.0.lua create mode 100644 rt/unload/mf/Core/D/1.0.lua create mode 100644 rt/unload/mf/Core/E/1.0.lua create mode 100644 rt/unload/mf/Core/F/1.0.lua diff --git a/rt/unload/mf/Core/C/1.0.lua b/rt/unload/mf/Core/C/1.0.lua new file mode 100644 index 000000000..8fa18bd4e --- /dev/null +++ b/rt/unload/mf/Core/C/1.0.lua @@ -0,0 +1,21 @@ +setenv{"A", "A", mode={"load"}} +setenv{"A", "B", mode={"unload"}} +pushenv{"STACK_VAR", "load_value", mode={"load"}} +pushenv{"STACK_VAR", "unload_value", mode={"unload"}} + +-- Path operation tests +prepend_path{"PATH_TEST", "/first", mode={"load"}} +prepend_path{"PATH_TEST", "/unload_first", mode={"unload"}} + +append_path{"PATH_TEST", "/last", mode={"load"}} +append_path{"PATH_TEST", "/unload_last", mode={"unload"}} + +-- Test remove during specific modes +remove_path{"PATH_TEST", "/to_remove", mode={"unload"}} + + +--setenv{"AA", "X", mode={"load", "unload"}} +--prepend_path{"FOO", "BAR", mode={"unload", "load"}} +--append_path{"X", "Y", mode={"unload"}} +--load{"D", mode={"unload"}} +--try_load{"J", mode={"unload"}} diff --git a/rt/unload/mf/Core/D/1.0.lua b/rt/unload/mf/Core/D/1.0.lua new file mode 100644 index 000000000..d502289cf --- /dev/null +++ b/rt/unload/mf/Core/D/1.0.lua @@ -0,0 +1,4 @@ +-- Test module D +load{"E", mode={"load"}} +-- load{"A", "B", "C", mode="unload"} +setenv("D_LOADED", "yes") \ No newline at end of file diff --git a/rt/unload/mf/Core/E/1.0.lua b/rt/unload/mf/Core/E/1.0.lua new file mode 100644 index 000000000..505f80f21 --- /dev/null +++ b/rt/unload/mf/Core/E/1.0.lua @@ -0,0 +1,2 @@ +-- Test module E +setenv("E_LOADED", "yes") \ No newline at end of file diff --git a/rt/unload/mf/Core/F/1.0.lua b/rt/unload/mf/Core/F/1.0.lua new file mode 100644 index 000000000..1b23c01f5 --- /dev/null +++ b/rt/unload/mf/Core/F/1.0.lua @@ -0,0 +1,2 @@ +-- Test module F +setenv("F_LOADED", "yes") \ No newline at end of file diff --git a/rt/unload/unload.tdesc b/rt/unload/unload.tdesc index 817b69e66..3dbef32d2 100644 --- a/rt/unload/unload.tdesc +++ b/rt/unload/unload.tdesc @@ -38,6 +38,15 @@ testdescript = { runLmod unload intel # 7 runLmod load B # 8 runLmod unload B # 9 + runLmod load C # 10 + runLmod unload C # 11 + + # Test mode-specific load functionality + runLmod load F # 12 (Load F first for unload test) + runLmod load D # 13 (Should load E, not affect F) + runLmod list # 14 (Should show D, E, and F loaded) + runLmod unload D # 15 (Should unload F, keep E) + runLmod list # 16 (Should show only E loaded) HOME=$ORIG_HOME