Add a regression test for #20

src/path.ml

@@ -312,8 +312,8 @@ let extract_build_context t =
     match String.index_from t i '/' with
     | exception _ ->
       Some
-      (String.sub t ~pos:i ~len:(String.length t - i),
-       "")
+        (String.sub t ~pos:i ~len:(String.length t - i),
+         "")
     | j ->
       Some
         (String.sub t ~pos:i ~len:(j - i),

test/jbuild

@@ -1,3 +1,5 @@
+(jbuild_version 1)
+
 (executables
  ((names (run))
   (libraries (unix))))
@@ -8,3 +10,10 @@
   (action
    (chdir workspaces/redirections
     (run ${exe:run.exe} ${bin:jbuilder} runtest --root .)))))
+
+(alias
+ ((name runtest)
+  (deps ((files_recursively_in workspaces/github20)))
+  (action
+   (chdir workspaces/github20
+    (run ${exe:run.exe} ${bin:jbuilder} build .merlin --root .)))))

test/workspaces/github20/jbuild

@@ -0,0 +1,4 @@
+(jbuild_version 1)
+
+(library
+ ((name foo)))