paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 10:58:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

tests: fixed compilation, no UTF8 support necessary for testing if it is a test suite run

Browse Source 
git-svn-id: trunk@16430 -
This commit is contained in:
vincents 2008-09-05 11:47:54 +00:00
parent a400a59f69
commit 99e60fa660
8 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/bugs/2068/unit1.pas
View File

@ -35,7 +35,7 @@ implementation
procedure TForm1.ApplicationProperties1Idle(Sender: TObject; var Done: Boolean);
begin
if ParamStrUTF8(1)='--runtest' then begin
if ParamStr(1)='--runtest' then begin
writeln(Debugger.Text);
Close;
end;

2
test/bugs/2075/unit1.pas
View File

@ -49,7 +49,7 @@ end;
procedure TForm1.ApplicationProperties1Idle(Sender: TObject; var Done: Boolean);
begin
if ParamStrUTF8(1)='--runtest' then begin
if ParamStr(1)='--runtest' then begin
DebugLn(FloatSpinEdit1.Caption);
DebugLn(Label1.Caption);
DebugLn(FloatSpinEdit2.Caption);

8
test/bugs/7462/bug7462.lpi
View File

@ -2,7 +2,7 @@
<CONFIG>
<ProjectOptions>
<PathDelim Value="\"/>
<Version Value="5"/>
<Version Value="6"/>
<General>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/>
@ -43,6 +43,7 @@
<Filename Value="unit1.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="unit1.lrs"/>
<UnitName Value="Unit1"/>
</Unit1>
@ -53,14 +54,11 @@
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<Version Value="8"/>
<PathDelim Value="\"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Debugging>
<UseLineInfoUnit Value="False"/>

2
test/bugs/7462/unit1.pas
View File

@ -36,7 +36,7 @@ end;
procedure TForm1.ApplicationProperties1Idle(Sender: TObject; var Done: Boolean);
begin
if ParamStrUTF8(1)='--runtest' then begin
if ParamStr(1)='--runtest' then begin
writeln('Memo length: ', Length(Memo1.Text));
Close;
end;

2
test/bugs/822/unit1.pas
View File

@ -35,7 +35,7 @@ begin
Label1.Caption :=
format('ScrollBar1.Width: %d%sGetSystemMetrics(SM_CXVSCROLL): %d',
[ScrollBar1.Width, LineEnding, GetSystemMetrics(SM_CXVSCROLL)]);
if ParamStrUTF8(1)='--runtest' then begin
if ParamStr(1)='--runtest' then begin
if ScrollBar1.Width = GetSystemMetrics(SM_CXVSCROLL) then
writeln('ScrollBar1.Width = GetSystemMetrics(SM_CXVSCROLL) = ')
else

2
test/bugs/8284/unit1.pas
View File

@ -33,7 +33,7 @@ implementation
procedure TForm1.ApplicationProperties1Idle(Sender: TObject; var Done: Boolean);
begin
if ParamStrUTF8(1)='--runtest' then begin
if ParamStr(1)='--runtest' then begin
// button doesn't have parentcolor, but is buttonface
writeln('Button color: ', ColorToString(Button1.Color));
// checkbox takes parent color

2
test/bugs/8437/unit1.pas
View File

@ -54,7 +54,7 @@ procedure TForm1.ApplicationProperties1Idle(Sender: TObject; var Done: Boolean);
var
Side1Width, Side2Width : integer;
begin
if ParamStrUTF8(1)='--runtest' then begin
if ParamStr(1)='--runtest' then begin
Side1Width := PairSplitterSide1.Width;
Side2Width := PairSplitterSide2.Width;
writeln(format('Side 1: %d, Side 2: %d',

2
test/bugs/8450/unit1.pas
View File

@ -50,7 +50,7 @@ end;
initialization
{$I unit1.lrs}
InTestRun := ParamStrUTF8(1)='--runtest';
InTestRun := ParamStr(1)='--runtest';
end.