paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 07:38:14 +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="\"/>
<Version Value="5"/>
<General>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
<Language Value=""/>
<CharSet Value=""/>
</VersionInfo>
<PublishOptions>
<Version Value="2"/>
@ -30,12 +29,11 @@
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="16">
<Units Count="3">
<Unit0>
<Filename Value="bug822.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="bug822"/>
<UsageCount Value="20"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
@ -43,205 +41,12 @@
<IsPartOfProject Value="True"/>
<ResourceFilename Value="unit1.lrs"/>
<UnitName Value="Unit1"/>
<CursorPos X="29" Y="43"/>
<TopLine Value="10"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit1>
<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"/>
<IsPartOfProject Value="True"/>
<CursorPos X="8" Y="2"/>
<TopLine Value="1"/>
<EditorIndex Value="1"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<SyntaxHighlighter Value="None"/>
</Unit15>
</Unit2>
</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>
<CompilerOptions>
<Version Value="5"/>

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

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

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

@ -2,11 +2,13 @@
LazarusResources.Add('TForm1','FORMDATA',[
'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
+'Caption'#6#5'Form1'#0#10'TScrollBar'#10'ScrollBar1'#4'Left'#3#160#0#6'Heigh'
+'t'#3#201#0#3'Top'#2'('#5'Width'#2#17#4'Kind'#7#10'sbVertical'#8'TabOrder'#2
+#0#0#0#22'TApplicationProperties'#22'ApplicationProperties1'#17'CaptureExcep'
+'tions'#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'ApplicationPropertie'
+'s1Idle'#4'left'#2''''#3'top'#2#29#0#0#0
+'dth'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'VertScrollBar.Page'#3'+'#1#13
+'ActiveControl'#7#10'ScrollBar1'#7'Caption'#6#5'Form1'#0#6'TLabel'#6'Label1'
+#4'Left'#2#21#6'Height'#2#14#3'Top'#2#9#5'Width'#2' '#7'Caption'#6#6'Label1'
+#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#10'TScrollBar'#10'ScrollBar1'#4
+'Left'#3#160#0#6'Height'#3#201#0#3'Top'#2'('#5'Width'#2#17#4'Kind'#7#10'sbVe'
+'rtical'#8'TabOrder'#2#0#0#0#22'TApplicationProperties'#22'ApplicationProper'
+'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)
ApplicationProperties1: TApplicationProperties;
Label1: TLabel;
ScrollBar1: TScrollBar;
procedure ApplicationProperties1Idle(Sender: TObject; var Done: Boolean);
private
@ -31,11 +32,16 @@ implementation
procedure TForm1.ApplicationProperties1Idle(Sender: TObject; var Done: Boolean);
begin
Label1.Caption :=
format('ScrollBar1.Width: %d%sGetSystemMetrics(SM_CXVSCROLL): %d',
[ScrollBar1.Width, LineEnding, GetSystemMetrics(SM_CXVSCROLL)]);
if paramstr(1)='--runtest' then begin
if ScrollBar1.Width = GetSystemMetrics(SM_CXVSCROLL) then
writeln('ScrollBar1.Width = GetSystemMetrics(SM_CXVSCROLL)')
writeln('ScrollBar1.Width = GetSystemMetrics(SM_CXVSCROLL) = ')
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);
Close;
end;