paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 22:49:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Noel Duffy to implement DNS over TCP and test

Browse Source 
git-svn-id: trunk@48455 -
This commit is contained in:
michael 2021-01-30 08:28:13 +00:00
parent 4bec57702f
commit a90315c3a0
6 changed files with 5695 additions and 71 deletions

2
.gitattributes vendored
View File

@ -3836,6 +3836,8 @@ packages/fcl-net/src/sslsockets.pp svneol=native#text/plain
packages/fcl-net/src/ssockets.pp svneol=native#text/plain
packages/fcl-net/src/unix/resolve.inc svneol=native#text/plain
packages/fcl-net/src/win/resolve.inc svneol=native#text/plain
packages/fcl-net/tests/netdbtest.pp svneol=native#text/plain
packages/fcl-net/tests/tresolvertests.pp svneol=native#text/plain
packages/fcl-passrc/Makefile svneol=native#text/plain
packages/fcl-passrc/Makefile.fpc svneol=native#text/plain
packages/fcl-passrc/Makefile.fpc.fpcmake svneol=native#text/plain

1117
packages/fcl-net/src/netdb.pp
View File

File diff suppressed because it is too large Load Diff

4615
packages/fcl-net/tests/netdbtest.pp Normal file
View File

File diff suppressed because it is too large Load Diff

28
packages/fcl-net/tests/tresolvertests.pp Normal file
View File

@ -0,0 +1,28 @@
program tresolvertests;
{$mode objfpc}{$H+}
uses
Classes, consoletestrunner, netdbtest;
type
{ TMyTestRunner }
TMyTestRunner = class(TTestRunner)
protected
// override the protected methods of TTestRunner to customize its behavior
end;
var
Application: TMyTestRunner;
begin
DefaultFormat:=fPlain;
DefaultRunAllTests:=True;
Application := TMyTestRunner.Create(nil);
Application.Initialize;
Application.Title:='resolvertests';
Application.Run;
Application.Free;
end.

2
tests/Makefile
View File

@ -2423,7 +2423,7 @@ LOGEXT=.testlog .tbslog .tbflog .webtbslog .webtbflog
TESTUNITDIRS=system dos crt objects strings sysutils math sharemem strutils matrix lineinfo ucomplex fpwidestring cpu fmtbcd windows classes character dateutil fpcunit softfpu variants sortbase sortalgs linux unixutil types nullable
TESTDIRECTDIRS=
TESTSUBDIRS=cg cg/variants cg/cdecl cpu16 cpu16/i8086 library opt $(addprefix units/,$(TESTUNITDIRS))
TESTPACKAGESDIRS=win-base webtbs hash fcl-registry fcl-process zlib fcl-db fcl-xml cocoaint bzip2
TESTPACKAGESDIRS=win-base webtbs hash fcl-registry fcl-process zlib fcl-db fcl-xml cocoaint bzip2 fcl-net
TESTPACKAGESUBDIRS=$(addprefix packages/,$(TESTPACKAGESDIRS))
TESTPACKAGESDIRECTDIRS=rtl-objpas rtl-generics hash regexpr fcl-registry
TESTPACKAGESDIRECTSUBDIRS=$(addprefix ../packages/,$(addsuffix /tests,$(TESTPACKAGESDIRECTDIRS)))

2
tests/Makefile.fpc
View File

@ -162,7 +162,7 @@ LOGEXT=.testlog .tbslog .tbflog .webtbslog .webtbflog
TESTUNITDIRS=system dos crt objects strings sysutils math sharemem strutils matrix lineinfo ucomplex fpwidestring cpu fmtbcd windows classes character dateutil fpcunit softfpu variants sortbase sortalgs linux unixutil types nullable
TESTDIRECTDIRS=
TESTSUBDIRS=cg cg/variants cg/cdecl cpu16 cpu16/i8086 library opt $(addprefix units/,$(TESTUNITDIRS))
TESTPACKAGESDIRS=win-base webtbs hash fcl-registry fcl-process zlib fcl-db fcl-xml cocoaint bzip2
TESTPACKAGESDIRS=win-base webtbs hash fcl-registry fcl-process zlib fcl-db fcl-xml cocoaint bzip2 fcl-net
TESTPACKAGESUBDIRS=$(addprefix packages/,$(TESTPACKAGESDIRS))
TESTPACKAGESDIRECTDIRS=rtl-objpas rtl-generics hash regexpr fcl-registry
TESTPACKAGESDIRECTSUBDIRS=$(addprefix ../packages/,$(addsuffix /tests,$(TESTPACKAGESDIRECTDIRS)))