# HG changeset patch
# User sheepluva
# Date 1402955182 -7200
# Node ID 0f46fb0e0d5fa24087e8c1d6846622cb416769af
# Parent  d464a04450cc4a859c6704d7dfb08caa9af4618c
speed up tests

diff -r d464a04450cc -r 0f46fb0e0d5f hedgewars/ArgParsers.pas
--- a/hedgewars/ArgParsers.pas	Mon Jun 16 19:07:11 2014 +0200
+++ b/hedgewars/ArgParsers.pas	Mon Jun 16 23:46:22 2014 +0200
@@ -270,7 +270,7 @@
         {--no-hogtag}           32 : cTagsMask := cTagsMask and (not htName);
         {--no-healthtag}        33 : cTagsMask := cTagsMask and (not htHealth);
         {--translucent-tags}    34 : cTagsMask := cTagsMask or htTransparent;
-        {--lua-test}            35 : begin cTestLua := true; cScriptName := getstringParameter(arg, paramIndex, parseParameter); WriteLn(stdout, 'Lua test file specified: ' + cScriptName);end;
+        {--lua-test}            35 : begin cTestLua := true; SetSound(false); cScriptName := getstringParameter(arg, paramIndex, parseParameter); WriteLn(stdout, 'Lua test file specified: ' + cScriptName);end;
     else
         begin
         //Assume the first "non parameter" is the replay file, anything else is invalid
diff -r d464a04450cc -r 0f46fb0e0d5f hedgewars/uGame.pas
--- a/hedgewars/uGame.pas	Mon Jun 16 19:07:11 2014 +0200
+++ b/hedgewars/uGame.pas	Mon Jun 16 23:46:22 2014 +0200
@@ -64,6 +64,10 @@
         else if cOnlyStats then
             Lag:= High(LongInt)
     end;
+
+if cTestLua then
+    Lag:= High(LongInt);
+
 inc(SoundTimerTicks, Lag);
 if SoundTimerTicks >= 50 then
     begin