pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

test suite to use CThread on unix systems

Browse Source 
save serialized streams to files 

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@231 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2007-07-31 10:48:24 +00:00
parent d420a2d542
commit 22093d6e75
3 changed files with 31 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
wst/trunk/tests/test_suite/testformatter_unit.pas
View File

@ -703,7 +703,7 @@ begin
f.EndScope(); f.EndScope();
s := TMemoryStream.Create(); s := TMemoryStream.Create();
f.SaveToStream(s); f.SaveToStream(s);s.SaveToFile(ClassName + '.Test_Single_4.xml');
tmpVal := 0; tmpVal := 0;
f := CreateFormatter(TypeInfo(TClass_Float)); f := CreateFormatter(TypeInfo(TClass_Float));
@ -739,7 +739,7 @@ begin
f.EndScope(); f.EndScope();
s := TMemoryStream.Create(); s := TMemoryStream.Create();
f.SaveToStream(s); f.SaveToStream(s);s.SaveToFile(ClassName + '.Test_Double_8.xml');
tmpVal := 0; tmpVal := 0;
f := CreateFormatter(TypeInfo(TClass_Float)); f := CreateFormatter(TypeInfo(TClass_Float));
@ -775,7 +775,7 @@ begin
f.EndScope(); f.EndScope();
s := TMemoryStream.Create(); s := TMemoryStream.Create();
f.SaveToStream(s); f.SaveToStream(s);s.SaveToFile(ClassName + '.Test_Currency_8.xml');
tmpVal := 0; tmpVal := 0;
f := CreateFormatter(TypeInfo(TClass_Float)); f := CreateFormatter(TypeInfo(TClass_Float));
@ -811,7 +811,7 @@ begin
f.EndScope(); f.EndScope();
s := TMemoryStream.Create(); s := TMemoryStream.Create();
f.SaveToStream(s); f.SaveToStream(s);s.SaveToFile(ClassName + '.Test_Extended_10.xml');
tmpVal := 0; tmpVal := 0;
f := CreateFormatter(TypeInfo(TClass_Float)); f := CreateFormatter(TypeInfo(TClass_Float));

44
wst/trunk/tests/test_suite/wst_test_suite.lpi
View File

@ -7,7 +7,7 @@
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/> <IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="2"/> <ActiveEditorIndexAtStart Value="5"/>
</General> </General>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -32,16 +32,18 @@
<Filename Value="wst_test_suite.lpr"/> <Filename Value="wst_test_suite.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="wst_test_suite"/> <UnitName Value="wst_test_suite"/>
<CursorPos X="8" Y="6"/> <CursorPos X="9" Y="5"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="5"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="testformatter_unit.pas"/> <Filename Value="testformatter_unit.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="testformatter_unit"/> <UnitName Value="testformatter_unit"/>
<CursorPos X="52" Y="984"/> <CursorPos X="48" Y="814"/>
<TopLine Value="958"/> <TopLine Value="796"/>
<EditorIndex Value="4"/> <EditorIndex Value="4"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Bookmarks Count="1"> <Bookmarks Count="1">
@ -71,7 +73,7 @@
<UnitName Value="base_binary_formatter"/> <UnitName Value="base_binary_formatter"/>
<CursorPos X="15" Y="1479"/> <CursorPos X="15" Y="1479"/>
<TopLine Value="1464"/> <TopLine Value="1464"/>
<EditorIndex Value="5"/> <EditorIndex Value="6"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit4> </Unit4>
@ -93,8 +95,8 @@
<Filename Value="..\..\base_soap_formatter.pas"/> <Filename Value="..\..\base_soap_formatter.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="base_soap_formatter"/> <UnitName Value="base_soap_formatter"/>
<CursorPos X="1" Y="1677"/> <CursorPos X="1" Y="1705"/>
<TopLine Value="1664"/> <TopLine Value="1676"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -113,7 +115,7 @@
<UnitName Value="binary_streamer"/> <UnitName Value="binary_streamer"/>
<CursorPos X="14" Y="14"/> <CursorPos X="14" Y="14"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="10"/> <EditorIndex Value="11"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Bookmarks Count="1"> <Bookmarks Count="1">
<Item0 X="38" Y="490" ID="2"/> <Item0 X="38" Y="490" ID="2"/>
@ -142,7 +144,7 @@
<UnitName Value="testmetadata_unit"/> <UnitName Value="testmetadata_unit"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="7"/> <EditorIndex Value="8"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit11> </Unit11>
@ -172,7 +174,7 @@
<UnitName Value="metadata_wsdl"/> <UnitName Value="metadata_wsdl"/>
<CursorPos X="44" Y="21"/> <CursorPos X="44" Y="21"/>
<TopLine Value="209"/> <TopLine Value="209"/>
<EditorIndex Value="6"/> <EditorIndex Value="7"/>
<UsageCount Value="206"/> <UsageCount Value="206"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit14> </Unit14>
@ -471,7 +473,7 @@
<UnitName Value="test_utilities"/> <UnitName Value="test_utilities"/>
<CursorPos X="29" Y="43"/> <CursorPos X="29" Y="43"/>
<TopLine Value="3"/> <TopLine Value="3"/>
<EditorIndex Value="9"/> <EditorIndex Value="10"/>
<UsageCount Value="48"/> <UsageCount Value="48"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit57> </Unit57>
@ -487,7 +489,7 @@
<UnitName Value="testregistry"/> <UnitName Value="testregistry"/>
<CursorPos X="39" Y="27"/> <CursorPos X="39" Y="27"/>
<TopLine Value="17"/> <TopLine Value="17"/>
<EditorIndex Value="8"/> <EditorIndex Value="9"/>
<UsageCount Value="15"/> <UsageCount Value="15"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit59> </Unit59>
@ -524,23 +526,19 @@
<UsageCount Value="11"/> <UsageCount Value="11"/>
</Unit64> </Unit64>
</Units> </Units>
<JumpHistory Count="4" HistoryIndex="3"> <JumpHistory Count="3" HistoryIndex="2">
<Position1> <Position1>
<Filename Value="..\..\base_binary_formatter.pas"/> <Filename Value="testformatter_unit.pas"/>
<Caret Line="21" Column="14" TopLine="13"/> <Caret Line="314" Column="36" TopLine="301"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="..\..\base_binary_formatter.pas"/> <Filename Value="testformatter_unit.pas"/>
<Caret Line="1410" Column="3" TopLine="1393"/> <Caret Line="724" Column="3" TopLine="695"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="..\..\base_xmlrpc_formatter.pas"/> <Filename Value="testformatter_unit.pas"/>
<Caret Line="1341" Column="9" TopLine="1319"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position3> </Position3>
<Position4>
<Filename Value="..\..\base_xmlrpc_formatter.pas"/>
<Caret Line="1274" Column="15" TopLine="1259"/>
</Position4>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

6
wst/trunk/tests/test_suite/wst_test_suite.lpr
View File

@ -2,7 +2,13 @@ program wst_test_suite;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
{$DEFINE UseCThreads}
uses uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
custapp, classes, sysutils, fpcunit, testreport, testregistry, custapp, classes, sysutils, fpcunit, testreport, testregistry,
TestFormatter_unit, testmetadata_unit, TestFormatter_unit, testmetadata_unit,
server_service_soap, soap_formatter, base_binary_formatter, server_service_soap, soap_formatter, base_binary_formatter,