diff options
-rw-r--r-- | jim.c | 2 | ||||
-rw-r--r-- | tests/jim.test | 15 |
2 files changed, 16 insertions, 1 deletions
@@ -15052,7 +15052,7 @@ static int Jim_EnvCoreCommand(Jim_Interp *interp, int argc, Jim_Obj *const *argv return JIM_OK; } - if (argc < 2) { + if (argc > 3) { Jim_WrongNumArgs(interp, 1, argv, "varName ?default?"); return JIM_ERR; } diff --git a/tests/jim.test b/tests/jim.test index 9c12ac7..3a0e357 100644 --- a/tests/jim.test +++ b/tests/jim.test @@ -3472,6 +3472,21 @@ test rand-1.2 {Check limits} { catch {unset sum; unset err; unset i} ################################################################################ +# ENV +################################################################################ +test env-1.1 {env} -body { + env abc def ghi +} -returnCodes error -result {wrong # args: should be "env varName ?default?"} + +test env-1.2 {env} -body { + env DOES_NOT_EXIST abc +} -result {abc} + +test env-1.3 {env} -body { + env DOES_NOT_EXIST +} -returnCodes error -result {environment variable "DOES_NOT_EXIST" does not exist} + +################################################################################ # JIM REGRESSION TESTS ################################################################################ test regression-1.0 {Rename against procedures with static vars} { |