rc: add DIRENV_STATUS with status of direnv loading

It can be "denied" if the environment loading was denied. "failed" if
the environment failed to load. "allowed" if everything was successful.
When nothing is imported, it is considered a failure.

internal/cmd/const.go

@@ -10,6 +10,7 @@ const (
 	DIRENV_FILE    = "DIRENV_FILE"
 	DIRENV_WATCHES = "DIRENV_WATCHES"
 	DIRENV_DIFF    = "DIRENV_DIFF"
+	DIRENV_STATUS  = "DIRENV_STATUS"
 
 	DIRENV_DUMP_FILE_PATH = "DIRENV_DUMP_FILE_PATH"
 )

internal/cmd/env.go

@@ -40,6 +40,7 @@ func (env Env) CleanContext() {
 	delete(env, DIRENV_FILE)
 	delete(env, DIRENV_DUMP_FILE_PATH)
 	delete(env, DIRENV_WATCHES)
+	delete(env, DIRENV_STATUS)
 }
 
 // LoadEnv unmarshals the env back from a gzenv string

internal/cmd/rc.go

@@ -207,6 +207,7 @@ func (rc *RC) Load(previousEnv Env) (newEnv Env, err error) {
 	direnv := config.SelfPath
 	newEnv = previousEnv.Copy()
 	newEnv[DIRENV_WATCHES] = rc.times.Marshal()
+	newEnv[DIRENV_STATUS] = "allowed"
 	defer func() {
 		// Record directory changes even if load is disallowed or fails
 		newEnv[DIRENV_DIR] = "-" + filepath.Dir(rc.path)
@@ -218,9 +219,11 @@ func (rc *RC) Load(previousEnv Env) (newEnv Env, err error) {
 	switch rc.Allowed() {
 	case NotAllowed:
 		err = fmt.Errorf(notAllowed, rc.Path())
+		newEnv[DIRENV_STATUS] = "denied"
 		return
 	case Allowed:
 	case Denied:
+		newEnv[DIRENV_STATUS] = "denied"
 		return
 	}
 
@@ -282,9 +285,11 @@ func (rc *RC) Load(previousEnv Env) (newEnv Env, err error) {
 		newEnv2, err = LoadEnvJSON(out)
 		if err == nil {
 			newEnv = newEnv2
+			return
 		}
 	}
 
+	newEnv[DIRENV_STATUS] = "failed"
 	return
 }
 

test/direnv-test-common.sh

@@ -21,6 +21,7 @@ unset DIRENV_DIR
 unset DIRENV_FILE
 unset DIRENV_WATCHES
 unset DIRENV_DIFF
+unset DIRENV_STATUS
 
 mkdir -p "${XDG_CONFIG_HOME}/direnv"
 touch "${XDG_CONFIG_HOME}/direnv/direnvrc"
@@ -74,6 +75,7 @@ test_start base
   echo "Setting up"
   direnv_eval
   test_eq "$HELLO" "world"
+  test_eq "${DIRENV_STATUS:-}" "allowed"
 
   WATCHES=$DIRENV_WATCHES
 
@@ -206,11 +208,13 @@ test_start "failure"
   # fails.
   test_eq "${DIRENV_DIFF:-}" ""
   test_eq "${DIRENV_WATCHES:-}" ""
+  test_eq "${DIRENV_STATUS:-}" ""
 
   direnv_eval
 
   test_neq "${DIRENV_DIFF:-}" ""
   test_neq "${DIRENV_WATCHES:-}" ""
+  test_eq "${DIRENV_STATUS:-}" "failed"
 test_stop
 
 test_start "watch-dir"
@@ -280,6 +284,15 @@ if has python; then
   test_stop
 fi
 
+test_start "deny"
+  direnv deny
+  direnv_eval
+  test_neq "${DIRENV_DIFF:-}" ""
+  test_neq "${DIRENV_WATCHES:-}" ""
+  test_eq "${DIRENV_STATUS:-}" "denied"
+  test -z "${HELLO}"
+test_stop
+
 test_start "aliases"
   direnv deny
   # check that allow/deny aliases work

test/direnv-test.elv

@@ -16,6 +16,7 @@ unset-env DIRENV_DIR
 unset-env DIRENV_FILE
 unset-env DIRENV_WATCHES
 unset-env DIRENV_DIFF
+unset-env DIRENV_STATUS
 
 mkdir -p $E:XDG_CONFIG_HOME/direnv
 touch $E:XDG_CONFIG_HOME/direnv/direnvrc

test/direnv-test.fish

@@ -40,6 +40,7 @@ set -e DIRENV_DIR
 set -e DIRENV_FILE
 set -e DIRENV_WATCHES
 set -e DIRENV_DIFF
+set -e DIRENV_STATUS
 
 function direnv_eval
     #direnv export fish # for debugging

test/direnv-test.tcsh

@@ -13,6 +13,7 @@ unsetenv DIRENV_DIR
 unsetenv DIRENV_FILE
 unsetenv DIRENV_WATCHES
 unsetenv DIRENV_DIFF
+unsetenv DIRENV_STATUS
 
 alias direnv_eval 'eval `direnv export tcsh`'
 

test/scenarios/deny/.envrc

@@ -0,0 +1 @@
+export HELLO=world