env: don't store 'OPAMSWITCH' and 'OPAMROOT' in last env, they should…

… not be reverted

They are set by '--set-switch' and '--set-root' with the idea to have them defined for the session

src/client/opamConfigCommand.ml

@@ -282,7 +282,15 @@ let ensure_env_aux ?(base=[]) ?(set_opamroot=false) ?(set_opamswitch=false)
         not (String.equal upd.envu_var "OPAM_LAST_ENV"))
       updates
   in
-  let last_env_file = write_last_env_file gt switch updates in
+  let last_env_file =
+    write_last_env_file gt switch
+      (* We remove OPAMSWITCH & OPAMROOT as they are not supposed
+         to be reverted *)
+      (List.filter (fun upd ->
+           not ((String.equal upd.envu_var "OPAMSWITCH")
+                || (String.equal upd.envu_var "OPAMROOT")))
+          updates)
+  in
   let updates =
     OpamStd.Option.map_default (fun target ->
         (env_update_resolved "OPAM_LAST_ENV" Eq

tests/reftests/switch-set.test

@@ -121,16 +121,15 @@ OPAMSWITCH='bar'; export OPAMSWITCH;
 # OPAMSWITCH current value
 bar
 # opam env
-OPAMSWITCH=''; export OPAMSWITCH;
 # OPAMSWITCH current value
 bar
 # current switch
 bar
 # evaluate opam env
 # OPAMSWITCH current value
-
+bar
 # current switch
-foo
+bar
 ### sh set-switch.sh env
 # current switch
 foo
@@ -142,16 +141,15 @@ OPAMSWITCH='bar'; export OPAMSWITCH;
 # OPAMSWITCH current value
 bar
 # opam env
-OPAMSWITCH=''; export OPAMSWITCH;
 # OPAMSWITCH current value
 bar
 # current switch
 bar
 # evaluate opam env
 # OPAMSWITCH current value
-
+bar
 # current switch
-foo
+bar
 ### opam init --bare --bypass-checks --root ./foo ./REPO -na
 No configuration file found, using built-in defaults.
 
@@ -205,17 +203,15 @@ OPAMROOT='${BASEDIR}/bar'; export OPAMROOT;
 # OPAMROOT current value
 ${BASEDIR}/bar
 # opam env
-OPAMROOT=''; export OPAMROOT;
 # OPAMROOT current value
 ${BASEDIR}/bar
 # current root
 ${BASEDIR}/bar
 evaluate opam env
 # OPAMROOT current value
-
+${BASEDIR}/bar
 # current root
-[ERROR] ${BASEDIR} exists, but does not appear to be a valid opam root. Please remove it and use `opam init', or specify a different `--root' argument
-# Return code 50 #
+${BASEDIR}/bar
 ### sh set-root.sh env
 # OPAMROOT current value
 ${BASEDIR}/foo
@@ -225,14 +221,12 @@ OPAMROOT='${BASEDIR}/bar'; export OPAMROOT;
 # OPAMROOT current value
 ${BASEDIR}/bar
 # opam env
-OPAMROOT=''; export OPAMROOT;
 # OPAMROOT current value
 ${BASEDIR}/bar
 # current root
 ${BASEDIR}/bar
 evaluate opam env
 # OPAMROOT current value
-
+${BASEDIR}/bar
 # current root
-[ERROR] ${BASEDIR} exists, but does not appear to be a valid opam root. Please remove it and use `opam init', or specify a different `--root' argument
-# Return code 50 #
+${BASEDIR}/bar