From 024e1b9f1f4a8fb3dd35080a6a4bf95d2c50e6cd Mon Sep 17 00:00:00 2001
From: =?utf8?q?Tom=C3=A1=C5=A1=20Brada?= <tomasbrod@azet.sk>
Date: Wed, 21 Oct 2015 18:42:27 +0200
Subject: [PATCH] TestTC some test.

---
 TestFS.pas | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/TestFS.pas b/TestFS.pas
index d7c7f8b..1fd846d 100644
--- a/TestFS.pas
+++ b/TestFS.pas
@@ -67,9 +67,17 @@ procedure t.ST3(msg:tSMsg; data:boolean);
  end;
 end;
 
+var cnt:LongWOrd=0;
+procedure IgnoreData(msg:tSMsg);
+ begin
+ cnt:=cnt+msg.length;
+ //Writeln('Data: ',cnt);
+end;
+
 procedure t.Rekt;
  begin
  writeln('TestFS: rekt');
+ UnShedule(@HardTimeout);
  FreeMem(@self,sizeof(self));
 end;
 
@@ -93,7 +101,7 @@ procedure init;
   new(o); with o^ do begin
    ch.Init(paramstr(oi+1));
    ch.Callback:=@ST1;
-   Shedule(7000,@HardTimeout);
+   Shedule(20000,@HardTimeout);
    ch.streaminit(s,33);
    s.WriteByte(opcode.upFileServer);
    s.WriteByte({channel}99);
@@ -103,6 +111,8 @@ procedure init;
    s.WriteWord(0,4);
    s.WriteWord($FFFFFFFF,4);
    ch.Send(s);
+   ServerLoop.SetMsgHandler(4,@IgnoreData);
+   ServerLoop.SetMsgHandler(6,@IgnoreData);
   end;
  end;
 end;
-- 
2.11.4.GIT