paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 21:19:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

test: more verbose in case of failure

Browse Source 
git-svn-id: trunk@10629 -
This commit is contained in:
vincents 2007-02-12 20:56:11 +00:00
parent d947dfbb55
commit a875d9bf42
4 changed files with 33 additions and 210 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

203
test/bugs/822/bug822.lpi
View File

@ -4,14 +4,13 @@
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="5"/> <Version Value="5"/>
<General> <General>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
<Language Value=""/>
<CharSet Value=""/>
</VersionInfo> </VersionInfo>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -30,12 +29,11 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="16"> <Units Count="3">
<Unit0> <Unit0>
<Filename Value="bug822.lpr"/> <Filename Value="bug822.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="bug822"/> <UnitName Value="bug822"/>
<UsageCount Value="20"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
@ -43,205 +41,12 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceFilename Value="unit1.lrs"/> <ResourceFilename Value="unit1.lrs"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
<CursorPos X="29" Y="43"/>
<TopLine Value="10"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="..\..\..\lcl\stdctrls.pp"/>
<UnitName Value="StdCtrls"/>
<CursorPos X="18" Y="95"/>
<TopLine Value="72"/>
<EditorIndex Value="3"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="..\..\..\lcl\include\scrollbar.inc"/>
<CursorPos X="33" Y="30"/>
<TopLine Value="7"/>
<EditorIndex Value="4"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
<Filename Value="..\..\..\lcl\interfaces\gtk\gtkwsstdctrls.pp"/>
<UnitName Value="GtkWSStdCtrls"/>
<CursorPos X="40" Y="36"/>
<TopLine Value="14"/>
<EditorIndex Value="5"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit4>
<Unit5>
<Filename Value="..\..\..\lcl\widgetset\wscontrols.pp"/>
<UnitName Value="WSControls"/>
<CursorPos X="28" Y="143"/>
<TopLine Value="139"/>
<EditorIndex Value="6"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit5>
<Unit6>
<Filename Value="..\..\..\lcl\interfacebase.pp"/>
<UnitName Value="InterfaceBase"/>
<CursorPos X="14" Y="82"/>
<TopLine Value="64"/>
<EditorIndex Value="7"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit6>
<Unit7>
<Filename Value="..\..\..\lcl\interfaces\gtk\gtkint.pp"/>
<UnitName Value="GtkInt"/>
<CursorPos X="14" Y="307"/>
<TopLine Value="289"/>
<EditorIndex Value="8"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit7>
<Unit8>
<Filename Value="..\..\..\lcl\interfaces\gtk\gtkobject.inc"/>
<CursorPos X="22" Y="5933"/>
<TopLine Value="5927"/>
<EditorIndex Value="9"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit8>
<Unit9>
<Filename Value="..\..\..\lcl\interfaces\carbon\carbonint.pas"/>
<UnitName Value="CarbonInt"/>
<CursorPos X="14" Y="39"/>
<TopLine Value="21"/>
<EditorIndex Value="10"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit9>
<Unit10>
<Filename Value="..\..\..\..\fpc\2.1\packages\extra\univint\FPCMacOSAll.pas"/>
<UnitName Value="FPCMacOSAll"/>
<CursorPos X="11" Y="16480"/>
<TopLine Value="16463"/>
<EditorIndex Value="11"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit10>
<Unit11>
<Filename Value="..\..\..\lcl\interfaces\gtk\gtklclintf.inc"/>
<CursorPos X="39" Y="339"/>
<TopLine Value="373"/>
<EditorIndex Value="12"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit11>
<Unit12>
<Filename Value="..\..\..\lcl\include\sizeconstraints.inc"/>
<CursorPos X="1" Y="49"/>
<TopLine Value="25"/>
<EditorIndex Value="14"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit12>
<Unit13>
<Filename Value="..\..\..\lcl\include\wincontrol.inc"/>
<CursorPos X="17" Y="5181"/>
<TopLine Value="5111"/>
<EditorIndex Value="13"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit13>
<Unit14>
<Filename Value="..\..\..\lcl\interfaces\win32\interfaces.pp"/>
<UnitName Value="Interfaces"/>
<CursorPos X="5" Y="39"/>
<TopLine Value="10"/>
<EditorIndex Value="2"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit14>
<Unit15>
<Filename Value="expected.txt"/> <Filename Value="expected.txt"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<CursorPos X="8" Y="2"/> </Unit2>
<TopLine Value="1"/>
<EditorIndex Value="1"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<SyntaxHighlighter Value="None"/>
</Unit15>
</Units> </Units>
<JumpHistory Count="17" HistoryIndex="16">
<Position1>
<Filename Value="..\..\..\lcl\interfaces\gtk\gtkwsstdctrls.pp"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position1>
<Position2>
<Filename Value="..\..\..\lcl\interfaces\gtk\gtkwsstdctrls.pp"/>
<Caret Line="319" Column="27" TopLine="301"/>
</Position2>
<Position3>
<Filename Value="..\..\..\lcl\interfaces\gtk\gtkwsstdctrls.pp"/>
<Caret Line="36" Column="40" TopLine="14"/>
</Position3>
<Position4>
<Filename Value="..\..\..\lcl\widgetset\wscontrols.pp"/>
<Caret Line="95" Column="24" TopLine="69"/>
</Position4>
<Position5>
<Filename Value="..\..\..\lcl\widgetset\wscontrols.pp"/>
<Caret Line="143" Column="28" TopLine="139"/>
</Position5>
<Position6>
<Filename Value="..\..\..\lcl\interfaces\gtk\gtkint.pp"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position6>
<Position7>
<Filename Value="..\..\..\lcl\interfaces\carbon\carbonint.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position7>
<Position8>
<Filename Value="..\..\..\lcl\interfaces\carbon\carbonint.pas"/>
<Caret Line="39" Column="10" TopLine="21"/>
</Position8>
<Position9>
<Filename Value="..\..\..\..\fpc\2.1\packages\extra\univint\FPCMacOSAll.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position9>
<Position10>
<Filename Value="..\..\..\lcl\interfaces\gtk\gtklclintf.inc"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position10>
<Position11>
<Filename Value="..\..\..\lcl\include\sizeconstraints.inc"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position11>
<Position12>
<Filename Value="..\..\..\lcl\include\wincontrol.inc"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position12>
<Position13>
<Filename Value="..\..\..\lcl\include\sizeconstraints.inc"/>
<Caret Line="49" Column="1" TopLine="23"/>
</Position13>
<Position14>
<Filename Value="unit1.pas"/>
<Caret Line="25" Column="16" TopLine="1"/>
</Position14>
<Position15>
<Filename Value="unit1.pas"/>
<Caret Line="17" Column="78" TopLine="1"/>
</Position15>
<Position16>
<Filename Value="unit1.pas"/>
<Caret Line="37" Column="31" TopLine="5"/>
</Position16>
<Position17>
<Filename Value="..\..\..\lcl\interfaces\win32\interfaces.pp"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position17>
</JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="5"/>

14
test/bugs/822/unit1.lfm
View File

@ -5,7 +5,17 @@ object Form1: TForm1
Width = 400 Width = 400
HorzScrollBar.Page = 399 HorzScrollBar.Page = 399
VertScrollBar.Page = 299 VertScrollBar.Page = 299
ActiveControl = ScrollBar1
Caption = 'Form1' Caption = 'Form1'
object Label1: TLabel
Left = 21
Height = 14
Top = 9
Width = 32
Caption = 'Label1'
Color = clNone
ParentColor = False
end
object ScrollBar1: TScrollBar object ScrollBar1: TScrollBar
Left = 160 Left = 160
Height = 201 Height = 201
@ -22,7 +32,7 @@ object Form1: TForm1
HintShortCuts = True HintShortCuts = True
ShowHint = True ShowHint = True
OnIdle = ApplicationProperties1Idle OnIdle = ApplicationProperties1Idle
left = 39 left = 24
top = 29 top = 72
end end
end end

16
test/bugs/822/unit1.lrs
View File

@ -2,11 +2,13 @@
LazarusResources.Add('TForm1','FORMDATA',[ LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'"'#1#6'Height'#3','#1#3'Top'#3#175#0#5'Wi' 'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'"'#1#6'Height'#3','#1#3'Top'#3#175#0#5'Wi'
+'dth'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'VertScrollBar.Page'#3'+'#1#7 +'dth'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'VertScrollBar.Page'#3'+'#1#13
+'Caption'#6#5'Form1'#0#10'TScrollBar'#10'ScrollBar1'#4'Left'#3#160#0#6'Heigh' +'ActiveControl'#7#10'ScrollBar1'#7'Caption'#6#5'Form1'#0#6'TLabel'#6'Label1'
+'t'#3#201#0#3'Top'#2'('#5'Width'#2#17#4'Kind'#7#10'sbVertical'#8'TabOrder'#2 +#4'Left'#2#21#6'Height'#2#14#3'Top'#2#9#5'Width'#2' '#7'Caption'#6#6'Label1'
+#0#0#0#22'TApplicationProperties'#22'ApplicationProperties1'#17'CaptureExcep' +#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#10'TScrollBar'#10'ScrollBar1'#4
+'tions'#9#9'HintColor'#7#8'clInfoBk'#13'HintHidePause'#3#196#9#9'HintPause'#3 +'Left'#3#160#0#6'Height'#3#201#0#3'Top'#2'('#5'Width'#2#17#4'Kind'#7#10'sbVe'
+#244#1#13'HintShortCuts'#9#8'ShowHint'#9#6'OnIdle'#7#26'ApplicationPropertie' +'rtical'#8'TabOrder'#2#0#0#0#22'TApplicationProperties'#22'ApplicationProper'
+'s1Idle'#4'left'#2''''#3'top'#2#29#0#0#0 +'ties1'#17'CaptureExceptions'#9#9'HintColor'#7#8'clInfoBk'#13'HintHidePause'
+#3#196#9#9'HintPause'#3#244#1#13'HintShortCuts'#9#8'ShowHint'#9#6'OnIdle'#7
+#26'ApplicationProperties1Idle'#4'left'#2#24#3'top'#2'H'#0#0#0
]); ]);

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

@ -14,6 +14,7 @@ type
TForm1 = class(TForm) TForm1 = class(TForm)
ApplicationProperties1: TApplicationProperties; ApplicationProperties1: TApplicationProperties;
Label1: TLabel;
ScrollBar1: TScrollBar; ScrollBar1: TScrollBar;
procedure ApplicationProperties1Idle(Sender: TObject; var Done: Boolean); procedure ApplicationProperties1Idle(Sender: TObject; var Done: Boolean);
private private
@ -31,11 +32,16 @@ implementation
procedure TForm1.ApplicationProperties1Idle(Sender: TObject; var Done: Boolean); procedure TForm1.ApplicationProperties1Idle(Sender: TObject; var Done: Boolean);
begin begin
Label1.Caption :=
format('ScrollBar1.Width: %d%sGetSystemMetrics(SM_CXVSCROLL): %d',
[ScrollBar1.Width, LineEnding, GetSystemMetrics(SM_CXVSCROLL)]);
if paramstr(1)='--runtest' then begin if paramstr(1)='--runtest' then begin
if ScrollBar1.Width = GetSystemMetrics(SM_CXVSCROLL) then if ScrollBar1.Width = GetSystemMetrics(SM_CXVSCROLL) then
writeln('ScrollBar1.Width = GetSystemMetrics(SM_CXVSCROLL)') writeln('ScrollBar1.Width = GetSystemMetrics(SM_CXVSCROLL) = ')
else else
writeln('ScrollBar1.Width <> GetSystemMetrics(SM_CXVSCROLL)'); writeln(
format('ScrollBar1.Width (%d) <> GetSystemMetrics(SM_CXVSCROLL) (%d)',
[ScrollBar1.Width, GetSystemMetrics(SM_CXVSCROLL)]));
writeln('ScrollBar1.Height: ', ScrollBar1.Height); writeln('ScrollBar1.Height: ', ScrollBar1.Height);
Close; Close;
end; end;