paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 15:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Small test program for xmlconf

Browse Source 
git-svn-id: trunk@30324 -
This commit is contained in:
michael 2015-03-25 17:53:14 +00:00
parent 273b945473
commit cf6c07df4f
3 changed files with 97 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -3206,6 +3206,8 @@ packages/fcl-xml/tests/readertest.pp svneol=native#text/plain
packages/fcl-xml/tests/readerunit.pp svneol=native#text/plain
packages/fcl-xml/tests/template.xml svneol=native#text/plain
packages/fcl-xml/tests/testgen.pp svneol=native#text/plain
packages/fcl-xml/tests/testxmlconf.lpi svneol=native#text/plain
packages/fcl-xml/tests/testxmlconf.lpr svneol=native#text/plain
packages/fcl-xml/tests/xmlts.pp svneol=native#text/plain
packages/fcl-xml/tests/xpathts.pp svneol=native#text/plain
packages/fftw/Makefile svneol=native#text/plain

64
packages/fcl-xml/tests/testxmlconf.lpi Normal file
View File

@ -0,0 +1,64 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="testxmlconf"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<Units Count="1">
<Unit0>
<Filename Value="testxmlconf.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="testxmlconf"/>
</Unit0>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="testxmlconf"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

31
packages/fcl-xml/tests/testxmlconf.lpr Normal file
View File

@ -0,0 +1,31 @@
program testxmlconf;
uses xmlconf;
begin
With TXMLConfig.Create(Nil) do
try
FileName:='test.xml';
OpenKey('General');
SetValue('one',1);
SetValue('two',2);
SetValue('extra/name','michael');
Flush;
finally
Free;
end;
With TXMLConfig.Create(Nil) do
try
FileName:='test.xml';
OpenKey('General');
If GetValue('one',0)<>1 then
Writeln('One does not match');
If GetValue('two',0)<>2 then
Writeln('Two does not match');
if GetValue('extra/name','')<>'michael' then
Writeln('Name does not match');
finally
Free;
end;
end.