add some extra sanity checking to blinklist and fix a line ending in dnswin

[lcore.git] / lcoretest.dpr

diff --git a/lcoretest.dpr b/lcoretest.dpr
index 3c4277d2cc062b19a1e8ebe503692270a2ce0f86..da31cd68ee382ae50d4053bc4867a3cf17094af6 100755 (executable)
--- a/lcoretest.dpr
+++ b/lcoretest.dpr
@@ -16,7 +16,10 @@ uses
   //include it to check if it compiles ok ;)\r
   {$ifndef win32}\r
     ,\r
   //include it to check if it compiles ok ;)\r
   {$ifndef win32}\r
     ,\r

-    lmessages,\r
+    {$ifndef nomessages}\r
+      lmessages,\r
+      unitwindowobject,\r
+    {$endif}\r

     unitfork\r
   {$endif}\r
   ;\r
     unitfork\r
   {$endif}\r
   ;\r


@@ -34,6 +37,9 @@ type
     procedure dnsrequestdone(sender:tobject;error : word);\r
     procedure sessionclosed(sender:tobject;error : word);\r
   end;\r
     procedure dnsrequestdone(sender:tobject;error : word);\r
     procedure sessionclosed(sender:tobject;error : word);\r
   end;\r

+  treleasetest=class(tlcomponent)\r
+    destructor destroy; override;\r
+  end;\r

 var\r
   listensocket : tlsocket;\r
   serversocket : tlsocket;\r
 var\r
   listensocket : tlsocket;\r
   serversocket : tlsocket;\r


@@ -146,6 +152,13 @@ procedure tsc.timehandler(sender:tobject);
 begin\r
   //writeln('got timer event');\r
 end;\r
 begin\r
   //writeln('got timer event');\r
 end;\r

+\r
+destructor treleasetest.destroy;\r
+begin\r
+  writeln('releasetest.destroy called');\r
+  inherited destroy;\r
+end;\r
+\r

 procedure tsc.sessionclosed(sender:tobject;error : word);\r
 begin\r
   Writeln('session closed with error ',error);\r
 procedure tsc.sessionclosed(sender:tobject;error : word);\r
 begin\r
   Writeln('session closed with error ',error);\r


@@ -155,8 +168,12 @@ var
   ipbin : tbinip;\r
   dummy : integer;\r
   iplist : tbiniplist;\r
   ipbin : tbinip;\r
   dummy : integer;\r
   iplist : tbiniplist;\r

+  releasetest : treleasetest;\r

 begin\r
   lcoreinit;\r
 begin\r
   lcoreinit;\r

+  releasetest := treleasetest.create(nil);\r
+  releasetest.release;\r
+  \r

   ipbin := forwardlookup('invalid.domain',5);\r
   writeln(ipbintostr(ipbin));\r
 \r
   ipbin := forwardlookup('invalid.domain',5);\r
   writeln(ipbintostr(ipbin));\r
 \r