diff options
Diffstat (limited to 'testautomation/framework/optional/includes/w_grid_layout1.inc')
-rwxr-xr-x | testautomation/framework/optional/includes/w_grid_layout1.inc | 86 |
1 files changed, 0 insertions, 86 deletions
diff --git a/testautomation/framework/optional/includes/w_grid_layout1.inc b/testautomation/framework/optional/includes/w_grid_layout1.inc index 69301789294c..8909045f288b 100755 --- a/testautomation/framework/optional/includes/w_grid_layout1.inc +++ b/testautomation/framework/optional/includes/w_grid_layout1.inc @@ -299,44 +299,6 @@ endcase '------------------------------------------------------------------------- -testcase tUserDefineLayout_1 - Dim sLinesPerPage , sCharsPerLine as String - Dim sExpectLinesPerPage , sExpectLinesPerPage1 as String - - sLinesPerPage = "20" - sCharsPerLine = "2" - sExpectLinesPerPage = "2" - sExpectLinesPerPage1 = "3" - - Call hNewDocument - - FormatPageWriter - Kontext - if active.exists(5) then - Active.SetPage TabGrid - endif - Kontext "TabGrid" - CharsGrid.Check - - LinesPerPage.SetText sLinesPerPage - Sleep 2 - CharsPerLine.SetText sCharsPerLine - Sleep 2 - - 'This step is no use, just let the LinesPerPage change the number - CharsGrid.Check - - if LinesPerPage.GetText <> sExpectLinesPerPage AND LinesPerPage.GetText <> sExpectLinesPerPage1 then - Warnlog "The lines per page should be" + sExpectLinesPerPage + " OR " + sExpectLinesPerPage1 +" but get " +LinesPerPage.GetText - end if - - TabGrid.Cancel - - Call hCloseDocument -endcase - -'------------------------------------------------------------------------- - testcase tFontSizeChanges_1 Dim testFile , sCorrectResult as String Dim sLinesPerPage , sCharsPerLine as String @@ -488,51 +450,3 @@ testcase tIndentsTest_1 endcase '------------------------------------------------------------------------- - -testcase tObjectsTest_1 - Dim testFile , sCorrectPage1 , sCorrectPage2 as String - - testFile = "objectsTest.sxw" - sCorrectPage1 = "1" - sCorrectPage2 = "2" - - Call hNewDocument - - Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile ) - - fStartupNavigator( "OLEObject" , 1 ) - Sleep 1 - Auswahlliste.TypeKeys "<Return>" - Sleep 1 - fCloseNavigator - Sleep 2 - - Kontext - FormatAnchorAsCharacter - Sleep 1 - - ViewNavigator - Kontext "NavigatorWriter" - Seitennummer.SetText sCorrectPage2 - Sleep 5 - if Seitennummer.GetText <> sCorrectPage2 then Warnlog "Something wrong when object is anchored as Character!" - fCloseNavigator - - fStartupNavigator( "OLEObject" , 1 ) - Auswahlliste.TypeKeys "<Return>" - fCloseNavigator - - Kontext - FormatAnchorToCharacter - - ViewNavigator - Kontext "NavigatorWriter" - Seitennummer.SetText sCorrectPage2 - Sleep 5 - if Seitennummer.GetText <> sCorrectPage1 then Warnlog "Something wrong when object is anchored to Character!" - fCloseNavigator - Kontext - - Call hCloseDocument -endcase - |