Fix wrong split function

The cases of this match were the wrong way around. Note that this regresses ocaml#4861's quoted directory test.
rjbou · May 10, 2024 · ee23499 · ee23499
1 parent 04d5d5c
commit ee23499
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 12 deletions.
diff --git a/src/state/opamEnv.ml b/src/state/opamEnv.ml
@@ -150,9 +150,9 @@ let split_var ~(sepfmt:sep_path_format) var value =
     in
     let sep = OpamTypesBase.char_of_separator separator in
     match format with
-    | Target_quoted | Host_quoted ->
-      OpamStd.String.split value sep
     | Target | Host ->
+      OpamStd.String.split value sep
+    | Target_quoted | Host_quoted ->
       (* we suppose that it is in the form:
          - "quoted":unquoted
          - unquoted:"quoted"

diff --git a/tests/reftests/env.test b/tests/reftests/env.test
@@ -212,8 +212,8 @@ NV_VARS_5926_M_1=b:a1:a2
 NV_VARS_5926_M_2=a1:a2:b
 NV_VARS_5926_M_3=b:a1:a2
 NV_VARS_5926_M_4=a1:a2:b
-NV_VARS_5926_S_1=a:
-NV_VARS_5926_S_2=:a
+NV_VARS_5926_S_1=a
+NV_VARS_5926_S_2=a
 NV_VARS_5926_S_3=a:
 NV_VARS_5926_S_4=:a
 NV_VARS_5926_T_1=b:a:
@@ -247,8 +247,8 @@ NV_VARS_5926_M_1='b:a1:a2': export NV_VARS_5926_M_1:
 NV_VARS_5926_M_2='a1:a2:b': export NV_VARS_5926_M_2:
 NV_VARS_5926_M_3='b:a1:a2': export NV_VARS_5926_M_3:
 NV_VARS_5926_M_4='a1:a2:b': export NV_VARS_5926_M_4:
-NV_VARS_5926_S_1='a:': export NV_VARS_5926_S_1:
-NV_VARS_5926_S_2=':a': export NV_VARS_5926_S_2:
+NV_VARS_5926_S_1='a': export NV_VARS_5926_S_1:
+NV_VARS_5926_S_2='a': export NV_VARS_5926_S_2:
 NV_VARS_5926_S_3='a:': export NV_VARS_5926_S_3:
 NV_VARS_5926_S_4=':a': export NV_VARS_5926_S_4:
 NV_VARS_5926_T_1='b:a:': export NV_VARS_5926_T_1:
@@ -323,8 +323,8 @@ NV_VARS_5926_M_1=b:a1:a2
 NV_VARS_5926_M_2=a1:a2:b
 NV_VARS_5926_M_3=b:a1:a2
 NV_VARS_5926_M_4=a1:a2:b
-NV_VARS_5926_S_1=a:
-NV_VARS_5926_S_2=:a
+NV_VARS_5926_S_1=a
+NV_VARS_5926_S_2=a
 NV_VARS_5926_S_3=a:
 NV_VARS_5926_S_4=:a
 NV_VARS_5926_T_1=b:a:
@@ -358,8 +358,8 @@ NV_VARS_5926_M_1='b:a1:a2': export NV_VARS_5926_M_1:
 NV_VARS_5926_M_2='a1:a2:b': export NV_VARS_5926_M_2:
 NV_VARS_5926_M_3='b:a1:a2': export NV_VARS_5926_M_3:
 NV_VARS_5926_M_4='a1:a2:b': export NV_VARS_5926_M_4:
-NV_VARS_5926_S_1='a:': export NV_VARS_5926_S_1:
-NV_VARS_5926_S_2=':a': export NV_VARS_5926_S_2:
+NV_VARS_5926_S_1='a': export NV_VARS_5926_S_1:
+NV_VARS_5926_S_2='a': export NV_VARS_5926_S_2:
 NV_VARS_5926_S_3='a:': export NV_VARS_5926_S_3:
 NV_VARS_5926_S_4=':a': export NV_VARS_5926_S_4:
 NV_VARS_5926_T_1='b:a:': export NV_VARS_5926_T_1:
@@ -480,8 +480,8 @@ NV_VARS_5926_M_1='b:a1:a2': export NV_VARS_5926_M_1:
 NV_VARS_5926_M_2='a1:a2:b': export NV_VARS_5926_M_2:
 NV_VARS_5926_M_3='b:a1:a2': export NV_VARS_5926_M_3:
 NV_VARS_5926_M_4='a1:a2:b': export NV_VARS_5926_M_4:
-NV_VARS_5926_S_1='a:': export NV_VARS_5926_S_1:
-NV_VARS_5926_S_2=':a': export NV_VARS_5926_S_2:
+NV_VARS_5926_S_1='a': export NV_VARS_5926_S_1:
+NV_VARS_5926_S_2='a': export NV_VARS_5926_S_2:
 NV_VARS_5926_S_3='a:': export NV_VARS_5926_S_3:
 NV_VARS_5926_S_4=':a': export NV_VARS_5926_S_4:
 NV_VARS_5926_T_1='b:a:': export NV_VARS_5926_T_1:

diff --git a/tests/reftests/env.win32.test b/tests/reftests/env.win32.test
@@ -23,6 +23,7 @@ Done.
 set "MANPATH=:"${BASEDIR}/OPAM/rewriting/man""
 set "PATH=${BASEDIR}/OPAM/rewriting/bin;C:\Devel\bin1;C:\Devel\bin2;"C:\Devel\bin3;";C:\Devel\bin4;ZZZ:\;
 ### opam exec -- opam env --shell=cmd --revert | grep 'ZZZ:' | 'ZZZ:\\.*' -> 'ZZZ:\'
+set "PATH=C:\Devel\bin1;C:\Devel\bin2;"C:\Devel\bin3;";C:\Devel\bin4;ZZZ:\
 ### : Test for #5838
 ### opam env | grep MANPATH
 MANPATH=':"${BASEDIR}/OPAM/rewriting/man"'; export MANPATH;