X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/2dd575b95694c126013c912526093ff4915f3398..cda2e4bba1a2bc9bd3e48076f236ac843086aff3:/lcoretest.dpr

diff --git a/lcoretest.dpr b/lcoretest.dpr
old mode 100755
new mode 100644
index 3c4277d..bfba054
--- a/lcoretest.dpr
+++ b/lcoretest.dpr
@@ -3,7 +3,7 @@ program lcoretest;
 uses
   lcore,
   lsocket,
-  {$ifdef win32}
+  {$ifdef mswindows}
     lcorewsaasyncselect in 'lcorewsaasyncselect.pas',
   {$else}
     lcoreselect,
@@ -14,13 +14,16 @@ uses
   dnssync
   //we don't actually make any use of the units below in this app, we just
   //include it to check if it compiles ok ;)
-  {$ifndef win32}
+  {$ifndef mswindows}
     ,
-    lmessages,
+    {$ifndef nomessages}
+      lmessages,
+      unitwindowobject,
+    {$endif}
     unitfork
   {$endif}
   ;
-{$ifdef win32}
+{$ifdef mswindows}
   {$R *.RES}
 {$endif}
 
@@ -34,6 +37,9 @@ type
     procedure dnsrequestdone(sender:tobject;error : word);
     procedure sessionclosed(sender:tobject;error : word);
   end;
+  treleasetest=class(tlcomponent)
+    destructor destroy; override;
+  end;
 var
   listensocket : tlsocket;
   serversocket : tlsocket;
@@ -146,6 +152,13 @@ procedure tsc.timehandler(sender:tobject);
 begin
   //writeln('got timer event');
 end;
+
+destructor treleasetest.destroy;
+begin
+  writeln('releasetest.destroy called');
+  inherited destroy;
+end;
+
 procedure tsc.sessionclosed(sender:tobject;error : word);
 begin
   Writeln('session closed with error ',error);
@@ -155,8 +168,12 @@ var
   ipbin : tbinip;
   dummy : integer;
   iplist : tbiniplist;
+  releasetest : treleasetest;
 begin
   lcoreinit;
+  releasetest := treleasetest.create(nil);
+  releasetest.release;
+  
   ipbin := forwardlookup('invalid.domain',5);
   writeln(ipbintostr(ipbin));
 
@@ -175,6 +192,7 @@ begin
   listensocket.onsessionavailable := sc.sessionavailable;
   writeln('listening');
   listensocket.listen;
+  writeln('listen call returned');
   writeln(listensocket.getxport);
   writeln('listen socket is number ', listensocket.fdhandlein);
   writeln('creating and setting up server socket');