#%Module


set case 0
if {[info exists env(BADRC3_CASE)]} {
    set case $env(BADRC3_CASE)
}
switch -- $case {
1 {
    proc good-command {} {
        bad-command
    }
    good-command
}
2 {
    source $env(TESTSUITEDIR)/modulefiles.2/bad3/.bodycommon
}
3 {
    module-info bad
}
}

