matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add a regression test for #20

This commit is contained in:
Jeremie Dimino 2017-03-15 11:12:04 +00:00
parent d8fd2f084c
commit bf4a4ba5f9
3 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/path.ml
View File

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

9
test/jbuild
View File

@ -1,3 +1,5 @@
(jbuild_version 1)
(executables (executables
((names (run)) ((names (run))
(libraries (unix)))) (libraries (unix))))
@ -8,3 +10,10 @@
(action (action
(chdir workspaces/redirections (chdir workspaces/redirections
(run ${exe:run.exe} ${bin:jbuilder} runtest --root .))))) (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 .)))))

4
test/workspaces/github20/jbuild Normal file
View File

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