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

Part 2

Browse Source 
FPC UnicodeString support (+ test cases)
WideString support (+ test cases)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@556 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2008-09-13 15:19:20 +00:00
parent 812edb945c
commit 5a497d957a
13 changed files with 1028 additions and 123 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
wst/trunk/tests/test_suite/test_suite_utils.pas
View File

@ -27,6 +27,7 @@ const
function CompareNodes(const A,B : TDOMNode) : Boolean;overload;
function wstExpandLocalFileName(const AFileName : string) : string;
function DumpMemory(AMem : Pointer; const ALength : PtrInt) : ansistring;
implementation
@ -35,6 +36,17 @@ begin
Result := AFileName;
end;
function DumpMemory(AMem : Pointer; const ALength : PtrInt) : ansistring;
var
i : PtrInt;
begin
Result := '';
for i := 0 to Pred(ALength) do begin
Result := Result + '[' + IntToStr(Ord(PAnsiChar(AMem)^)) + ']';
Inc(PAnsiChar(AMem));
end;
end;
function CompareNodes(const A,B : TDOMNode) : Boolean;overload;
var
ca, cb : TDOMNode;

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

File diff suppressed because it is too large Load Diff

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

@ -21,11 +21,6 @@
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="FPCUnitTestRunner"/>
</Item1>
</RequiredPackages>
<Units Count="39">
<Unit0>
<Filename Value="wst_test_suite.lpr"/>
@ -225,7 +220,7 @@
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<Version Value="8"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="wst_test_suite.exe"/>
@ -246,7 +241,6 @@
<RangeChecks Value="True"/>
<OverflowChecks Value="True"/>
</Checks>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Debugging>

3
wst/trunk/tests/test_suite/wst_test_suite_gui.lpi
View File

@ -128,7 +128,7 @@
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<Version Value="8"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="wst_test_suite_gui.exe"/>
@ -143,7 +143,6 @@
<RangeChecks Value="True"/>
<OverflowChecks Value="True"/>
</Checks>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Debugging>