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

tests: renamed to make test more clear

Browse Source 
git-svn-id: trunk@29142 -
This commit is contained in:
mattias 2011-01-20 18:52:48 +00:00
parent 1cb4963ee6
commit 062d59479f
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
test/lcltests/testpreferredsize.pas
View File

@ -1,3 +1,12 @@
{
Test that empty ScrollBox with AutoScroll shows no scrollbars:
./runtests --format=plain --suite=TestScrollBoxEmpty
Test that ScrollBox with AutoScroll shows/hides scrollbars:
./runtests --format=plain --suite=TestScrollBoxAutoShowHideScrollbars
}
unit testpreferredsize; unit testpreferredsize;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
@ -16,7 +25,7 @@ type
published published
procedure TestGroupBoxPreferredSize1; procedure TestGroupBoxPreferredSize1;
procedure TestScrollBoxEmpty; procedure TestScrollBoxEmpty;
procedure TestScrollBoxOneChildPanel; procedure TestScrollBoxAutoShowHideScrollbars;
end; end;
implementation implementation
@ -84,7 +93,7 @@ begin
Application.ProcessMessages; Application.ProcessMessages;
end; end;
procedure TTestPreferredSize.TestScrollBoxOneChildPanel; procedure TTestPreferredSize.TestScrollBoxAutoShowHideScrollbars;
var var
Form1: TForm; Form1: TForm;
ScrollBox1: TScrollBox; ScrollBox1: TScrollBox;
@ -112,8 +121,8 @@ begin
IntfPreferredHeight:=0; IntfPreferredHeight:=0;
TWSWinControlClass(ScrollBox1.WidgetSetClass).GetPreferredSize(ScrollBox1, TWSWinControlClass(ScrollBox1.WidgetSetClass).GetPreferredSize(ScrollBox1,
IntfPreferredWidth, IntfPreferredHeight, false); IntfPreferredWidth, IntfPreferredHeight, false);
AssertEquals('ScrollBox must not have interface preferred width',0,IntfPreferredWidth); AssertEquals('ScrollBox must have small interface preferred width',true,IntfPreferredWidth<8);
AssertEquals('ScrollBox must not have interface preferred height',0,IntfPreferredHeight); AssertEquals('ScrollBox must have small interface preferred height',true,IntfPreferredHeight<8);
//writeln('TTestPreferredSize.TestScrollBoxOneChildPanel Range=',ScrollBox1.HorzScrollBar.Range,' ',ScrollBox1.HorzScrollBar.Page,' ',ScrollBox1.HorzScrollBar.Visible); //writeln('TTestPreferredSize.TestScrollBoxOneChildPanel Range=',ScrollBox1.HorzScrollBar.Range,' ',ScrollBox1.HorzScrollBar.Page,' ',ScrollBox1.HorzScrollBar.Visible);
AssertEquals('ScrollBox1.HorzScrollBar.Range should be the needed Right of all childs 60',60,ScrollBox1.HorzScrollBar.Range); AssertEquals('ScrollBox1.HorzScrollBar.Range should be the needed Right of all childs 60',60,ScrollBox1.HorzScrollBar.Range);