diff options
| author | Oliver Bolte <obo@openoffice.org> | 2009-09-07 08:30:03 +0000 |
|---|---|---|
| committer | Oliver Bolte <obo@openoffice.org> | 2009-09-07 08:30:03 +0000 |
| commit | 8d19f8eab1d0da0467616760009049305159b7e5 (patch) | |
| tree | c395405c40ac14753f61f1a35be32d6bd2e3ba1a /testautomation/writer/optional | |
| parent | CWS-TOOLING: integrate CWS sw32bf02 (diff) | |
| download | core-8d19f8eab1d0da0467616760009049305159b7e5.tar.gz core-8d19f8eab1d0da0467616760009049305159b7e5.zip | |
CWS-TOOLING: integrate CWS automationdev300m55writer_fixes
2009-08-27 12:19:34 +0200 hde r275471 : adding a keypress to testcase
2009-08-27 12:07:20 +0200 hde r275468 : adding a sleep after selection of object
2009-08-27 10:21:42 +0200 hde r275462 : warnlog for i102093 removed
2009-08-26 15:50:43 +0200 wg r275429 : 104520
2009-08-26 15:20:25 +0200 hde r275425 : added checkbox Notes
2009-08-25 15:20:06 +0200 hde r275363 : mouse click is observed as obsolete
2009-08-25 13:47:33 +0200 hde r275350 : maximized document window after opening
2009-08-25 10:43:47 +0200 hde r275340 : maximizes document windowon create
2009-08-25 08:52:33 +0200 hde r275333 : #95266#styles for chineses adapted
2009-08-24 15:34:45 +0200 hde r275321 : #104450#several fixes in object selection
2009-08-24 15:34:03 +0200 hde r275320 : #104450#several fixes in object selection
2009-08-21 14:44:36 +0200 wg r275261 : 104404
2009-08-21 14:40:39 +0200 wg r275259 : 104404
2009-08-21 14:39:03 +0200 wg r275258 : 104404
2009-08-21 14:30:37 +0200 wg r275256 : 104404
2009-08-21 14:24:18 +0200 wg r275253 : 104404
2009-08-21 14:21:44 +0200 wg r275252 : 104404
2009-08-21 14:08:41 +0200 wg r275247 : 104404
2009-08-21 14:05:51 +0200 wg r275246 : 104404
2009-08-21 13:20:44 +0200 wg r275242 : 104398
2009-08-21 13:14:05 +0200 wg r275241 : 104398
2009-08-21 13:00:26 +0200 hde r275240 : 102477-warnlog removed from testcase
2009-08-21 12:52:50 +0200 wg r275238 : 104398
2009-08-21 12:50:26 +0200 wg r275237 : 104398
2009-08-21 12:50:07 +0200 hde r275236 : printlog changed
2009-08-21 12:48:43 +0200 hde r275235 : 100240-testcases renamed to a meaningful name
2009-08-21 12:46:59 +0200 wg r275233 : 104398
2009-08-21 12:37:46 +0200 wg r275231 : 104398
2009-08-21 11:37:20 +0200 oc r275229 : #i104395# sleeps added to avoid timing problems
2009-08-21 11:24:19 +0200 wg r275226 : 104393
2009-08-20 15:49:02 +0200 hde r275187 : i100670-made qaerrorlog from warnlog
2009-08-20 15:44:58 +0200 hde r275186 : 104358..html-export excluded
Diffstat (limited to 'testautomation/writer/optional')
17 files changed, 1257 insertions, 1250 deletions
diff --git a/testautomation/writer/optional/includes/fields/w_fields1.inc b/testautomation/writer/optional/includes/fields/w_fields1.inc index afff7587b568..23b2c6676320 100755 --- a/testautomation/writer/optional/includes/fields/w_fields1.inc +++ b/testautomation/writer/optional/includes/fields/w_fields1.inc @@ -39,19 +39,19 @@ sub w_fields1 - Call tFields_1 'Insert / Fields / Date - Call tFields_2 'Insert / Fields / Time - Call tFields_3 'Insert / Fields / Page Number - Call tFields_4 'Insert / Fields / Page Count - Call tFields_5 'Insert / Fields / Subject - Call tFields_6 'Insert / Fields / Title - Call tFields_7 'Insert / Fields / Author + Call tInsertFieldsDate + Call tInsertFieldsTime + Call tInsertFieldsPageNumber + Call tInsertFieldsPageCount + Call tInsertFieldsSubject + Call tInsertFieldsTitle + Call tInsertFieldsAuthor end sub '----------------------------------------------------------------- -testcase tFields_1 +testcase tInsertFieldsDate Dim sDate as String sDate = Date @@ -112,7 +112,7 @@ endcase '----------------------------------------------------------------- -testcase tFields_2 +testcase tInsertFieldsTime Dim sTime as String Dim sTime1 as String @@ -175,7 +175,7 @@ endcase '----------------------------------------------------------------- -testcase tFields_3 +testcase tInsertFieldsPageNumber qaerrorlog "#i93906# - Testcase outcommented due to bug. 'Copied field-content not pastable outside Office'" goto endsub @@ -221,7 +221,7 @@ endcase '----------------------------------------------------------------- -testcase tFields_4 +testcase tInsertFieldsPageCount qaerrorlog "#i93906# - Testcase outcommented due to bug. 'Copied field-content not pastable outside Office'" goto endsub @@ -278,7 +278,7 @@ endcase '----------------------------------------------------------------- -testcase tFields_5 +testcase tInsertFieldsSubject qaerrorlog "#i93906# - Testcase outcommented due to bug. 'Copied field-content not pastable outside Office'" goto endsub @@ -311,7 +311,7 @@ endcase '----------------------------------------------------------------- -testcase tFields_6 +testcase tInsertFieldsTitle qaerrorlog "#i93906# - Testcase outcommented due to bug. 'Copied field-content not pastable outside Office'" goto endsub @@ -345,7 +345,7 @@ endcase '----------------------------------------------------------------- -testcase tFields_7 +testcase tInsertFieldsAuthor qaerrorlog "#i93906# - Testcase outcommented due to bug. 'Copied field-content not pastable outside Office'" goto endsub diff --git a/testautomation/writer/optional/includes/fields/w_fields2.inc b/testautomation/writer/optional/includes/fields/w_fields2.inc index 7e68edb5c78f..55e0ff590f9f 100755 --- a/testautomation/writer/optional/includes/fields/w_fields2.inc +++ b/testautomation/writer/optional/includes/fields/w_fields2.inc @@ -39,24 +39,24 @@ sub w_fields2 - Call tFieldsOther_0 'NON modal - Call tFieldsOther_1_1 'Insert/Fields/Other/Document / Author - Call tFieldsOther_1_2 'Insert/Fields/Other/Document / Author - Fixed - Call tFieldsOther_2 'Insert/Fields/Other/Document / Chapter - Call tFieldsOther_3 'Insert/Fields/Other/Document / Date - Call tFieldsOther_4 'Insert/Fields/Other/Document / File name - Call tFieldsOther_5 'Insert/Fields/Other/Document / Page - Call tFieldsOther_6_1 'Insert/Fields/Other/Document / Sender - Call tFieldsOther_6_2 'Insert/Fields/Other/Document / Sender - Fixed - Call tFieldsOther_7 'Insert/Fields/Other/Document / Statistics - Call tFieldsOther_8 'Insert/Fields/Other/Document / Template - Call tFieldsOther_9 'Insert/Fields/Other/Document / Time + Call tDialogNonModal + Call tDocumentAuthor + Call tDocumentAuthorFixed + Call tDocumentChapter + Call tDocumentDate + Call tDocumentFilename + Call tDocumentPage + Call tDocumentSender + Call tDocumentSenderFixed + Call tDocumentStatistics + Call tDocumentTemplate + Call tDocumentTime end sub '----------------------------------------------------------------- -testcase tFieldsOther_0 +testcase tDialogNonModal Dim sTest as String @@ -90,7 +90,7 @@ endcase '----------------------------------------------------------------- -testcase tFieldsOther_1_1 +testcase tDocumentAuthor if iSprache <> 1 then QaErrorLog "Currently no any other language than English. Aborting." exit sub @@ -196,7 +196,7 @@ endcase '----------------------------------------------------------------- -testcase tFieldsOther_1_2 +testcase tDocumentAuthorFixed if iSprache <> 1 then QaErrorLog "Currently no any other language than English. Aborting." exit sub @@ -304,7 +304,7 @@ endcase '----------------------------------------------------------------- -testcase tFieldsOther_2 +testcase tDocumentChapter Dim sTestFile as String Dim sChapter() as String @@ -360,7 +360,7 @@ endcase '----------------------------------------------------------------- -testcase tFieldsOther_3 +testcase tDocumentDate Dim sDate as String @@ -391,7 +391,7 @@ endcase '----------------------------------------------------------------- -testcase tFieldsOther_4 +testcase tDocumentFilename if bAsianLan = true then QaErrorLog "No testing with Asian language. Aborting." exit sub @@ -450,7 +450,7 @@ endcase '----------------------------------------------------------------- -testcase tFieldsOther_5 +testcase tDocumentPage qaerrorlog "#i93906# - Testcase outcommented due to bug. 'Copied field-content not pastable outside Office'" goto endsub @@ -509,7 +509,7 @@ endcase '----------------------------------------------------------------- -testcase tFieldsOther_6_1 +testcase tDocumentSender if iSprache <> 1 then QaErrorLog "Currently no testing with other languages than English. (ID's are not the same) Aborting." exit sub @@ -686,7 +686,7 @@ endcase '----------------------------------------------------------------- -testcase tFieldsOther_6_2 +testcase tDocumentSenderFixed if iSprache <> 1 then QaErrorLog "Currently no testing with other languages than English. (ID's are not the same) Aborting." exit sub @@ -866,7 +866,7 @@ endcase '----------------------------------------------------------------- -testcase tFieldsOther_7 +testcase tDocumentStatistics qaerrorlog "#i93906# - Testcase outcommented due to bug. 'Copied field-content not pastable outside Office'" goto endsub @@ -929,7 +929,7 @@ endcase '----------------------------------------------------------------- -testcase tFieldsOther_8 +testcase tDocumentTemplate qaerrorlog "#i93906# - Testcase outcommented due to bug. 'Copied field-content not pastable outside Office'" goto endsub @@ -999,7 +999,7 @@ endcase '----------------------------------------------------------------- -testcase tFieldsOther_9 +testcase tDocumentTime Dim sTime1 as String Dim sTime2 as String diff --git a/testautomation/writer/optional/includes/fields/w_fields3.inc b/testautomation/writer/optional/includes/fields/w_fields3.inc index cc165d9eed3f..6e92e0b0017c 100755 --- a/testautomation/writer/optional/includes/fields/w_fields3.inc +++ b/testautomation/writer/optional/includes/fields/w_fields3.inc @@ -39,29 +39,29 @@ sub w_fields3 - Call tFieldsReferences 'Insert/Cross-reference - Call tSetReferences_1 'Set Reference - Cursor at any position - Call tSetReferences_2 'Set Reference - Select some text - Call tInsertReference_1 'Insert Reference - Page - Call tInsertReference_2 'Insert Reference - Chapter - Call tInsertReference_3 'Insert Reference - Reference - Call tInsertReference_4 'Insert Reference - Above/Below - Call tInsertReference_5 'Insert Reference - As Page Style - Call tInsertReference_6 'Insert Footnote - Call tInsertReference_7 'Insert Endnote - Call tInsertReference_8_1 'Insert Caption - Above - Call tInsertReference_8_2 'Insert Caption - Below - Call tInsertBookmark_1 'Insert Bookmark - Page - Call tInsertBookmark_2 'Insert Bookmark - Chapter - Call tInsertBookmark_3 'Insert Bookmark - Reference - Call tInsertBookmark_4 'Insert Bookmark - Above/Below - Call tInsertBookmark_5 'Insert Bookmark - As Page Style + Call tCrossReference + Call tSetReferenceNoSelection + Call tSetReferenceTextSelection + Call tInsertReferencePage + Call tInsertReferenceChapter + Call tInsertReferenceReference + Call tInsertReferenceAboveBelow + Call tInsertReferenceAsPageStyle + Call tInsertFootnote + Call tInsertEndnote + Call tInsertCaptionAbove + Call tInsertCaptionBelow + Call tInsertBookmarkPage + Call tInsertBookmarkChapter + Call tInsertBookmarkReference + Call tInsertBookmarkAboveBelow + Call tInsertBookmarkAsPageStyle end sub '----------------------------------------------------------------- -testcase tFieldsReferences +testcase tCrossReference printlog "Insert/Cross-reference" '/// <b> Insert/Cross-reference </b> @@ -86,7 +86,7 @@ endcase '----------------------------------------------------------------- -testcase tSetReferences_1 +testcase tSetReferenceNoSelection Dim sReference as String Dim sTestFile as String @@ -133,7 +133,7 @@ endcase '----------------------------------------------------------------- -testcase tSetReferences_2 +testcase tSetReferenceTextSelection Dim sReference as String @@ -174,7 +174,7 @@ endcase '----------------------------------------------------------------- -testcase tInsertReference_1 +testcase tInsertReferencePage Dim sReference as String Dim sTestFile as String @@ -234,7 +234,7 @@ endcase '----------------------------------------------------------------- -testcase tInsertReference_2 +testcase tInsertReferenceChapter Dim sReference as String Dim sTestFile as String @@ -294,7 +294,7 @@ endcase '----------------------------------------------------------------- -testcase tInsertReference_3 +testcase tInsertReferenceReference Dim sReference as String Dim sReferenceName as String @@ -355,7 +355,7 @@ endcase '----------------------------------------------------------------- -testcase tInsertReference_4 +testcase tInsertReferenceAboveBelow Dim sReference as String Dim sAbove as String @@ -446,7 +446,7 @@ endcase '----------------------------------------------------------------- -testcase tInsertReference_5 +testcase tInsertReferenceAsPageStyle Dim sReference as String Dim sTestSytle as String @@ -509,7 +509,7 @@ endcase '----------------------------------------------------------------- -testcase tInsertReference_6 +testcase tInsertFootnote Dim sFootnote as String @@ -543,7 +543,7 @@ endcase '----------------------------------------------------------------- -testcase tInsertReference_7 +testcase tInsertEndnote Dim sEndnote as String @@ -577,7 +577,7 @@ endcase '----------------------------------------------------------------- -testcase tInsertReference_8_1 +testcase tInsertCaptionAbove Dim sCategory as String Dim sCaption as String @@ -627,7 +627,7 @@ endcase '----------------------------------------------------------------- -testcase tInsertReference_8_2 +testcase tInsertCaptionBelow Dim sCategory as String Dim sCaption as String @@ -677,7 +677,7 @@ endcase '----------------------------------------------------------------- -testcase tInsertBookmark_1 +testcase tInsertBookmarkPage Dim sBookmark as String Dim sTestFile as String @@ -735,7 +735,7 @@ endcase '----------------------------------------------------------------- -testcase tInsertBookmark_2 +testcase tInsertBookmarkChapter Dim sBookmark as String Dim sTestFile as String @@ -792,7 +792,7 @@ endcase '----------------------------------------------------------------- -testcase tInsertBookmark_3 +testcase tInsertBookmarkReference Dim sReference as String Dim sBookmark as String @@ -850,7 +850,7 @@ endcase '----------------------------------------------------------------- -testcase tInsertBookmark_4 +testcase tInsertBookmarkAboveBelow Dim sBookmark as String Dim sAbove as String @@ -938,7 +938,7 @@ endcase '----------------------------------------------------------------- -testcase tInsertBookmark_5 +testcase tInsertBookmarkAsPageStyle Dim sBookmark as String Dim sTestSytle as String diff --git a/testautomation/writer/optional/includes/fields/w_fields4.inc b/testautomation/writer/optional/includes/fields/w_fields4.inc index 9e2883813ea9..736e3649bf56 100755 --- a/testautomation/writer/optional/includes/fields/w_fields4.inc +++ b/testautomation/writer/optional/includes/fields/w_fields4.inc @@ -39,23 +39,23 @@ sub w_fields4 - Call tDocInformation_1 'Doc Information - Title - Call tDocInformation_2 'Doc Information - Subject - Call tDocInformation_3 'Doc Information - Keywords - Call tDocInformation_4 'Doc Information - Description - Call tDocInformation_5 'Doc Information - User Defined - Call tDocInformation_6 'Doc Information - Created - Call tDocInformation_7_1 'Doc Information - Modified - Call tDocInformation_7_2 'Doc Information - Modified (Save file) - Call tDocInformation_8 'Doc Information - Printed - Call tDocInformation_9 'Doc Information - Revision number - Call tDocInformation_10 'Doc Information - Tatal editing time + Call tDocInformationTitle + Call tDocInformationSubject + Call tDocInformationKeywords + Call tDocInformationDescription + Call tDocInformationUserDefined + Call tDocInformationCreated + Call tDocInformationModified + Call tDocInformationModifiedSavefile + Call tDocInformationPrinted + Call tDocInformationRevisionnumber + Call tDocInformationTotaleditingtime end sub '----------------------------------------------------------------- -testcase tDocInformation_1 +testcase tDocInformationTitle Dim sTitle as String Dim sTestFile as String @@ -107,7 +107,7 @@ endcase '----------------------------------------------------------------- -testcase tDocInformation_2 +testcase tDocInformationSubject Dim sSubject as String Dim sTestFile as String @@ -159,7 +159,7 @@ endcase '----------------------------------------------------------------- -testcase tDocInformation_3 +testcase tDocInformationKeywords Dim sKeywords as String Dim sTestFile as String @@ -211,7 +211,7 @@ endcase '----------------------------------------------------------------- -testcase tDocInformation_4 +testcase tDocInformationDescription Dim sDescription as String Dim sTestFile as String @@ -266,7 +266,7 @@ endcase '----------------------------------------------------------------- -testcase tDocInformation_5 +testcase tDocInformationUserDefined qaerrorlog "#i93906# - Testcase outcommented due to bug. 'Copied field-content not pastable outside Office'" goto endsub @@ -340,7 +340,7 @@ endcase '----------------------------------------------------------------- -testcase tDocInformation_6 +testcase tDocInformationCreated Dim sTestFile as String Dim sFirstName as String @@ -444,7 +444,7 @@ endcase '----------------------------------------------------------------- -testcase tDocInformation_7_1 +testcase tDocInformationModified Dim sTestFile as String Dim sSaveasFile as String @@ -571,8 +571,8 @@ endcase '----------------------------------------------------------------- -testcase tDocInformation_7_2 - QaErrorLog "#i102792# - tDocInformation_7_2 outcommented due to issue." +testcase tDocInformationModifiedSavefile + QaErrorLog "#i102792# - tDocInformationModifiedSavefile outcommented due to issue." goto endsub Dim sTestFile as String @@ -685,7 +685,7 @@ endcase '----------------------------------------------------------------- -testcase tDocInformation_8 +testcase tDocInformationPrinted Dim sTestFile as String Dim sFirstName as String @@ -803,7 +803,7 @@ endcase '----------------------------------------------------------------- -testcase tDocInformation_9 +testcase tDocInformationRevisionnumber Dim sTestFile as String Dim sSaveasFile as String @@ -817,7 +817,7 @@ testcase tDocInformation_9 sFirstName1 = "Test1" : sLastName1 = "Test2" sVarResult = "17" : sFixResult = "4" sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\fields\fields_docinfos.sxw") - sSaveasFile = ConvertPath (gOfficePath + "user\work\tDocInformation_9.sxw" ) + sSaveasFile = ConvertPath (gOfficePath + "user\work\tDocInformationRevisionnumber.sxw" ) if hFileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile ) @@ -899,7 +899,7 @@ endcase '----------------------------------------------------------------- -testcase tDocInformation_10 +testcase tDocInformationTotaleditingtime Dim sTestFile as String Dim sSaveasFile as String @@ -908,7 +908,7 @@ testcase tDocInformation_10 sFixResult = "00:29:05" sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\fields\fields_docinfos.sxw") - sSaveasFile = ConvertPath (gOfficePath + "user\work\tDocInformation_9.sxw" ) + sSaveasFile = ConvertPath (gOfficePath + "user\work\tDocInformationRevisionnumber.sxw" ) if hFileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile ) diff --git a/testautomation/writer/optional/includes/fields/w_fields5.inc b/testautomation/writer/optional/includes/fields/w_fields5.inc index 8993463cf29b..2dd0be24a5cc 100755 --- a/testautomation/writer/optional/includes/fields/w_fields5.inc +++ b/testautomation/writer/optional/includes/fields/w_fields5.inc @@ -33,29 +33,29 @@ '* '* owner : helge.delfs@sun.com '* -'* short description : Fields - Variabs +'* short description : Fields - Variables '* '\*********************************************************************** sub w_fields5 - Call tVariables_1 'Set value to text - Call tVariables_2 'Set value to number - Call tVariables_3 'Set format as 'Additional formats...' - Call tVariables_4 'Show Variable - 1 - Call tVariables_5 'Show Variable - 2 - Call tVariables_6 'Insert formula - Call tVariables_7 'Number range - Call tVariables_8 'Input field - Call tVariables_9 'User field - Call tVariables_10 'DDE field - manual - Call tVariables_11 'DDE field - automatic + Call tVariablesSetValueToText + Call tVariablesSetValueToNumber + Call tVariablesSetFormats + Call tVariablesShowVariable1 + Call tVariablesShowVariable2 + Call tVariablesInsertFormula + Call tVariablesNumberRange + Call tVariablesInputfield + Call tVariablesUserfield + Call tVariablesDDEFieldManual + Call tVariablesDDEFieldAutomatic end sub '----------------------------------------------------------------- -testcase tVariables_1 +testcase tVariablesSetValueToText if bAsianLan = true then QaErrorLog "No testing with Asian language. Aborting." exit sub @@ -127,7 +127,7 @@ endcase '----------------------------------------------------------------- -testcase tVariables_2 +testcase tVariablesSetValueToNumber if bAsianLan = true then QaErrorLog "No testing with Asian language. Aborting." exit sub @@ -199,8 +199,8 @@ endcase '----------------------------------------------------------------- -testcase tVariables_3 - qaerrorlog "#i94596# - tVariables_3 outcommented due to bug." +testcase tVariablesSetFormats + qaerrorlog "#i94596# - tVariablesSetFormats outcommented due to bug." goto endsub Dim sName as String @@ -270,7 +270,7 @@ endcase '----------------------------------------------------------------- -testcase tVariables_4 +testcase tVariablesShowVariable1 Dim sName() as String Dim sResult() as String @@ -348,7 +348,7 @@ endcase '----------------------------------------------------------------- -testcase tVariables_5 +testcase tVariablesShowVariable2 Dim sName as String Dim sValue as String @@ -427,7 +427,7 @@ endcase '----------------------------------------------------------------- -testcase tVariables_6 +testcase tVariablesInsertFormula Dim sName() as String Dim sValue() as String @@ -482,7 +482,7 @@ endcase '----------------------------------------------------------------- -testcase tVariables_7 +testcase tVariablesNumberRange Dim sResult() as String Dim i as Integer @@ -541,7 +541,7 @@ endcase '----------------------------------------------------------------- -testcase tVariables_8 +testcase tVariablesInputfield Dim sName as String Dim sValue as String @@ -614,7 +614,7 @@ endcase '----------------------------------------------------------------- -testcase tVariables_9 +testcase tVariablesUserfield Dim sName() as String Dim sValue() as String @@ -672,8 +672,8 @@ endcase '----------------------------------------------------------------- -testcase tVariables_10 - qaerrorlog "#i93906# - tVariables_10 outcommented due to a problem with copying field-contents outside the office." +testcase tVariablesDDEFieldManual + qaerrorlog "#i93906# - tVariablesDDEFieldManual outcommented due to a problem with copying field-contents outside the office." goto endsub Dim sDDEFile as String @@ -765,8 +765,8 @@ endcase '----------------------------------------------------------------- -testcase tVariables_11 - qaerrorlog "#i102792# - tVariables_11 outcommented. Fields not updated." +testcase tVariablesDDEFieldAutomatic + qaerrorlog "#i102792# - tVariablesDDEFieldAutomatic outcommented. Fields not updated." goto endsub Dim sDDEFile as String diff --git a/testautomation/writer/optional/includes/fields/w_fields6.inc b/testautomation/writer/optional/includes/fields/w_fields6.inc index 2375323e995c..1d25c81ac69d 100755 --- a/testautomation/writer/optional/includes/fields/w_fields6.inc +++ b/testautomation/writer/optional/includes/fields/w_fields6.inc @@ -39,25 +39,25 @@ sub w_fields6 - Call tFunctions_1 'Conditional text - Call tFunctions_2 'Hidden text - Call tFunctions_3 'Hidden paragraph - Call tFunctions_4 'Input field - Call tFunctions_5 'Placeholder - text - Call tFunctions_6 'Placeholder - table - Call tFunctions_7 'Placeholder - frame - Call tFunctions_8 'Placeholder - graphics - Call tFunctions_9 'Placeholder - object - Call tFunctions_10 'Input list - Remove - Call tFunctions_11 'Input list - Move up - Call tFunctions_12 'Input list - Move down - Call tFunctions_13 'Combine Character + Call tFunctionsConditionalText + Call tFunctionsHiddenText + Call tFunctionsHiddenParagraph + Call tFunctionsInputField + Call tFunctionsPlaceholderText + Call tFunctionsPlaceholderTable + Call tFunctionsPlaceholderFrame + Call tFunctionsPlaceholderGraphics + Call tFunctionsPlaceholderObject + Call tFunctionsInputlistRemove + Call tFunctionsInputlistMoveUp + Call tFunctionsInputlistMoveDown + Call tFunctionsCombineCharacter end sub '----------------------------------------------------------------- -testcase tFunctions_1 +testcase tFunctionsConditionalText Dim sName as String Dim sValue() as String @@ -134,7 +134,7 @@ endcase '----------------------------------------------------------------- -testcase tFunctions_2 +testcase tFunctionsHiddenText Dim sName as String Dim sValue() as String @@ -219,7 +219,7 @@ endcase '----------------------------------------------------------------- -testcase tFunctions_3 +testcase tFunctionsHiddenParagraph Dim sName as String Dim sValue() as String @@ -307,7 +307,7 @@ endcase '----------------------------------------------------------------- -testcase tFunctions_4 +testcase tFunctionsInputField Dim sReference as String Dim sFieldContent as String @@ -350,7 +350,7 @@ endcase '----------------------------------------------------------------- -testcase tFunctions_5 +testcase tFunctionsPlaceholderText Dim sPlaceHolder as String @@ -384,7 +384,7 @@ endcase '----------------------------------------------------------------- -testcase tFunctions_6 +testcase tFunctionsPlaceholderTable printlog "Placeholder - Table" '/// <b> Placeholder - Table </b> @@ -449,7 +449,7 @@ endcase '----------------------------------------------------------------- -testcase tFunctions_7 +testcase tFunctionsPlaceholderFrame printlog "Placeholder - Frame" '/// <b> Placeholder - Frame </b> @@ -515,7 +515,7 @@ endcase '----------------------------------------------------------------- -testcase tFunctions_8 +testcase tFunctionsPlaceholderGraphics printlog "Placeholder - Graphics" '/// <b> Placeholder - Graphics </b> @@ -580,7 +580,7 @@ endcase '----------------------------------------------------------------- -testcase tFunctions_9 +testcase tFunctionsPlaceholderObject printlog "Placeholder - Object" '/// <b> Placeholder - Object </b> @@ -644,7 +644,7 @@ endcase '----------------------------------------------------------------- -testcase tFunctions_10 +testcase tFunctionsInputlistRemove Dim sItem1 as String Dim sItem2 as String @@ -692,7 +692,7 @@ endcase '----------------------------------------------------------------- -testcase tFunctions_11 +testcase tFunctionsInputlistMoveUp Dim sItem1 as String Dim sItem2 as String @@ -739,7 +739,7 @@ endcase '----------------------------------------------------------------- -testcase tFunctions_12 +testcase tFunctionsInputlistMoveDown Dim sItem1 as String Dim sItem2 as String @@ -787,7 +787,9 @@ endcase '----------------------------------------------------------------- -testcase tFunctions_13 +testcase tFunctionsCombineCharacter +Warnlog "#i102752# - tFunctionsCombineCharacter outcommented due to bug." +goto endsub Dim sCombineCharacter as String Dim sTestFile as String diff --git a/testautomation/writer/optional/includes/fields/w_fields7.inc b/testautomation/writer/optional/includes/fields/w_fields7.inc index aea6da78d684..96e851691fa6 100755 --- a/testautomation/writer/optional/includes/fields/w_fields7.inc +++ b/testautomation/writer/optional/includes/fields/w_fields7.inc @@ -39,15 +39,15 @@ sub w_fields7 - Call tL10N_1 'L10N test - above/below - Call tL10N_2 'L10N test - date - Call tL10N_3 'L10N test - time + Call tL10NtestAboveBelow + Call tL10NtestDate + Call tL10NtestTime end sub '----------------------------------------------------------------- -testcase tL10N_1 +testcase tL10NtestAboveBelow if iSprache <> 1 then QaErrorLog "Currently no any other language than English. Aborting." @@ -181,7 +181,7 @@ endcase '----------------------------------------------------------------- -testcase tL10N_2 +testcase tL10NtestDate if iSprache <> 1 then QaErrorLog "Currently no any other language than English. Aborting." exit sub @@ -293,7 +293,7 @@ endcase '----------------------------------------------------------------- -testcase tL10N_3 +testcase tL10NtestTime if iSprache <> 1 then QaErrorLog "Currently no any other language than English. Aborting." exit sub diff --git a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic5.inc b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic5.inc index 9c3a7ddfcc11..fe6704392a0a 100755 --- a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic5.inc +++ b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic5.inc @@ -50,8 +50,6 @@ '\*********************************************************************** testcase tInsertGraphic_41 -QaErrorLog "#i102477# - tInsertGraphic_41 crashes testtool. Therefore outcommented." -goto endsub Dim sLeft as String Dim sRight as String diff --git a/testautomation/writer/optional/includes/loadsave/w_loadsave.inc b/testautomation/writer/optional/includes/loadsave/w_loadsave.inc index 6265775e996d..ad2c3122da63 100644 --- a/testautomation/writer/optional/includes/loadsave/w_loadsave.inc +++ b/testautomation/writer/optional/includes/loadsave/w_loadsave.inc @@ -143,27 +143,33 @@ testcase tExportAllReadableFormatsIntoODF printlog "- Alien warning passed" end if - sExportFile = WorkDirectory & "ExportedFile" & i & ".odf" - Printlog "- Save as : " & ConvertPath ( sExportFile ) - if hFileSaveAsWithFilterKill (sExportFile, "writer8") = true then - printlog "- done" - printlog "- close file" - Call hCloseDocument - - Printlog "- Open previous saved file" - Call hFileOpenWithFilter (sExportFile, "writer8") - printlog "- done" - ' Check for macro alert - Kontext "SecurityWarning" - if SecurityWarning.Exists then - if inStr(ImportFileList(i),"sw40") = false then - QAErrorlog "Macro-Security Warning is up though document should have no macro! Macro disabled" + ' HTML-File can't be exported as odf this way + if GetExtention(ImportFileList(i)) <> "html" then + + sExportFile = WorkDirectory & "ExportedFile" & i & ".odf" + Printlog "- Save as : " & ConvertPath ( sExportFile ) + if hFileSaveAsWithFilterKill (sExportFile, "writer8") = true then + printlog "- done" + printlog "- close file" + Call hCloseDocument + + Printlog "- Open previous saved file" + Call hFileOpenWithFilter (sExportFile, "writer8") + printlog "- done" + ' Check for macro alert + Kontext "SecurityWarning" + if SecurityWarning.Exists then + if inStr(ImportFileList(i),"sw40") = false then + QAErrorlog "Macro-Security Warning is up though document should have no macro! Macro disabled" + end if + SecurityWarning.Cancel end if - SecurityWarning.Cancel + Sleep 1 + else + Warnlog "Unable to save file: " & sExportFile end if - Sleep 1 else - Warnlog "Unable to save file: " & sExportFile + printlog "- HTML-file is not exported this way" end if printlog "- Close all open files." @@ -214,7 +220,7 @@ testcase tExportAllReadableFormatsIntoThemselves end if app.Mkdir sWorkDirectory -warnlog "#i102221# - Pocketword-filter seems broken." + QAErrorlog "#i102221#Pocketword-filter seems broken." For iCurrentFileIndex = 1 to 16 select case iCurrentFileIndex diff --git a/testautomation/writer/optional/includes/option/wh_o_1.inc b/testautomation/writer/optional/includes/option/wh_o_1.inc index 13e637314532..c27598c2816a 100755 --- a/testautomation/writer/optional/includes/option/wh_o_1.inc +++ b/testautomation/writer/optional/includes/option/wh_o_1.inc @@ -558,6 +558,8 @@ testcase tToolsOptionsHTMLGrid Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.Cancel + + sleep (2) '------------------------------------------------------------------------------- printlog ("'/// Function Test: Grid Resolution ///'") diff --git a/testautomation/writer/optional/includes/option/wh_o_2.inc b/testautomation/writer/optional/includes/option/wh_o_2.inc index c63167c6c576..998aab11714a 100755 --- a/testautomation/writer/optional/includes/option/wh_o_2.inc +++ b/testautomation/writer/optional/includes/option/wh_o_2.inc @@ -130,6 +130,7 @@ testcase tToolsOptionsHTMLPrint Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK + sleep (2) Call hFileSaveAsKill(gOfficepath + "user\work\printtest.html") Call hCloseDocument diff --git a/testautomation/writer/optional/includes/redlining/w_redlining1.inc b/testautomation/writer/optional/includes/redlining/w_redlining1.inc index 5fd20677bb54..8cdbbeddf467 100755 --- a/testautomation/writer/optional/includes/redlining/w_redlining1.inc +++ b/testautomation/writer/optional/includes/redlining/w_redlining1.inc @@ -523,9 +523,6 @@ endcase testcase tRedlining_8 - warnlog "#i102093# - Crash with Edit-Change-Record." - goto endsub - '/// Test searched and replaced text printlog "searched and replaced text" diff --git a/testautomation/writer/optional/includes/stylist/w_stylist.inc b/testautomation/writer/optional/includes/stylist/w_stylist.inc index 47c0beec81ca..a3a2e4147247 100755 --- a/testautomation/writer/optional/includes/stylist/w_stylist.inc +++ b/testautomation/writer/optional/includes/stylist/w_stylist.inc @@ -1,1019 +1,1022 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_stylist.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:36:39 $ -'* -'* This file is part of OpenOffice.org. -'* -'* OpenOffice.org is free software: you can redistribute it and/or modify -'* it under the terms of the GNU Lesser General Public License version 3 -'* only, as published by the Free Software Foundation. -'* -'* OpenOffice.org is distributed in the hope that it will be useful, -'* but WITHOUT ANY WARRANTY; without even the implied warranty of -'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -'* GNU Lesser General Public License version 3 for more details -'* (a copy is included in the LICENSE file that accompanied this code). -'* -'* You should have received a copy of the GNU Lesser General Public License -'* version 3 along with OpenOffice.org. If not, see -'* <http://www.openoffice.org/license.html> -'* for a copy of the LGPLv3 License. -'* -'/************************************************************************ -'* -'* owner : helge.delfs@sun.com -'* -'* short description : Test common stylist functions and assigning styles -'* -'************************************************************************ -'* -' #1 tFormatStylist1 -' #1 tFormatStylist2 -' #1 tFormatStylist3 -' #1 tFormatStylist4 -' #1 tFormatStylist5 -' #1 tFormatStylist6 -' #1 tFormatStylist7 -' #1 tAssigningStyles1 -' #1 tAssigningStyles2 -' #1 tAssigningStyles3 -' #1 tAssigningStyles4 -' #1 tAssigningStyles5 -' #1 tAssigningStyles6 -' #1 tAssigningStyles7 -' #1 tKeyboardShortcutToStyles -'* -'\*********************************************************************** - -sub w_stylist - printLog Chr(13) + "--------- Level 1 - Format / Stylist ----------" - - Call tFormatStylist1 ' all methods on stylist - Call tFormatStylist2 ' interacting between documents - Call tFormatStylist3 ' show all templates - Call tFormatStylist4 ' search/create templates - Call tFormatStylist5 ' select templet in stylist - Call tFormatStylist6 ' new template from selection - Call tFormatStylist7 ' new template from selection, modified via ContextMenu. - Call tAssigningStyles1 - Call tAssigningStyles2 - Call tAssigningStyles3 - Call tAssigningStyles4 - Call tAssigningStyles5 - Call tAssigningStyles6 - Call tAssigningStyles7 - Call tKeyboardShortcutToStyles - -end sub - -' ********************************************************************** - -testcase tFormatStylist1 - Dim xPos as long - Dim yPos as long - Dim xSize% - Dim ySize% - - printlog "- Format / Stylist : all methods with Navigator as window" - printlog "New writerdocument" - Call hNewDocument - printlog " - Call Stylist with F11" - printlog "Call stylist with <F11> aand proof all windowmethods at stylist" - Call wTypeKeys "<F11>" - Kontext "Stylist" - if Stylist.NotExists then - Warnlog "No Stylist with <F11>" - FormatStylist - end if - xPos = Stylist.GetPosX - yPos = Stylist.GetPosY - xSize% = Stylist.GetSizeX - ySize% = Stylist.GetSizeY - - printlog " - move Stylist" - Stylist.Move 10, 10 - Sleep 1 - Stylist.Move 300, 400 - Sleep 1 - Stylist.Move 590, 790 - Sleep 1 - Stylist.Move xPos, yPos - Sleep 1 - - printlog " - size Stylist" - try - Stylist.Size 300, 400 - catch - Warnlog "Sizen Stylist doesn't work.. see #i32449" - endcatch - Sleep 1 - try - Stylist.Size xSize%, ySize% - catch - Warnlog "Sizen Stylist doesn't work.. see #i32449" - endcatch - Sleep 1 - - printlog " - close Stylist and reopen ( has to be the same size )" - xPos = Stylist.GetPosX - yPos = Stylist.GetPosY - xSize% = Stylist.GetSizeX - ySize% = Stylist.GetSizeY - FormatStylist - Sleep 1 - FormatStylist - if xPos <> Stylist.GetPosX then Warnlog "x-Pos. has been changed : Not -> "+ xPos + " but -> "+ Stylist.GetPosX - if yPos <> Stylist.GetPosY then Warnlog "y-Pos. has been changed : Not -> "+ yPos + " but -> "+ Stylist.GetPosY - if xSize% <> Stylist.GetSizeX then Warnlog "x-Size has been changed : Not -> "+ xSize% + " but -> "+ Stylist.GetSizeX - if ySize% <> Stylist.GetSizeY then Warnlog "y-Size has been changed : Not -> "+ ySize% + " but -> "+ Stylist.GetSizeY - - printlog " - dock Stylist" - Stylist.Dock - Sleep 1 - if NOT Stylist.IsDocked then Warnlog "Stylist has not been docked in" - Stylist.Undock - Sleep 1 - - Stylist.Close - printlog "Close document" - Call hCloseDocument - -endcase - -' ********************************************************************** - -testcase tFormatStylist2 - Dim xPos% - Dim yPos% - Dim xSize% - Dim ySize% - - printlog "- Format/Stylist : Methods from Stylist as Window between more than one document" - printlog " New document" - Call hNewDocument - printlog "check all methods of Stylist as Window between more than one document" - Call wTypeKeys "Test the stylist functions" - printlog " - Call Stylist in first document and check in a second document" - Sleep 2 - Kontext "Stylist" - If Not Stylist.Exists then FormatStylist - Sleep 2 - Call hNewDocument - Call wTypeKeys "Test the stylist functions" - Sleep 2 - Kontext "Stylist" - if Stylist.NotExists then Warnlog "No Stylist in new document" - - printlog " - Close all documents and reopen" - Sleep 2 - Call hCloseDocument - Sleep 2 - Call hCloseDocument - Sleep 2 - Call hNewDocument - Sleep 2 - Call wTypeKeys "Test the stylist functions" - Kontext "Stylist" - if Stylist.NotExists then Warnlog "No Stylist in a new document" - - printlog " - Dock Stylist in first document and check in a new if docked" - Sleep 2 - Stylist.Dock - Sleep 1 - Call hNewDocument - Call wTypeKeys "Test the stylist functions" - Kontext "Stylist" - if NOT Stylist.IsDocked then Warnlog "Stylist is not docked in new document" - - printlog " - Close all documents, reopen one and check docked Stylist" - Call hCloseDocument - Sleep 2 - Call hCloseDocument - Sleep 2 - Call hNewDocument - Kontext "Stylist" - if NOT Stylist.IsDocked then Warnlog "Stylist is not docked in new document" - - printlog " - Close Stylist with <F11>" - Stylist.Undock - Sleep 1 - Call wTypeKeys "<F11>" - Kontext "Stylist" - if NOT Stylist.NotExists then - Warnlog "Stylist is still open" - Stylist.Close - end if - printlog "Close document" - Call hCloseDocument - -endcase - -' ********************************************************************** - -testcase tFormatStylist3 - Dim i as Integer - Dim AllStyles as integer - Dim j as integer - Dim RemString as string - printlog "- Format / Stylist : select all Style properties" - - Call hNewDocument - printlog " New writerdocument" - FormatStylist - printlog "Select all style properties in stylist" - Kontext "Stylist" - if Stylist.NotExists then FormatStylist - printlog " - Paragraph Styles" - Absatzvorlagen.Click - - for i=1 to Gruppenliste.GetItemCount - Gruppenliste.Select i - wait 500 - if i = 2 then ' All Styles - Vorlagenliste.TypeKeys "<Home>" - AllStyles = 1 - For j = 1 to 200 - RemString = Vorlagenliste.Gettext - 'Include this, if you want to see the styles in writerdocument - 'SetClipboard Vorlagenliste.Gettext - 'Kontext "DocumentWriter" - 'DocumentWriter.TypeKeys GetClipboardtext + "<Return>" - 'Kontext "Stylist" - Vorlagenliste.TypeKeys "<Down>" - if Vorlagenliste.Gettext <> RemString then - AllStyles = AllStyles + 1 - else - j = 202 - if AllStyles <> "122" then - Select Case iSprache - Case 07 - warnlog "Double styles in stylist" - Case 55 - warnlog "Missing Style in Stylist" - Case 31 - warnlog "Missing Style in Stylist" - Case else - Warnlog "There are " + AllStyles + " styles in this category and not 122!" - end select - else - printlog "There are " + AllStyles + " styles in this category!" - end if - end if - next j - end if - Sleep 1 - next i - - Zeichenvorlagen.Click - Sleep 2 - printlog " - Chapter Styles" - for i=1 to Gruppenliste.GetItemCount - Gruppenliste.Select i - AllStyles = AllStyles + 1 - Sleep 1 - next i - - Rahmenvorlagen.Click - Sleep 2 - printlog " - Frame Styles" - for i=1 to Gruppenliste.GetItemCount - Gruppenliste.Select i - AllStyles = AllStyles + 1 - Sleep 1 - next i - - Seitenvorlagen.Click - Sleep 2 - printlog " - Page Styles" - for i=1 to Gruppenliste.GetItemCount - Gruppenliste.Select i - AllStyles = AllStyles + 1 - Sleep 1 - next i - Stylist.Close - printlog "Close document" - Call hCloseDocument -endcase - -' ********************************************************************** - -testcase tFormatStylist4 - Dim i as Integer - Dim AlterWert$ - Dim NeuerWert$ - - printlog "- Format / Stylist : check created Styles" - printlog "New writerdocument" - Call hNewDocument - printlog " - create Paragraph Style in Stylist" - Call wStyleCreate ( "ATesttool", "Paragraph", true ) - Kontext "Stylist" - printlog "Check if Style has been added in stylist" - if wStyleSelect ( "ATesttool", "Paragraph" ) = false then Warnlog "Paragraph Style has not been found" - - printlog " - Create Character Style in Stylist" - Call wStyleCreate ( "BTesttool", "Character", true ) - if wStyleSelect ( "BTesttool", "Character" ) = false then Warnlog "Character Style has not been found!" - printlog " - Create Frame Style in Stylist" - Call wStyleCreate ( "CTesttool", "Frame", true ) - if wStyleSelect ( "CTesttool", "Frame" ) = false then Warnlog "Frame Style has not been found!" - - printlog " - Create Page Style in Stylist" - Call wStyleCreate ( "DTesttool", "Page", true ) - if wStyleSelect ( "DTesttool", "Page" ) = false then Warnlog "Page Style has not been found" - - printlog " - creating Styles should not have been affecting to new documents" - ' To avoid focus problems on unix first close stylist - Kontext "Stylist" - if Stylist.Exists then FormatStylist - Call hNewDocument - Kontext "Stylist" - if Not Stylist.Exists then FormatStylist - - if wStyleSelect ( "ATesttool", "Paragraph" ) = true then Warnlog "Paragraph Style has been found in new document" - if wStyleSelect ( "BTesttool", "Character" ) = true then Warnlog "Character Style has been found in new document" - 'if wStyleSelect ( "CTesttool", "Frame" ) = true then Warnlog "Frame Style has been found in new document" - if wStyleSelect ( "DTesttool", "Page" ) = true then Warnlog "Page Style has been found in new document" - - Call hCloseDocument - printlog "Close document" - Call hCloseDocument -endcase - -' ********************************************************************** - -testcase tFormatStylist5 - Dim SuchMal as string, i as integer - Dim bStyleFound as boolean - - printlog "- Format / Stylist : select Style" - printlog "New writerdocument" - if bAsianLan = True then - printlog "- Not in Asian languages!" - goto endsub - end if - Call hNewDocument - Call wTypeKeys "Dies ist ein formatierter Text <Shift Home>" - printlog " - format Text" - FormatCharacter - Kontext - Active.SetPage TabFontEffects - Kontext "TabFontEffects" - StrikeThrough.Select 2 - Outline.Check - TabFontEffects.OK - - printlog " - adjust to Standard-Format through the Stylist" - printlog "adjust to Standard-Format through the Stylist" - FormatStylist - Kontext "Stylist" - if Stylist.NotExists then FormatStylist - 'Get name for 'default' template - Kontext "TextObjectbar" - SuchMal = Vorlage.GetSelText - printlog "Using " & SuchMal & " as 'default'" - Kontext "Stylist" - - Vorlagenliste.TypeKeys "<Home>" - bStyleFound = false - for i=1 to Vorlagenliste.GetItemCount - Vorlagenliste.Select i - if Vorlagenliste.GetText = Suchmal then - Vorlagenliste.TypeKeys "<Return>" - bStyleFound = true - exit for - end if - next i - Stylist.Close - - if bStyleFound = false then - Warnlog "Style: " & Suchmal & " has not been found in Stylist" - Call hCloseDocument - goto endsub - end if - - printlog " - check format" - FormatCharacter - Kontext - Active.SetPage TabFontEffects - Kontext "TabFontEffects" - if StrikeThrough.GetSelIndex = 2 then Warnlog "Wrong entry selected in StrikeThrough" - if Outline.IsChecked then Warnlog "Format Outline is still checked" - TabFontEffects.OK - - printlog "Close document" - Call hCloseDocument -endcase - -' ********************************************************************** - -testcase tFormatStylist6 - Dim i as integer - - printlog "- Format / Stylist : new Style from selection" - printlog "New writerdocument" - Call hNewDocument - Call wTypeKeys "Creating a style from selection <Return><Up><Shift End>" - printlog "create a new style from selection" - FormatCharacter - Kontext - Active.SetPage TabFontEffects - Kontext "TabFontEffects" - Shadow.Check - StrikeThrough.Select 2 - Overline.Select 2 - OverlineColor.Select 6 - Outline.Check - Effects.Select 3 - Blinking.Check - Kontext - Active.Setpage TabHyperlinkZeichen - Kontext "TabHyperlinkZeichen" - URLName.SetText "www.mikeportnoy.com" - TabHyperlinkZeichen.OK - - printlog " - Create Character Style from selection" - Kontext "Stylist" - if not Stylist.Exists then FormatStylist - Kontext "Stylist" - TBGestalter.Click ZeichenVorlagen - Sleep 1 - - AusSelektion.OpenMenu - Sleep 1 - hMenuSelectNr(1) - Sleep 1 - - Kontext "VorlageErzeugen" - if VorlageErzeugen.Exists then - VorlagenName.SetText "Testtool" - VorlageErzeugen.OK - else - Warnlog "Creating Style did not work. Dialog not up!" - end if - - printlog " - assign new Character Style to a new text" - wTypeKeys "<Home><Down>",3 - wTypeKeys "This is some new text <Return><Up><Up><Shift End>" - Kontext "Stylist" - TBGestalter.Click ZeichenVorlagen - if Vorlagenliste.GetSeltext <> "Testtool" then 'Go find the entry. - Vorlagenliste.TypeKeys "<Home>" - For i = 1 to 100 - Vorlagenliste.TypeKeys "<Down>" - if Vorlagenliste.GetSeltext = "Testtool" then 'Found it! - i = 102 - end if - next i - end if - Vorlagenliste.TypeKeys "<Return>" 'Assign to text. - Stylist.Close - if i = 101 then - Warnlog "Created Style could not be found in Stylist!" - else - Printlog " - check Style" - FormatCharacter - Kontext - Active.SetPage TabFontEffects - Kontext "TabFontEffects" - if NOT Shadow.IsChecked then Warnlog "Shadow is not checked anymore" - if StrikeThrough.GetSelIndex <> 2 then Warnlog "Wrong entry selection in StrikeThrough" - if Overline.GetSelIndex <> 2 then Warnlog "Overline is not checked anymore" - if OverlineColor.GetSelIndex <> 6 then Warnlog "Wrong Overline Color selected" - if NOT Outline.IsChecked then Warnlog "Outline is not checked anymore" - if Effects.GetSelIndex <> 3 then Warnlog "Wrong effect selected" - if NOT Blinking.IsChecked then Warnlog "Blinking is not checked anymore" - Kontext - Active.Setpage TabHyperlinkZeichen - Kontext "TabHyperlinkZeichen" - if URLName.GetText <> "http://www.mikeportnoy.com/" then Warnlog "#i41171#TabHyperlink: URL is wrong " + URLName.Gettext - TabHyperlinkZeichen.OK - end if - - printlog "Close document" - Call hCloseDocument -endcase - -' ********************************************************************** - -testcase tFormatStylist7 - Dim i as integer - - printlog "- Format / Stylist : new Style from selection, then modified via the ContextMenu." - printlog "New writerdocument" - Call hNewDocument - Call wTypeKeys "Creating a style from selection <Return><Up><Shift End>" - printlog "create a new style from selection" - - printlog " - Create Character Style from selection" - Kontext "Stylist" - if not Stylist.Exists then FormatStylist - Kontext "Stylist" - TBGestalter.Click ZeichenVorlagen - Sleep 1 - - AusSelektion.OpenMenu - Sleep 1 - hMenuSelectNr(1) - Sleep 1 - - Kontext "VorlageErzeugen" - if VorlageErzeugen.Exists then - VorlagenName.SetText "Testtool" - VorlageErzeugen.OK - else - Warnlog "Creating Style did not work. Dialog not up!" - end if - - printlog " Open ContextMenu over the 'Testtool' Style." - Kontext "Stylist" - if not Stylist.Exists then FormatStylist - Kontext "Stylist" - TBGestalter.Click ZeichenVorlagen - if Vorlagenliste.GetSeltext <> "Testtool" then - Vorlagenliste.TypeKeys "<Home>" - For i = 1 to 100 - Vorlagenliste.TypeKeys "<Down>" - if Vorlagenliste.GetSeltext = "Testtool" then - i = 102 - end if - next i - if i = 101 then - warnlog "No Testtool -Stylist found. Check if new stylists can be created. Test ends." - goto endsub - end if - end if - Vorlagenliste.TypeKeys "<SHIFT F10>" 'Open ContextMenu - Sleep 1 - printlog " Select 'Modify'" - Call hMenuSelectNr(2) 'Modify - Sleep 1 - - printlog " Goto Tabpage 'Font Effects' and change some settings." - Kontext - Active.SetPage TabFontEffects - Kontext "TabFontEffects" - Shadow.Check - StrikeThrough.Select 2 - Overline.Select 2 - OverlineColor.Select 6 - Outline.Check - Effects.Select 3 - Blinking.Check - TabFontEffects.OK - - printlog " - assign new Character Style to a new text" - wTypeKeys "<Home><Down>",3 - wTypeKeys "This is some new text <Return><Up><Up><Shift End>" - Kontext "Stylist" - TBGestalter.Click ZeichenVorlagen - - if Vorlagenliste.GetSeltext <> "Testtool" then - Vorlagenliste.TypeKeys "<Home>" - For i = 1 to 100 - Vorlagenliste.TypeKeys "<Down>" - if Vorlagenliste.GetSeltext = "Testtool" then 'Found it! - i = 102 - end if - next i - end if - Vorlagenliste.TypeKeys "<Return>" 'Assign Style to Text. - Stylist.Close - if i = 101 then - Warnlog "Created Style could not be found in Stylist!" - else - Printlog " - check Style" - FormatCharacter - Kontext - Active.SetPage TabFontEffects - Kontext "TabFontEffects" - if NOT Shadow.IsChecked then Warnlog "Shadow is not checked anymore" - if StrikeThrough.GetSelIndex <> 2 then Warnlog "Wrong entry selection in StrikeThrough" - if Overline.GetSelIndex <> 2 then Warnlog "Overline is not checked anymore" - if OverlineColor.GetSelIndex <> 6 then Warnlog "Wrong Overline Color selected" - if NOT Outline.IsChecked then Warnlog "Outline is not checked anymore" - if Effects.GetSelIndex <> 3 then Warnlog "Wrong effect selected" - if NOT Blinking.IsChecked then Warnlog "Blinking is not checked anymore" - TabFontEffects.OK - end if - - printlog "Close document" - Call hCloseDocument -endcase - -' ********************************************************************** - -testcase tAssigningStyles1 - Dim i as integer - Dim sStyles() as string - Dim sTemp as string - Dim j as integer - Dim bStyleInList as boolean - - printlog "UI and Strings check" - Call hNewDocument - printlog "Open a new writerdocument" - printlog "Check if the following strings and only those strings are present:" - printlog "Clear formatting" - printlog "Heading 1" - printlog "Heading 2" - printlog "Heading 3" - printlog "Default" - printlog "Text body" - printlog "More..." - Select Case iSprache - Case 01 : sStyles = Array("Clear formatting", "Default", "Heading 1", "Heading 2", "Heading 3", "Text body", "More...") - Case 07 : sStyles = Array("Отменить форматирование", "Базовый", "Заголовок 1", "Заголовок 2", "Заголовок 3", "Основной текст", "Дополнительно...") - Case 31 : sStyles = Array("Opmaak wissen", "Kop 1", "Kop 2", "Kop 3", "Standaard", "Tekstblok", "Meer...") - Case 33 : sStyles = Array("Effacer le formatage", "Corps de texte", "Par défaut", "Titre 1", "Titre 2", "Titre 3", "Autres...") - Case 34 : sStyles = Array("Borrar formato", "Cuerpo de texto", "Encabezado 1", "Encabezado 2", "Encabezado 3", "Predeterminado", "Más...") - Case 36 : sStyles = Array("Formázás törlése", "Alapértelmezett", "Címsor 1", "Címsor 2", "Címsor 3", "Szövegtörzs", "További...") - Case 39 : sStyles = Array("Cancella formattazione", "Corpo testo", "Intestazione 1", "Intestazione 2", "Intestazione 3", "Standard", "Extra...") - Case 46 : sStyles = Array("Radera formatering", "Brödtext", "Överskrift 1", "Överskrift 2", "Överskrift 3", "Standard", "Mer...") - Case 48 : sStyles = Array("Wyczyść formatowanie", "Domyślnie", "Nagłówek 1", "Nagłówek 2", "Nagłówek 3", "Treść tekstu", "Więcej...") - Case 49 : sStyles = Array("Formatierung löschen", "Standard", "Textkörper", "Überschrift 1", "Überschrift 2", "Überschrift 3", "Weitere...") - Case 55 : sStyles = Array("Limpar formatação", "Corpo do texto", "Padrão", "Título 1", "Título 2", "Título 3", "Mais...") - Case 81 : sStyles = Array("書式設定の解除", "本文", "標準", "見出し 1", "見出し 2", "見出し 3", "詳細...") - Case 82 : sStyles = Array("서식 지우기", "기본값", "제목 1", "제목 2", "제목 3", "텍스트 본문", "자세히...") - Case 86 : sStyles = Array("清除格式", "标准", "标题 1", "标题 2", "标题 3", "正文", "更多(~M)...") - Case 88 : sStyles = Array("清除格式", "內文", "標準", "標題 1", "標題 2", "標題 3", "更多...") - Case 90 : sStyles = Array("Biçimlendirmeyi temizle", "Başlık 1", "Başlık 2", "Başlık 3", "Metin gövdesi", "Varsayılan", "Diğer...") - Case else : Warnlog "Current language not supported. Please add styles to list!" - Kontext "Textobjectbar" - printlog "- Current Styles: " - For i = 1 to Vorlage.GetItemCount - Vorlage.Select i - printlog Vorlage.GetSelText - next i - Call hCloseDocument - exit sub - end select - - 'Check number of entrys....have to be seven - Kontext "Textobjectbar" - if Vorlage.GetItemCount <> 7 then - Select case iSprache - case 82 : warnlog "Korean: Number of styles in styleslistbox wrong" - case else : Warnlog "Not 7 entrys in Styles & Formatting combobox but: " & Vorlage.GetItemCount - end select - end if - - For i = 1 to Vorlage.GetItemCount - Vorlage.Select i - sTemp = Vorlage.GetSelText - printlog "- check style: " & sTemp - bStyleInList = false - For j = 0 to 6 - if sStyles(j) = sTemp then - bStyleInList = true - end if - next j - - if bStyleInList = true then - printlog "- style " & sTemp & " found in list" - else - if iSprache <> 82 then Warnlog "- style " & sTemp & " wasn't found in list!" - end if - next i - - Call hCloseDocument -endcase - -' ********************************************************************** - -testcase tAssigningStyles2 - Dim i as integer - Dim sTemp as string - - printlog "- Apply Style" - printlog "New writerdocument" - Call hNewDocument - printlog "Insert dummytext" - if wBlindtextEinfuegen = false then - Call hCloseDocument - exit sub - end if - - printlog "Select whole dummytext" - Call wTypeKeys "<Mod1 A>" - printlog "Apply style 'Heading 1' through Styles & Formatting combobox" - Kontext "Textobjectbar" - for i = 1 to Vorlage.GetItemCount - Vorlage.Select i - sTemp = Vorlage.GetSelText - if Instr(sTemp, "1") then - Vorlage.TypeKeys "<Return>" - exit for - end if - next i - - printlog "Check if style has been applied to paragraph" - Call wTypeKeys "<Mod1 Home><End>" - Call wTypeKeys "<Left>", 2 - - Kontext "Textobjectbar" - if Vorlage.GetSeltext <> sTemp then - Warnlog "Seems style has not been completely applied to paragraph!" - end if - - Call hCloseDocument -endcase - -' ********************************************************************** - -testcase tAssigningStyles3 - - printlog "- Create a new style" - printlog "Open a new writerdocument" - Call hNewDocument - printlog "Insert a dummy text" - if wBlindtextEinfuegen = false then - Call hCloseDocument - exit sub - end if - - printlog "Select the whole dummy text" - Call wTypeKeys "<Mod1 A>" - printlog "Format / Character" - FormatCharacter - Kontext - Active.Setpage TabFont - Kontext "TabFont" - printlog "Apply first font in list and select 2nd Typeface" - if gAsianSup = True then - FontWest.Select 1 - StyleWest.Select 2 - else - Font.Select 1 - Style.Select 1 - end if - TabFont.Ok - - printlog "Enter 'MyStyle' in Stylelistbox" - Kontext "Textobjectbar" - Vorlage.TypeKeys "<Mod1 A>" - Vorlage.TypeKeys "MyStyle<Return>" - - printlog "Check if style has been applied to the combobox" - Call wTypeKeys "<Mod1 End>" - - wait 500 - Kontext "Textobjectbar" - try - Vorlage.Select "MyStyle" - catch - Warnlog "Seems style has not been applied to combobox" - endcatch - - printlog "Check if style has been applied to paragraph" - Call wTypeKeys "<Mod1 Home>" - Call wTypeKeys "<Right>", 2 - - Kontext "Textobjectbar" - if Vorlage.GetSelText <> "MyStyle" then - Warnlog "Seems style has not been applied to paragraph" - end if - - printlog "Close Document" - Call hCloseDocument -endcase - -' ********************************************************************** - -testcase tAssigningStyles4 - Dim i as integer - Dim sTemp as string - - printlog "- Clear formatting: whole paragraph" - printlog "Open a new writer document" - Call hNewDocument - printlog "Insert a dummytext" - if wBlindtextEinfuegen = false then - Call hCloseDocument - exit sub - end if - - printlog "Select whole dummytext" - Call wTypeKeys "<Mod1 A>" - printlog "Apply style 'Heading 1' through Styles & Formatting combobox" - Kontext "Textobjectbar" - for i = 1 to Vorlage.GetItemCount - Vorlage.Select i - sTemp = Vorlage.GetSelText - if Instr(sTemp, "1") then - Vorlage.TypeKeys "<Return>" - exit for - end if - next i - - printlog "choose 'Clear formatting' in combobox" - Kontext "Textobjectbar" - Vorlage.Select 1 - Vorlage.TypeKeys "<Return>" - wait 500 - printlog "Check if style has been set to default" - Call wTypeKeys "<Mod1 Home>" - Call wTypeKeys "<Right>", 3 - - wait 500 - Kontext "Textobjectbar" - if Vorlage.GetSelIndex <> 2 then - warnlog "Seems paragraph has not been set to default! " & Vorlage.GetSelText & "(" & Vorlage.GetSelIndex & ")" - end if - - printlog "Close Document" - Call hCloseDocument - -endcase - -' ********************************************************************** - -testcase tAssigningStyles5 - - printlog "- Clear formatting: whole paragraph with hard formatting of some characters" - printlog " - 1. Cursor outside of hard formatted string" - printlog "Open a new writer document" - Call hNewDocument - printlog "Insert a dummytext" - if wBlindtextEinfuegen = false then - Call hCloseDocument - exit sub - end if - - printlog "Highlight first line in dummy text" - Call wTypeKeys "<Mod1 Home>" - Call wTypeKeys "<Shift End>" - - printlog "Format / Bold" - Kontext "TextObjectbar" - if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true ) - Fett.Click - Wait 500 - - printlog "Set cursor outside of bold formatted text" - Call wTypeKeys "<Mod1 Home>" - Call wTypeKeys "<Down><Right>" - - printlog "Select 'Clear Formatting' in Style-Listbox" - Kontext "Textobjectbar" - Vorlage.Select 1 - Vorlage.TypeKeys "<Return>" - wait 500 - - printlog "Check that first line is still bold and has not been reset" - Call wTypeKeys "<Mod1 Home>" - Call wTypeKeys "<Right>" - - Kontext "TextObjectbar" - if Fett.Getstate(2) = 0 then - Warnlog "Style 'Bold' has been reset!" - end if - - printlog "Close document" - Call hCloseDocument -endcase - -' ********************************************************************** - -testcase tAssigningStyles6 - - Dim iStandard as integer - - printlog "- Clear formatting: whole paragraph with hard formatting of some characters" - printlog " - 2. Cursor inside of hard formatted string" - printlog "Open a new writer document" - Call hNewDocument - printlog "Insert a dummytext" - if wBlindtextEinfuegen = false then - Call hCloseDocument - exit sub - end if - - printlog "Highlight first line in dummy text" - Call wTypeKeys "<Mod1 Home>" - Call wTypeKeys "<Shift End>" - - printlog "Format / Bold" - Kontext "TextObjectbar" - if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true ) - Fett.Click - Wait 500 - - printlog "Point cursor to first highlighted word of bold formatted text" - Call wTypeKeys "<Mod1 Home>" - Call wTypeKeys "<Right>" - - printlog "Select 'Format / Default Formatting' in Style-Listbox" - FormatDefaultWriter - wait 500 - - printlog "first highlighted word should be set to 'Standard'" - Call wTypeKeys "<Mod1 Home>" - Call wTypeKeys "<Right>" - Kontext "TextObjectbar" - if Fett.Getstate(2) = 1 then - Warnlog "Style 'Bold' has not been reset!" - end if - - printlog "Check that rest of first line is still bold and has not been reset" - Call wTypeKeys "<Mod1 Home>" - Call wTypeKeys "<End><Left>" - - Kontext "TextObjectbar" - if Fett.Getstate(2) = 1 then - Warnlog "Style 'Bold' has not been reset!" - end if - - printlog "Close document" - Call hCloseDocument -endcase - -' ********************************************************************** - -testcase tAssigningStyles7 - - printlog "More ..." - printlog "Open a new writer document" - Call hNewDocument - - printlog "Select 'More...' in Style-Listbox" - Kontext "Textobjectbar" - Vorlage.Select Vorlage.GetItemCount - Vorlage.TypeKeys "<Return>" - wait 500 - - printlog "The Stylist should have been opened" - Kontext "Stylist" - if Not Stylist.Exists then - Warnlog "'Styles and Formatting' doesn't open if 'More...' is selected in Style-Listbox" - else - printlog "In Style group listbox 'Automatic' should be selected" - if Gruppenliste.GetSelIndex <> 5 then - Warnlog "Seems 'Automatic' is not selected per default in 'Styles and Formatting'" - end if - Stylist.Close - end if - - printlog "Close document" - Call hCloseDocument -endcase - -' ********************************************************************** - -testcase tKeyboardShortcutToStyles() - dim sTempa as string - dim sTempb as string - dim sTempc as string - dim i as integer - dim x as integer - - printlog "open new application document" - call hNewDocument() - - printlog "get current default style from TextObjectBar" - kontext "TextObjectBar" - sTempa = Vorlage.getSelText - sTempc = sTempa - for i = 3 to 0 step -1 - printlog "Perform the Keycombination <CTRL>+3 (2,1,0) and check, if Style in TextObjectBar changed" - printlog "- <Ctrl>+<"+i+"> -> Heading "+i+" style" - Call hTypeKeys("<Mod1 "+i+">") - sleep 1 - kontext "TextObjectBar" - sTempb = sTempa - sTempa = Vorlage.getSelText - if (sTempa <> sTempb) then - printlog "OK: Heading changed: '" + sTempa + "'" - else - warnlog "Heading didn't change: '" + sTempa + "'" - end if - next i - kontext "DocumentWriter" - DocumentWriter.TypeKeys("<MOD1 SHIFT 0>") - sleep (2) - kontext "TextObjectBar" - sTempa = Vorlage.getSelText - - printlog "should now be the default from the beginning" - if (uCase(gApplication)<>"HTML") then - if (sTempa = sTempc) then - printlog "OK: Heading changed to default: '" + sTempa + "'" - else - warnlog "Heading didn't change to default. Should have been: '" + sTempc + "' but was: '" + sTempa + "'" - end if - end if - - printlog "close document" - call hCloseDocument() -endcase - +'encoding UTF-8 Do not remove or change this line!
+'**************************************************************************
+'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+'*
+'* Copyright 2008 by Sun Microsystems, Inc.
+'*
+'* OpenOffice.org - a multi-platform office productivity suite
+'*
+'* $RCSfile: w_stylist.inc,v $
+'*
+'* $Revision: 1.2 $
+'*
+'* last change: $Author: vg $ $Date: 2008-08-18 12:36:39 $
+'*
+'* This file is part of OpenOffice.org.
+'*
+'* OpenOffice.org is free software: you can redistribute it and/or modify
+'* it under the terms of the GNU Lesser General Public License version 3
+'* only, as published by the Free Software Foundation.
+'*
+'* OpenOffice.org is distributed in the hope that it will be useful,
+'* but WITHOUT ANY WARRANTY; without even the implied warranty of
+'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+'* GNU Lesser General Public License version 3 for more details
+'* (a copy is included in the LICENSE file that accompanied this code).
+'*
+'* You should have received a copy of the GNU Lesser General Public License
+'* version 3 along with OpenOffice.org. If not, see
+'* <http://www.openoffice.org/license.html>
+'* for a copy of the LGPLv3 License.
+'*
+'/************************************************************************
+'*
+'* owner : helge.delfs@sun.com
+'*
+'* short description : Test common stylist functions and assigning styles
+'*
+'************************************************************************
+'*
+' #1 tFormatStylist1
+' #1 tFormatStylist2
+' #1 tFormatStylist3
+' #1 tFormatStylist4
+' #1 tFormatStylist5
+' #1 tFormatStylist6
+' #1 tFormatStylist7
+' #1 tAssigningStyles1
+' #1 tAssigningStyles2
+' #1 tAssigningStyles3
+' #1 tAssigningStyles4
+' #1 tAssigningStyles5
+' #1 tAssigningStyles6
+' #1 tAssigningStyles7
+' #1 tKeyboardShortcutToStyles
+'*
+'\***********************************************************************
+
+sub w_stylist
+ printLog Chr(13) + "--------- Level 1 - Format / Stylist ----------"
+
+ Call tFormatStylist1 ' all methods on stylist
+ Call tFormatStylist2 ' interacting between documents
+ Call tFormatStylist3 ' show all templates
+ Call tFormatStylist4 ' search/create templates
+ Call tFormatStylist5 ' select templet in stylist
+ Call tFormatStylist6 ' new template from selection
+ Call tFormatStylist7 ' new template from selection, modified via ContextMenu.
+ Call tAssigningStyles1
+ Call tAssigningStyles2
+ Call tAssigningStyles3
+ Call tAssigningStyles4
+ Call tAssigningStyles5
+ Call tAssigningStyles6
+ Call tAssigningStyles7
+ Call tKeyboardShortcutToStyles
+
+end sub
+
+' **********************************************************************
+
+testcase tFormatStylist1
+ Dim xPos as long
+ Dim yPos as long
+ Dim xSize%
+ Dim ySize%
+
+ printlog "- Format / Stylist : all methods with Navigator as window"
+ printlog "New writerdocument"
+ Call hNewDocument
+ printlog " - Call Stylist with F11"
+ printlog "Call stylist with <F11> aand proof all windowmethods at stylist"
+ Call wTypeKeys "<F11>"
+ Kontext "Stylist"
+ if Stylist.NotExists then
+ Warnlog "No Stylist with <F11>"
+ FormatStylist
+ end if
+ xPos = Stylist.GetPosX
+ yPos = Stylist.GetPosY
+ xSize% = Stylist.GetSizeX
+ ySize% = Stylist.GetSizeY
+
+ printlog " - move Stylist"
+ Stylist.Move 10, 10
+ Sleep 1
+ Stylist.Move 300, 400
+ Sleep 1
+ Stylist.Move 590, 790
+ Sleep 1
+ Stylist.Move xPos, yPos
+ Sleep 1
+
+ printlog " - size Stylist"
+ try
+ Stylist.Size 300, 400
+ catch
+ Warnlog "Sizen Stylist doesn't work.. see #i32449"
+ endcatch
+ Sleep 1
+ try
+ Stylist.Size xSize%, ySize%
+ catch
+ Warnlog "Sizen Stylist doesn't work.. see #i32449"
+ endcatch
+ Sleep 1
+
+ printlog " - close Stylist and reopen ( has to be the same size )"
+ xPos = Stylist.GetPosX
+ yPos = Stylist.GetPosY
+ xSize% = Stylist.GetSizeX
+ ySize% = Stylist.GetSizeY
+ FormatStylist
+ Sleep 1
+ FormatStylist
+ if xPos <> Stylist.GetPosX then Warnlog "x-Pos. has been changed : Not -> "+ xPos + " but -> "+ Stylist.GetPosX
+ if yPos <> Stylist.GetPosY then Warnlog "y-Pos. has been changed : Not -> "+ yPos + " but -> "+ Stylist.GetPosY
+ if xSize% <> Stylist.GetSizeX then Warnlog "x-Size has been changed : Not -> "+ xSize% + " but -> "+ Stylist.GetSizeX
+ if ySize% <> Stylist.GetSizeY then Warnlog "y-Size has been changed : Not -> "+ ySize% + " but -> "+ Stylist.GetSizeY
+
+ printlog " - dock Stylist"
+ Stylist.Dock
+ Sleep 1
+ if NOT Stylist.IsDocked then Warnlog "Stylist has not been docked in"
+ Stylist.Undock
+ Sleep 1
+
+ Stylist.Close
+ printlog "Close document"
+ Call hCloseDocument
+
+endcase
+
+' **********************************************************************
+
+testcase tFormatStylist2
+ Dim xPos%
+ Dim yPos%
+ Dim xSize%
+ Dim ySize%
+
+ printlog "- Format/Stylist : Methods from Stylist as Window between more than one document"
+ printlog " New document"
+ Call hNewDocument
+ printlog "check all methods of Stylist as Window between more than one document"
+ Call wTypeKeys "Test the stylist functions"
+ printlog " - Call Stylist in first document and check in a second document"
+ Sleep 2
+ Kontext "Stylist"
+ If Not Stylist.Exists then FormatStylist
+ Sleep 2
+ Call hNewDocument
+ Call wTypeKeys "Test the stylist functions"
+ Sleep 2
+ Kontext "Stylist"
+ if Stylist.NotExists then Warnlog "No Stylist in new document"
+
+ printlog " - Close all documents and reopen"
+ Sleep 2
+ Call hCloseDocument
+ Sleep 2
+ Call hCloseDocument
+ Sleep 2
+ Call hNewDocument
+ Sleep 2
+ Call wTypeKeys "Test the stylist functions"
+ Kontext "Stylist"
+ if Stylist.NotExists then Warnlog "No Stylist in a new document"
+
+ printlog " - Dock Stylist in first document and check in a new if docked"
+ Sleep 2
+ Stylist.Dock
+ Sleep 1
+ Call hNewDocument
+ Call wTypeKeys "Test the stylist functions"
+ Kontext "Stylist"
+ if NOT Stylist.IsDocked then Warnlog "Stylist is not docked in new document"
+
+ printlog " - Close all documents, reopen one and check docked Stylist"
+ Call hCloseDocument
+ Sleep 2
+ Call hCloseDocument
+ Sleep 2
+ Call hNewDocument
+ Kontext "Stylist"
+ if NOT Stylist.IsDocked then Warnlog "Stylist is not docked in new document"
+
+ printlog " - Close Stylist with <F11>"
+ Stylist.Undock
+ Sleep 1
+ Call wTypeKeys "<F11>"
+ Kontext "Stylist"
+ if NOT Stylist.NotExists then
+ Warnlog "Stylist is still open"
+ Stylist.Close
+ end if
+ printlog "Close document"
+ Call hCloseDocument
+
+endcase
+
+' **********************************************************************
+
+testcase tFormatStylist3
+ Dim i as Integer
+ Dim AllStyles as integer
+ Dim j as integer
+ Dim RemString as string
+ printlog "- Format / Stylist : select all Style properties"
+
+ Call hNewDocument
+ printlog " New writerdocument"
+ FormatStylist
+ printlog "Select all style properties in stylist"
+ Kontext "Stylist"
+ if Stylist.NotExists then FormatStylist
+ printlog " - Paragraph Styles"
+ Absatzvorlagen.Click
+
+ for i=1 to Gruppenliste.GetItemCount
+ Gruppenliste.Select i
+ wait 500
+ if i = 2 then ' All Styles
+ Vorlagenliste.TypeKeys "<Home>"
+ AllStyles = 1
+ For j = 1 to 200
+ RemString = Vorlagenliste.Gettext
+ 'Include this, if you want to see the styles in writerdocument
+ 'SetClipboard Vorlagenliste.Gettext
+ 'Kontext "DocumentWriter"
+ 'DocumentWriter.TypeKeys GetClipboardtext + "<Return>"
+ 'Kontext "Stylist"
+ Vorlagenliste.TypeKeys "<Down>"
+ if Vorlagenliste.Gettext <> RemString then
+ AllStyles = AllStyles + 1
+ else
+ j = 202
+ if AllStyles <> "122" then
+ Select Case iSprache
+ Case 07
+ warnlog "Double styles in stylist"
+ Case 55
+ warnlog "Missing Style in Stylist"
+ Case 31
+ warnlog "Missing Style in Stylist"
+ Case else
+ Warnlog "There are " + AllStyles + " styles in this category and not 122!"
+ end select
+ else
+ printlog "There are " + AllStyles + " styles in this category!"
+ end if
+ end if
+ next j
+ end if
+ Sleep 1
+ next i
+
+ Zeichenvorlagen.Click
+ Sleep 2
+ printlog " - Chapter Styles"
+ for i=1 to Gruppenliste.GetItemCount
+ Gruppenliste.Select i
+ AllStyles = AllStyles + 1
+ Sleep 1
+ next i
+
+ Rahmenvorlagen.Click
+ Sleep 2
+ printlog " - Frame Styles"
+ for i=1 to Gruppenliste.GetItemCount
+ Gruppenliste.Select i
+ AllStyles = AllStyles + 1
+ Sleep 1
+ next i
+
+ Seitenvorlagen.Click
+ Sleep 2
+ printlog " - Page Styles"
+ for i=1 to Gruppenliste.GetItemCount
+ Gruppenliste.Select i
+ AllStyles = AllStyles + 1
+ Sleep 1
+ next i
+ Stylist.Close
+ printlog "Close document"
+ Call hCloseDocument
+endcase
+
+' **********************************************************************
+
+testcase tFormatStylist4
+ Dim i as Integer
+ Dim AlterWert$
+ Dim NeuerWert$
+
+ printlog "- Format / Stylist : check created Styles"
+ printlog "New writerdocument"
+ Call hNewDocument
+ printlog " - create Paragraph Style in Stylist"
+ Call wStyleCreate ( "ATesttool", "Paragraph", true )
+ Kontext "Stylist"
+ printlog "Check if Style has been added in stylist"
+ if wStyleSelect ( "ATesttool", "Paragraph" ) = false then Warnlog "Paragraph Style has not been found"
+
+ printlog " - Create Character Style in Stylist"
+ Call wStyleCreate ( "BTesttool", "Character", true )
+ if wStyleSelect ( "BTesttool", "Character" ) = false then Warnlog "Character Style has not been found!"
+ printlog " - Create Frame Style in Stylist"
+ Call wStyleCreate ( "CTesttool", "Frame", true )
+ if wStyleSelect ( "CTesttool", "Frame" ) = false then Warnlog "Frame Style has not been found!"
+
+ printlog " - Create Page Style in Stylist"
+ Call wStyleCreate ( "DTesttool", "Page", true )
+ if wStyleSelect ( "DTesttool", "Page" ) = false then Warnlog "Page Style has not been found"
+
+ printlog " - creating Styles should not have been affecting to new documents"
+ ' To avoid focus problems on unix first close stylist
+ Kontext "Stylist"
+ if Stylist.Exists then FormatStylist
+ Call hNewDocument
+ Kontext "Stylist"
+ if Not Stylist.Exists then FormatStylist
+
+ if wStyleSelect ( "ATesttool", "Paragraph" ) = true then Warnlog "Paragraph Style has been found in new document"
+ if wStyleSelect ( "BTesttool", "Character" ) = true then Warnlog "Character Style has been found in new document"
+ 'if wStyleSelect ( "CTesttool", "Frame" ) = true then Warnlog "Frame Style has been found in new document"
+ if wStyleSelect ( "DTesttool", "Page" ) = true then Warnlog "Page Style has been found in new document"
+
+ Call hCloseDocument
+ printlog "Close document"
+ Call hCloseDocument
+endcase
+
+' **********************************************************************
+
+testcase tFormatStylist5
+ Dim SuchMal as string, i as integer
+ Dim bStyleFound as boolean
+
+ printlog "- Format / Stylist : select Style"
+ printlog "New writerdocument"
+ if bAsianLan = True then
+ printlog "- Not in Asian languages!"
+ goto endsub
+ end if
+ Call hNewDocument
+ Call wTypeKeys "Dies ist ein formatierter Text <Shift Home>"
+ printlog " - format Text"
+ FormatCharacter
+ Kontext
+ Active.SetPage TabFontEffects
+ Kontext "TabFontEffects"
+ StrikeThrough.Select 2
+ Outline.Check
+ TabFontEffects.OK
+
+ printlog " - adjust to Standard-Format through the Stylist"
+ printlog "adjust to Standard-Format through the Stylist"
+ FormatStylist
+ Kontext "Stylist"
+ if Stylist.NotExists then FormatStylist
+ 'Get name for 'default' template
+ Kontext "TextObjectbar"
+ SuchMal = Vorlage.GetSelText
+ printlog "Using " & SuchMal & " as 'default'"
+ Kontext "Stylist"
+
+ Vorlagenliste.TypeKeys "<Home>"
+ bStyleFound = false
+ for i=1 to Vorlagenliste.GetItemCount
+ Vorlagenliste.Select i
+ if Vorlagenliste.GetText = Suchmal then
+ Vorlagenliste.TypeKeys "<Return>"
+ bStyleFound = true
+ exit for
+ end if
+ next i
+ Stylist.Close
+
+ if bStyleFound = false then
+ Warnlog "Style: " & Suchmal & " has not been found in Stylist"
+ Call hCloseDocument
+ goto endsub
+ end if
+
+ printlog " - check format"
+ FormatCharacter
+ Kontext
+ Active.SetPage TabFontEffects
+ Kontext "TabFontEffects"
+ if StrikeThrough.GetSelIndex = 2 then Warnlog "Wrong entry selected in StrikeThrough"
+ if Outline.IsChecked then Warnlog "Format Outline is still checked"
+ TabFontEffects.OK
+
+ printlog "Close document"
+ Call hCloseDocument
+endcase
+
+' **********************************************************************
+
+testcase tFormatStylist6
+ Dim i as integer
+
+ printlog "- Format / Stylist : new Style from selection"
+ printlog "New writerdocument"
+ Call hNewDocument
+ Call wTypeKeys "Creating a style from selection <Return><Up><Shift End>"
+ printlog "create a new style from selection"
+ FormatCharacter
+ Kontext
+ Active.SetPage TabFontEffects
+ Kontext "TabFontEffects"
+ Shadow.Check
+ StrikeThrough.Select 2
+ Overline.Select 2
+ OverlineColor.Select 6
+ Outline.Check
+ Effects.Select 3
+ Blinking.Check
+ Kontext
+ Active.Setpage TabHyperlinkZeichen
+ Kontext "TabHyperlinkZeichen"
+ URLName.SetText "www.mikeportnoy.com"
+ TabHyperlinkZeichen.OK
+
+ printlog " - Create Character Style from selection"
+ Kontext "Stylist"
+ if not Stylist.Exists then FormatStylist
+ Kontext "Stylist"
+ TBGestalter.Click ZeichenVorlagen
+ Sleep 1
+
+ AusSelektion.OpenMenu
+ Sleep 1
+ hMenuSelectNr(1)
+ Sleep 1
+
+ Kontext "VorlageErzeugen"
+ if VorlageErzeugen.Exists then
+ VorlagenName.SetText "Testtool"
+ VorlageErzeugen.OK
+ else
+ Warnlog "Creating Style did not work. Dialog not up!"
+ end if
+
+ printlog " - assign new Character Style to a new text"
+ wTypeKeys "<Home><Down>",3
+ wTypeKeys "This is some new text <Return><Up><Up><Shift End>"
+ Kontext "Stylist"
+ TBGestalter.Click ZeichenVorlagen
+ if Vorlagenliste.GetSeltext <> "Testtool" then 'Go find the entry.
+ Vorlagenliste.TypeKeys "<Home>"
+ For i = 1 to 100
+ Vorlagenliste.TypeKeys "<Down>"
+ if Vorlagenliste.GetSeltext = "Testtool" then 'Found it!
+ i = 102
+ end if
+ next i
+ end if
+ Vorlagenliste.TypeKeys "<Return>" 'Assign to text.
+ Stylist.Close
+ if i = 101 then
+ Warnlog "Created Style could not be found in Stylist!"
+ else
+ Printlog " - check Style"
+ FormatCharacter
+ Kontext
+ Active.SetPage TabFontEffects
+ Kontext "TabFontEffects"
+ if NOT Shadow.IsChecked then Warnlog "Shadow is not checked anymore"
+ if StrikeThrough.GetSelIndex <> 2 then Warnlog "Wrong entry selection in StrikeThrough"
+ if Overline.GetSelIndex <> 2 then Warnlog "Overline is not checked anymore"
+ if OverlineColor.GetSelIndex <> 6 then Warnlog "Wrong Overline Color selected"
+ if NOT Outline.IsChecked then Warnlog "Outline is not checked anymore"
+ if Effects.GetSelIndex <> 3 then Warnlog "Wrong effect selected"
+ if NOT Blinking.IsChecked then Warnlog "Blinking is not checked anymore"
+ Kontext
+ Active.Setpage TabHyperlinkZeichen
+ Kontext "TabHyperlinkZeichen"
+ if URLName.GetText <> "http://www.mikeportnoy.com/" then Warnlog "#i41171#TabHyperlink: URL is wrong " + URLName.Gettext
+ TabHyperlinkZeichen.OK
+ end if
+
+ printlog "Close document"
+ Call hCloseDocument
+endcase
+
+' **********************************************************************
+
+testcase tFormatStylist7
+ Dim i as integer
+
+ printlog "- Format / Stylist : new Style from selection, then modified via the ContextMenu."
+ printlog "New writerdocument"
+ Call hNewDocument
+ Call wTypeKeys "Creating a style from selection <Return><Up><Shift End>"
+ printlog "create a new style from selection"
+
+ printlog " - Create Character Style from selection"
+ Kontext "Stylist"
+ if not Stylist.Exists then FormatStylist
+ Kontext "Stylist"
+ TBGestalter.Click ZeichenVorlagen
+ Sleep 1
+
+ AusSelektion.OpenMenu
+ Sleep 1
+ hMenuSelectNr(1)
+ Sleep 1
+
+ Kontext "VorlageErzeugen"
+ if VorlageErzeugen.Exists then
+ VorlagenName.SetText "Testtool"
+ VorlageErzeugen.OK
+ else
+ Warnlog "Creating Style did not work. Dialog not up!"
+ end if
+
+ printlog " Open ContextMenu over the 'Testtool' Style."
+ Kontext "Stylist"
+ if not Stylist.Exists then FormatStylist
+ Kontext "Stylist"
+ TBGestalter.Click ZeichenVorlagen
+ if Vorlagenliste.GetSeltext <> "Testtool" then
+ Vorlagenliste.TypeKeys "<Home>"
+ For i = 1 to 100
+ Vorlagenliste.TypeKeys "<Down>"
+ if Vorlagenliste.GetSeltext = "Testtool" then
+ i = 102
+ end if
+ next i
+ if i = 101 then
+ warnlog "No Testtool -Stylist found. Check if new stylists can be created. Test ends."
+ goto endsub
+ end if
+ end if
+ Vorlagenliste.TypeKeys "<SHIFT F10>" 'Open ContextMenu
+ Sleep 1
+ printlog " Select 'Modify'"
+ Call hMenuSelectNr(2) 'Modify
+ Sleep 1
+
+ printlog " Goto Tabpage 'Font Effects' and change some settings."
+ Kontext
+ Active.SetPage TabFontEffects
+ Kontext "TabFontEffects"
+ Shadow.Check
+ StrikeThrough.Select 2
+ Overline.Select 2
+ OverlineColor.Select 6
+ Outline.Check
+ Effects.Select 3
+ Blinking.Check
+ TabFontEffects.OK
+
+ printlog " - assign new Character Style to a new text"
+ wTypeKeys "<Home><Down>",3
+ wTypeKeys "This is some new text <Return><Up><Up><Shift End>"
+ Kontext "Stylist"
+ TBGestalter.Click ZeichenVorlagen
+
+ if Vorlagenliste.GetSeltext <> "Testtool" then
+ Vorlagenliste.TypeKeys "<Home>"
+ For i = 1 to 100
+ Vorlagenliste.TypeKeys "<Down>"
+ if Vorlagenliste.GetSeltext = "Testtool" then 'Found it!
+ i = 102
+ end if
+ next i
+ end if
+ Vorlagenliste.TypeKeys "<Return>" 'Assign Style to Text.
+ Stylist.Close
+ if i = 101 then
+ Warnlog "Created Style could not be found in Stylist!"
+ else
+ Printlog " - check Style"
+ FormatCharacter
+ Kontext
+ Active.SetPage TabFontEffects
+ Kontext "TabFontEffects"
+ if NOT Shadow.IsChecked then Warnlog "Shadow is not checked anymore"
+ if StrikeThrough.GetSelIndex <> 2 then Warnlog "Wrong entry selection in StrikeThrough"
+ if Overline.GetSelIndex <> 2 then Warnlog "Overline is not checked anymore"
+ if OverlineColor.GetSelIndex <> 6 then Warnlog "Wrong Overline Color selected"
+ if NOT Outline.IsChecked then Warnlog "Outline is not checked anymore"
+ if Effects.GetSelIndex <> 3 then Warnlog "Wrong effect selected"
+ if NOT Blinking.IsChecked then Warnlog "Blinking is not checked anymore"
+ TabFontEffects.OK
+ end if
+
+ printlog "Close document"
+ Call hCloseDocument
+endcase
+
+' **********************************************************************
+
+testcase tAssigningStyles1
+ Dim i as integer
+ Dim sStyles() as string
+ Dim sTemp as string
+ Dim j as integer
+ Dim bStyleInList as boolean
+
+ printlog "UI and Strings check"
+ Call hNewDocument
+ printlog "Open a new writerdocument"
+ printlog "Check if the following strings and only those strings are present:"
+ printlog "Clear formatting"
+ printlog "Heading 1"
+ printlog "Heading 2"
+ printlog "Heading 3"
+ printlog "Default"
+ printlog "Text body"
+ printlog "More..."
+ Select Case iSprache
+ Case 01 : sStyles = Array("Clear formatting", "Default", "Heading 1", "Heading 2", "Heading 3", "Text body", "More...")
+ Case 07 : sStyles = Array("Отменить форматирование", "Базовый", "Заголовок 1", "Заголовок 2", "Заголовок 3", "Основной текст", "Дополнительно...")
+ Case 31 : sStyles = Array("Opmaak wissen", "Kop 1", "Kop 2", "Kop 3", "Standaard", "Tekstblok", "Meer...")
+ Case 33 : sStyles = Array("Effacer le formatage", "Corps de texte", "Par défaut", "Titre 1", "Titre 2", "Titre 3", "Autres...")
+ Case 34 : sStyles = Array("Borrar formato", "Cuerpo de texto", "Encabezado 1", "Encabezado 2", "Encabezado 3", "Predeterminado", "Más...")
+ Case 36 : sStyles = Array("Formázás törlése", "Alapértelmezett", "Címsor 1", "Címsor 2", "Címsor 3", "Szövegtörzs", "További...")
+ Case 39 : sStyles = Array("Cancella formattazione", "Corpo testo", "Intestazione 1", "Intestazione 2", "Intestazione 3", "Standard", "Extra...")
+ Case 46 : sStyles = Array("Radera formatering", "Brödtext", "Överskrift 1", "Överskrift 2", "Överskrift 3", "Standard", "Mer...")
+ Case 48 : sStyles = Array("Wyczyść formatowanie", "Domyślnie", "Nagłówek 1", "Nagłówek 2", "Nagłówek 3", "Treść tekstu", "Więcej...")
+ Case 49 : sStyles = Array("Formatierung löschen", "Standard", "Textkörper", "Überschrift 1", "Überschrift 2", "Überschrift 3", "Weitere...")
+ Case 55 : sStyles = Array("Limpar formatação", "Corpo do texto", "Padrão", "Título 1", "Título 2", "Título 3", "Mais...")
+ Case 81 : sStyles = Array("書式設定の解除", "本文", "標準", "見出し 1", "見出し 2", "見出し 3", "詳細...")
+ Case 82 : sStyles = Array("서식 지우기", "기본값", "제목 1", "제목 2", "제목 3", "텍스트 본문", "자세히...")
+ Case 86 : sStyles = Array("清除格式", "默认", "标题 1", "标题 2", "标题 3", "正文", "更多(~M)...")
+ Case 88 : sStyles = Array("清除格式", "內文", "標題 1", "標題 2", "標題 3", "預設", "更多...")
+ Case 90 : sStyles = Array("Biçimlendirmeyi temizle", "Başlık 1", "Başlık 2", "Başlık 3", "Metin gövdesi", "Varsayılan", "Diğer...")
+ Case else : Warnlog "Current language not supported. Please add styles to list!"
+ Kontext "Textobjectbar"
+ printlog "- Current Styles: "
+ For i = 1 to Vorlage.GetItemCount
+ Vorlage.Select i
+ printlog Vorlage.GetSelText
+ next i
+ Call hCloseDocument
+ exit sub
+ end select
+
+ 'Check number of entrys....have to be seven
+ Kontext "Textobjectbar"
+ if Vorlage.GetItemCount <> 7 then
+ Select case iSprache
+ case 82 : warnlog "Korean: Number of styles in styleslistbox wrong"
+ case else : Warnlog "Not 7 entrys in Styles & Formatting combobox but: " & Vorlage.GetItemCount
+ end select
+ end if
+
+ For i = 1 to Vorlage.GetItemCount
+ Vorlage.Select i
+ sTemp = Vorlage.GetSelText
+ printlog "- check style: " & sTemp
+ bStyleInList = false
+ For j = 0 to 6
+ if sStyles(j) = sTemp then
+ bStyleInList = true
+ end if
+ next j
+
+ if bStyleInList = true then
+ printlog "- style " & sTemp & " found in list"
+ else
+ if iSprache <> 82 then Warnlog "- style " & sTemp & " wasn't found in list!"
+ end if
+ next i
+
+ Call hCloseDocument
+endcase
+
+' **********************************************************************
+
+testcase tAssigningStyles2
+ Dim i as integer
+ Dim sTemp as string
+
+ printlog "- Apply Style"
+ printlog "New writerdocument"
+ Call hNewDocument
+ printlog "Insert dummytext"
+ if wBlindtextEinfuegen = false then
+ Call hCloseDocument
+ exit sub
+ end if
+
+ printlog "Select whole dummytext"
+ Call wTypeKeys "<Mod1 A>"
+ printlog "Apply style 'Heading 1' through Styles & Formatting combobox"
+ Kontext "Textobjectbar"
+ for i = 1 to Vorlage.GetItemCount
+ Vorlage.Select i
+ sTemp = Vorlage.GetSelText
+ if Instr(sTemp, "1") then
+ Vorlage.TypeKeys "<Return>"
+ exit for
+ end if
+ next i
+
+ printlog "Check if style has been applied to paragraph"
+ Call wTypeKeys "<Mod1 Home><End>"
+ Call wTypeKeys "<Left>", 2
+
+ Kontext "Textobjectbar"
+ if Vorlage.GetSeltext <> sTemp then
+ Warnlog "Seems style has not been completely applied to paragraph!"
+ end if
+
+ Call hCloseDocument
+endcase
+
+' **********************************************************************
+
+testcase tAssigningStyles3
+
+ printlog "- Create a new style"
+ printlog "Open a new writerdocument"
+ Call hNewDocument
+ printlog "Insert a dummy text"
+ if wBlindtextEinfuegen = false then
+ Call hCloseDocument
+ exit sub
+ end if
+
+ printlog "Select the whole dummy text"
+ Call wTypeKeys "<Mod1 A>"
+ printlog "Format / Character"
+ FormatCharacter
+ Kontext
+ Active.Setpage TabFont
+ Kontext "TabFont"
+ printlog "Apply first font in list and select 2nd Typeface"
+ if gAsianSup = True then
+ FontWest.Select 1
+ StyleWest.Select 2
+ else
+ Font.Select 1
+ Style.Select 1
+ end if
+ TabFont.Ok
+
+ printlog "Enter 'MyStyle' in Stylelistbox"
+ Kontext "Textobjectbar"
+ Vorlage.TypeKeys "<Mod1 A>"
+ Vorlage.TypeKeys "MyStyle<Return>"
+
+ printlog "Check if style has been applied to the combobox"
+ Call wTypeKeys "<Mod1 End>"
+
+ wait 500
+ Kontext "Textobjectbar"
+ try
+ Vorlage.Select "MyStyle"
+ catch
+ Warnlog "Seems style has not been applied to combobox"
+ endcatch
+
+ printlog "Check if style has been applied to paragraph"
+ Call wTypeKeys "<Mod1 Home>"
+ Call wTypeKeys "<Right>", 2
+
+ Kontext "Textobjectbar"
+ if Vorlage.GetSelText <> "MyStyle" then
+ Warnlog "Seems style has not been applied to paragraph"
+ end if
+
+ printlog "Close Document"
+ Call hCloseDocument
+endcase
+
+' **********************************************************************
+
+testcase tAssigningStyles4
+ Dim i as integer
+ Dim sTemp as string
+ Dim sStyle as integer
+
+ printlog "- Clear formatting: whole paragraph"
+ printlog "Open a new writer document"
+ Call hNewDocument
+ printlog "Insert a dummytext"
+ if wBlindtextEinfuegen = false then
+ Call hCloseDocument
+ exit sub
+ end if
+
+ printlog "Select whole dummytext"
+ Call wTypeKeys "<Mod1 A>"
+ printlog "Apply style 'Heading 1' through Styles & Formatting combobox"
+ Kontext "Textobjectbar"
+ ' remeber default style
+ sStyle = Vorlage.GetSelIndex
+ for i = 1 to Vorlage.GetItemCount
+ Vorlage.Select i
+ sTemp = Vorlage.GetSelText
+ if Instr(sTemp, "1") then
+ Vorlage.TypeKeys "<Return>"
+ exit for
+ end if
+ next i
+
+ printlog "choose 'Clear formatting' in combobox"
+ Kontext "Textobjectbar"
+ Vorlage.Select 1
+ Vorlage.TypeKeys "<Return>"
+ wait 500
+ printlog "Check if style has been set to default"
+ Call wTypeKeys "<Mod1 Home>"
+ Call wTypeKeys "<Right>", 3
+
+ wait 500
+ Kontext "Textobjectbar"
+ if Vorlage.GetSelIndex <> sStyle then
+ warnlog "Seems paragraph has not been set to default! " & Vorlage.GetSelText & "(" & Vorlage.GetSelIndex & ")"
+ end if
+
+ printlog "Close Document"
+ Call hCloseDocument
+
+endcase
+
+' **********************************************************************
+
+testcase tAssigningStyles5
+
+ printlog "- Clear formatting: whole paragraph with hard formatting of some characters"
+ printlog " - 1. Cursor outside of hard formatted string"
+ printlog "Open a new writer document"
+ Call hNewDocument
+ printlog "Insert a dummytext"
+ if wBlindtextEinfuegen = false then
+ Call hCloseDocument
+ exit sub
+ end if
+
+ printlog "Highlight first line in dummy text"
+ Call wTypeKeys "<Mod1 Home>"
+ Call wTypeKeys "<Shift End>"
+
+ printlog "Format / Bold"
+ Kontext "TextObjectbar"
+ if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
+ Fett.Click
+ Wait 500
+
+ printlog "Set cursor outside of bold formatted text"
+ Call wTypeKeys "<Mod1 Home>"
+ Call wTypeKeys "<Down><Right>"
+
+ printlog "Select 'Clear Formatting' in Style-Listbox"
+ Kontext "Textobjectbar"
+ Vorlage.Select 1
+ Vorlage.TypeKeys "<Return>"
+ wait 500
+
+ printlog "Check that first line is still bold and has not been reset"
+ Call wTypeKeys "<Mod1 Home>"
+ Call wTypeKeys "<Right>"
+
+ Kontext "TextObjectbar"
+ if Fett.Getstate(2) = 0 then
+ Warnlog "Style 'Bold' has been reset!"
+ end if
+
+ printlog "Close document"
+ Call hCloseDocument
+endcase
+
+' **********************************************************************
+
+testcase tAssigningStyles6
+
+ Dim iStandard as integer
+
+ printlog "- Clear formatting: whole paragraph with hard formatting of some characters"
+ printlog " - 2. Cursor inside of hard formatted string"
+ printlog "Open a new writer document"
+ Call hNewDocument
+ printlog "Insert a dummytext"
+ if wBlindtextEinfuegen = false then
+ Call hCloseDocument
+ exit sub
+ end if
+
+ printlog "Highlight first line in dummy text"
+ Call wTypeKeys "<Mod1 Home>"
+ Call wTypeKeys "<Shift End>"
+
+ printlog "Format / Bold"
+ Kontext "TextObjectbar"
+ if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
+ Fett.Click
+ Wait 500
+
+ printlog "Point cursor to first highlighted word of bold formatted text"
+ Call wTypeKeys "<Mod1 Home>"
+ Call wTypeKeys "<Right>"
+
+ printlog "Select 'Format / Default Formatting' in Style-Listbox"
+ FormatDefaultWriter
+ wait 500
+
+ printlog "first highlighted word should be set to 'Standard'"
+ Call wTypeKeys "<Mod1 Home>"
+ Call wTypeKeys "<Right>"
+ Kontext "TextObjectbar"
+ if Fett.Getstate(2) = 1 then
+ Warnlog "Style 'Bold' has not been reset!"
+ end if
+
+ printlog "Check that rest of first line is still bold and has not been reset"
+ Call wTypeKeys "<Mod1 Home>"
+ Call wTypeKeys "<End><Left>"
+
+ Kontext "TextObjectbar"
+ if Fett.Getstate(2) = 1 then
+ Warnlog "Style 'Bold' has not been reset!"
+ end if
+
+ printlog "Close document"
+ Call hCloseDocument
+endcase
+
+' **********************************************************************
+
+testcase tAssigningStyles7
+
+ printlog "More ..."
+ printlog "Open a new writer document"
+ Call hNewDocument
+
+ printlog "Select 'More...' in Style-Listbox"
+ Kontext "Textobjectbar"
+ Vorlage.Select Vorlage.GetItemCount
+ Vorlage.TypeKeys "<Return>"
+ wait 500
+
+ printlog "The Stylist should have been opened"
+ Kontext "Stylist"
+ if Not Stylist.Exists then
+ Warnlog "'Styles and Formatting' doesn't open if 'More...' is selected in Style-Listbox"
+ else
+ printlog "In Style group listbox 'Automatic' should be selected"
+ if Gruppenliste.GetSelIndex <> 5 then
+ Warnlog "Seems 'Automatic' is not selected per default in 'Styles and Formatting'"
+ end if
+ Stylist.Close
+ end if
+
+ printlog "Close document"
+ Call hCloseDocument
+endcase
+
+' **********************************************************************
+
+testcase tKeyboardShortcutToStyles()
+ dim sTempa as string
+ dim sTempb as string
+ dim sTempc as string
+ dim i as integer
+ dim x as integer
+
+ printlog "open new application document"
+ call hNewDocument()
+
+ printlog "get current default style from TextObjectBar"
+ kontext "TextObjectBar"
+ sTempa = Vorlage.getSelText
+ sTempc = sTempa
+ for i = 3 to 0 step -1
+ printlog "Perform the Keycombination <CTRL>+3 (2,1,0) and check, if Style in TextObjectBar changed"
+ printlog "- <Ctrl>+<"+i+"> -> Heading "+i+" style"
+ Call hTypeKeys("<Mod1 "+i+">")
+ sleep 1
+ kontext "TextObjectBar"
+ sTempb = sTempa
+ sTempa = Vorlage.getSelText
+ if (sTempa <> sTempb) then
+ printlog "OK: Heading changed: '" + sTempa + "'"
+ else
+ warnlog "Heading didn't change: '" + sTempa + "'"
+ end if
+ next i
+ kontext "DocumentWriter"
+ DocumentWriter.TypeKeys("<MOD1 SHIFT 0>")
+ sleep (2)
+ kontext "TextObjectBar"
+ sTempa = Vorlage.getSelText
+
+ printlog "should now be the default from the beginning"
+ if (uCase(gApplication)<>"HTML") then
+ if (sTempa = sTempc) then
+ printlog "OK: Heading changed to default: '" + sTempa + "'"
+ else
+ warnlog "Heading didn't change to default. Should have been: '" + sTempc + "' but was: '" + sTempa + "'"
+ end if
+ end if
+
+ printlog "close document"
+ call hCloseDocument()
+endcase
+
diff --git a/testautomation/writer/optional/includes/textframes/w_textframes2.inc b/testautomation/writer/optional/includes/textframes/w_textframes2.inc index f716c9a51ac0..4f869d3a23e6 100755 --- a/testautomation/writer/optional/includes/textframes/w_textframes2.inc +++ b/testautomation/writer/optional/includes/textframes/w_textframes2.inc @@ -81,7 +81,7 @@ testcase tTextframes_17 Call wTypeKeys "<ESCAPE>" Wait 500 - Call gMouseClick(15,15) + Call gMouseClick(40,40) Wait 500 '/// check if contents can be inserted into frame @@ -125,7 +125,7 @@ testcase tTextframes_18 Call wTypeKeys "<ESCAPE>" Wait 500 - Call gMouseClick(15,15) + Call gMouseClick(40,40) Sleep 2 '/// check if the frame is moved @@ -872,15 +872,15 @@ testcase tTextframes_28 Call hNewDocument - '/// Insert a frame + printlog "Insert a frame" Call fInsertFrame(30, 30, 60, 60) - '/// + Naming the frame + printlog "Naming the frame" Call fFormatFrame("TabZusaetze") ObjektName.SetText sFrameName1 TabZusaetze.OK - '/// + Set the frame's wrap + printlog "Set the frame's wrap" Call fFormatFrame("TabUmlauf") Kein.Check Sleep 1 @@ -889,19 +889,15 @@ testcase tTextframes_28 Call wTypeKeys "<ESCAPE>" Sleep 2 - '/// Insert another frame + printlog "Insert another frame" Call fInsertFrame(50, 50, 80, 80) - printlog "Move second frame away from the first frame." - Call wTypeKeys "<RIGHT>", 10 - Call wTypeKeys "<DOWN>", 7 - - '/// + Naming the frame + printlog "Naming the frame" Call fFormatFrame("TabZusaetze") ObjektName.SetText sFrameName2 TabZusaetze.OK - '/// + Set the frame's wrap + printlog "Set the frame's wrap" Call fFormatFrame("TabUmlauf") Sleep 1 Durchlauf.Check @@ -911,31 +907,32 @@ testcase tTextframes_28 Call wTypeKeys "<ESCAPE>" Sleep 2 - '/// Set focus to second frame - Call wTypeKeys ( "<Shift F4>" ) + printlog "Set focus to second frame" + Call gMouseClick(60,60) ' Click into frame + wait 500 + Call wTypeKeys "<ESCAPE>" ' Selects frame holding the cursor wait 500 - '/// Check second frame's name + printlog "Check second frame's name" Call fFormatFrame("TabZusaetze") if ObjektName.GetText <> sFrameName2 then Warnlog "The 2nd frame's name is wrong ! Get " +ObjektName.GetText TabZusaetze.Cancel - '/// Check second frame's wrap status + printlog "Check second frame's wrap status" Call fFormatFrame("TabUmlauf") if Durchlauf.IsChecked <> TRUE then Warnlog "The 2nd frame's wrap status is wrong ! " TabUmlauf.Cancel - '/// Set focus to first frame + printlog "Set focus to first frame" Call wTypeKeys "<TAB>" Sleep 2 - '/// Check the frame's name and warp status - 'Check first frame's name + printlog "Check first frame's name" Call fFormatFrame("TabZusaetze") if ObjektName.GetText <> sFrameName1 then Warnlog "The 1st frame's name is wrong ! Get " +ObjektName.GetText TabZusaetze.Cancel - 'Check first frame's wrap status + printlog "Check first frame's wrap status" Call fFormatFrame("TabUmlauf") if Kein.IsChecked <> TRUE then Warnlog "The 1st frame's wrap status is wrong ! " TabUmlauf.Cancel diff --git a/testautomation/writer/optional/includes/textframes/w_textframes3.inc b/testautomation/writer/optional/includes/textframes/w_textframes3.inc index 1b93d3584b0c..17efcd286940 100755 --- a/testautomation/writer/optional/includes/textframes/w_textframes3.inc +++ b/testautomation/writer/optional/includes/textframes/w_textframes3.inc @@ -48,10 +48,10 @@ sub w_textframes3 Call tTextframes_39 'Test drag&drop with a linked frame - keyboard Call tTextframes_40 'Test Undo on drag&drop of frames (keyboard) Call tTextframes_41 'Test Undo on removing the link - Call tTextframes_42 'Link frame in header with frame in bodytext should be forbidded - Call tTextframes_43 'Link frame in footer with frame in bodytext should be forbidded - Call tTextframes_44 'Link frame when target frame is not empty should be forbidded - Call tTextframes_45 'Recursed links should be forbidded + Call tTextframes_42 'Link frame in header with frame in bodytext should be forbidden + Call tTextframes_43 'Link frame in footer with frame in bodytext should be forbidden + Call tTextframes_44 'Link frame when target frame is not empty should be forbidden + Call tTextframes_45 'Recursed links should be forbidden Call tTextframes_46 'Frames which couldn't be linked with the current one is part of another 'chain' Call tTextframes_47 'Frames couldn't be linked with the current one is in protected section Call tTextframes_48 'Frames could be linked with the current one is set to "editable in protected documents" even it is in protected section @@ -92,7 +92,7 @@ testcase tTextframes_33 Wait 500 '/// Target the second frame - Call gMouseClick(60,20) + Call gMouseClick(60,70) Wait 500 '/// Format/Frame / Type , @@ -149,7 +149,7 @@ testcase tTextframes_34 Wait 500 '/// insert another frame , set frame name - Call fInsertFrame(50,50 , 70,70) + Call fInsertFrame(50,50 , 80,80) printlog "Move second frame away from the first frame." Call wTypeKeys "<RIGHT>", 12 @@ -172,7 +172,7 @@ testcase tTextframes_34 Wait 500 '/// Target the second frame - Call gMouseClick(60,20) + Call gMouseClick(60,70) Wait 500 Call wTypeKeys "<RETURN>" @@ -234,7 +234,7 @@ testcase tTextframes_35 Wait 500 '/// Target the second frame - Call gMouseClick(60,20) + Call gMouseClick(60,70) Wait 500 '/// Check if the link is showed correctly (Format.Frame.Options) @@ -661,7 +661,7 @@ testcase tTextframes_41 Wait 500 '/// Target the second frame - Call gMouseClick(60,20) + Call gMouseClick(60,70) Wait 500 '/// Remove link @@ -694,8 +694,8 @@ testcase tTextframes_42 iNoLink = 1 - printlog "- Link frame in header with frame in bodytext should be forbidded" - '/// Link frame in header with frame in bodytext should be forbidded + printlog "- Link frame in header with frame in bodytext should be forbidden" + '/// Link frame in header with frame in bodytext should be forbidden Call hNewDocument @@ -742,8 +742,8 @@ testcase tTextframes_43 iLink = 2 - printlog "- Link frame in footer with frame in bodytext should be forbidded" - '/// Link frame in footer with frame in bodytext should be forbidded + printlog "- Link frame in footer with frame in bodytext should be forbidden" + '/// Link frame in footer with frame in bodytext should be forbidden Call hNewDocument @@ -791,8 +791,8 @@ testcase tTextframes_44 sText = "Test" iNoLink = 1 - printlog "- Link frame in footer with frame in bodytext should be forbidded" - '/// Link frame in footer with frame in bodytext should be forbidded + printlog "- Link frame in footer with frame in bodytext should be forbidden" + '/// Link frame in footer with frame in bodytext should be forbidden Call hNewDocument @@ -836,8 +836,8 @@ testcase tTextframes_45 iNoLink = 1 - printlog "- Recursed links should be forbidded" - '/// Recursed links should be forbidded + printlog "- Recursed links should be forbidden" + '/// Recursed links should be forbidden Call hNewDocument @@ -851,8 +851,7 @@ testcase tTextframes_45 Call fInsertFrame(50,50 , 70,70) printlog "Move the second frame away from the first one." - Call wTypeKeys "<RIGHT>",10 -' Call wTypeKeys "<DOWN>",7 + Call wTypeKeys "<RIGHT>",1 '/// set focus to 1st frame Call wTypeKeys "<TAB>" @@ -863,7 +862,7 @@ testcase tTextframes_45 Sleep 2 Verketten.Click Wait 500 - Call gMouseClick(75,30) + Call gMouseClick(60,60) Wait 500 '/// link two frames (1st frame is target frame) @@ -876,7 +875,7 @@ testcase tTextframes_45 Wait 500 Call fFormatFrame("TabZusaetze") - if NextLink.GetSelIndex <> iNoLink then Warnlog "There should be no link between 2 frames!" + if NextLink.GetItemCount <> iNoLink then Warnlog "There should be no link between 2 frames!" & NextLink.GetItemCount TabZusaetze.Cancel Wait 500 @@ -991,6 +990,8 @@ testcase tTextframes_47 sleep 1 BereicheBearbeiten.OK + Call wTypeKeys "<DOWN>" , 10 + '/// Insert another frame (B) out of the section Call fInsertFrame(30,70 , 60,90) @@ -1020,11 +1021,10 @@ testcase tTextframes_48 iLink = 2 printlog "- Frames could be linked with the current one is set to 'editable in protected documents' even it is in protected section " - '/// Frames could be linked with the current one is set to "editable in protected documents" even it is in protected section Call hNewDocument - '/// Insert a section + printlog "Insert a section" InsertSection wait 500 Kontext @@ -1034,11 +1034,13 @@ testcase tTextframes_48 TabBereiche.OK wait 500 - Call wTypeKeys "<up>" , 1 + Call wTypeKeys "<UP>" , 1 + Call wTypeKeys "<RETURN>", 6 - '/// Insert a frame (A) in the section , and check "editable in protected documents" + printlog "Insert a frame (A) in the section , and check 'editable in protected documents'" Call wInsertFrame - + Call wTypeKeys "<UP>" , 2 + Call fFormatFrame("TabZusaetze") Editierbar.Check wait 500 @@ -1046,17 +1048,18 @@ testcase tTextframes_48 Call wTypeKeys "<ESCAPE>" - '/// Set the section to be protected + printlog "Set the section to be protected" FormatSections Kontext "BereicheBearbeiten" Geschuetzt.Check sleep 1 BereicheBearbeiten.OK - '/// Insert another frame (B) out of the section + Call wTypeKeys "<DOWN>" , 10 + printlog "nsert another frame (B) out of the section" Call fInsertFrame(50,50 , 60,60) - '/// Link B->A (A is target) + printlog "Link B->A (A is target)" Call fFormatFrame("TabZusaetze") try NextLink.Select iLink diff --git a/testautomation/writer/optional/w_fields.bas b/testautomation/writer/optional/w_fields.bas index bfcd875a2b2c..9d2240321158 100644 --- a/testautomation/writer/optional/w_fields.bas +++ b/testautomation/writer/optional/w_fields.bas @@ -59,7 +59,7 @@ sub main use "writer\optional\includes\fields\w_fields7.inc" printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit ) - printlog Chr(13) + "******* Writer - Level 1 - Test *******" + printlog Chr(13) + "******* Writer - Fields - Test *******" Call hStatusIn ( "writer", "w_fields.bas" , "Fields" ) diff --git a/testautomation/writer/optional/w_textframes.bas b/testautomation/writer/optional/w_textframes.bas index c3e2d81c84aa..c9ae666e766b 100644 --- a/testautomation/writer/optional/w_textframes.bas +++ b/testautomation/writer/optional/w_textframes.bas @@ -65,8 +65,6 @@ sub main gSeperator = GetDecimalSeperator() 'Setting the measurementunit to 'cm' gMeasurementUnit = fSetMeasurementToCM() - 'Sets all writer-options to default - Call wOptionsUndo ( "All" ) printlog Chr(13) + " - Test of TextFrame function -" Call w_textframes1 |