rc: add DIRENV_STATUS with status of direnv loading

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