From ce6874d05d8c23b58aa6a38f56eae46f65137dee Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Thu, 27 Oct 2016 03:23:05 +0200
Subject: [PATCH] runnables and unittest, filter out the "-run" option

---
 src/ce_main.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index bde0961f..93608173 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -669,6 +669,9 @@ begin
       // would break location detection
       else if (sw.length > 2) and (sw[1..3] = '-of') then
         continue
+      // useless
+      else if sw = '-run' then
+        continue
       else
         lst.Add(sw);
     end;
@@ -2563,7 +2566,9 @@ begin
           fMsgs.message('the option "-c" is not be handled when a module is tested',
             fDoc, amcEdit, amkWarn);
         end;
-      end;
+      end
+      else if lst[i] = '-run' then
+        lst.Delete(i);
     end;
   end;