From 2c5ccc94430bd4582cf6f49e67ba2a8bbe4d0348 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=A9mie=20Dimino?= <jeremie@dimino.org>
Date: Sat, 25 Feb 2017 02:02:11 +0000
Subject: [PATCH] Fix runtest command

---
 bin/main.ml | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/bin/main.ml b/bin/main.ml
index 56dfdffc..02547b71 100644
--- a/bin/main.ml
+++ b/bin/main.ml
@@ -189,15 +189,9 @@ let runtest =
     set_common common;
     Future.Scheduler.go ~log:(create_log ())
       (Main.setup () >>= fun setup ->
-       let dirs = List.map dirs ~f:Path.(relative root) in
        let targets =
          List.map dirs ~f:(fun dir ->
-           let dir =
-             if Path.is_in_build_dir dir then
-               dir
-             else
-               Path.append setup.context.build_dir dir
-           in
+           let dir = Path.(relative root) dir in
            Alias.file (Alias.runtest ~dir))
        in
        Build_system.do_build_exn setup.build_system targets) in