summaryrefslogtreecommitdiff
path: root/testautomation/writer/optional/includes/fields/w_fields1.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/writer/optional/includes/fields/w_fields1.inc')
-rw-r--r--testautomation/writer/optional/includes/fields/w_fields1.inc394
1 files changed, 394 insertions, 0 deletions
diff --git a/testautomation/writer/optional/includes/fields/w_fields1.inc b/testautomation/writer/optional/includes/fields/w_fields1.inc
new file mode 100644
index 000000000000..9f2d872b3d89
--- /dev/null
+++ b/testautomation/writer/optional/includes/fields/w_fields1.inc
@@ -0,0 +1,394 @@
+'encoding UTF-8 Do not remove or change this line!
+'**************************************************************************
+' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+'
+' Copyright 2000, 2010 Oracle and/or its affiliates.
+'
+' OpenOffice.org - a multi-platform office productivity suite
+'
+' 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 : Fields general test
+'*
+'\***********************************************************************
+
+sub w_fields1
+
+ Call tInsertFieldsDate
+ Call tInsertFieldsTime
+ Call tInsertFieldsPageNumber
+ Call tInsertFieldsPageCount
+ Call tInsertFieldsSubject
+ Call tInsertFieldsTitle
+ Call tInsertFieldsAuthor
+
+end sub
+
+'-----------------------------------------------------------------
+
+testcase tInsertFieldsDate
+
+ Dim sDate as String
+ sDate = Date
+
+ printlog "Insert / Fields / Date"
+ '/// <b> Default should be mm/dd/yy </b>
+
+ Call hNewDocument
+
+ '/// Insert / Fields / Date , the 1st date is fixed
+ InsertFieldsDate
+
+ '/// Return
+ Call wTypeKeys "<Return>"
+
+ '/// Insert / Fields / Date
+ InsertFieldsDate
+
+ Call wTypeKeys "<Home>"
+
+ '/// Set 2nd date only to be date , not fixed
+ '/// In 2nd date , Edit / Fields , select date in 'select'
+ '/// Select second format in 'Format'
+ EditFields
+ Kontext "FeldbefehlBearbeitenDokument"
+ Auswahl.Select 2
+ Zahlenformat.Select 2 'Should be the same as the value we get with 'Time'.
+ '/// Close the dialog
+ FeldbefehlBearbeitenDokument.OK
+
+ '/// Set first date to the right format, but leave as unfixed
+ '/// In 1nd date , Edit / Fields , select second format in 'Format'
+ Call wTypeKeys "<MOD1 Home>"
+
+ EditFields
+ Kontext "FeldbefehlBearbeitenDokument"
+ Zahlenformat.Select 2 'Should be the same as the value we get with 'Time'.
+ FeldbefehlBearbeitenDokument.OK
+
+ '/// Check if the date is correct
+ Call wTypeKeys "<MOD1 Home>"
+ Call wTypeKeys "<Shift Right>"
+ EditCopy
+ if GetClipboard <> sDate then
+ Warnlog "Fixed date is wrong ! Hope you don't run this case in the midnight"
+ end if
+
+ Call wTypeKeys "<Down><Home>"
+ Call wTypeKeys "<Shift Right>"
+ EditCopy
+ if GetClipboard <> sDate then
+ Warnlog "Date is wrong ! Hope you don't run this case in the midnight"
+ end if
+
+ Call hCloseDocument
+
+endcase
+
+'-----------------------------------------------------------------
+
+testcase tInsertFieldsTime
+
+ Dim sTime as String
+ Dim sTime1 as String
+ Dim sTime2 as String
+ Dim sTemp as String
+
+ printlog "Insert / Fields / Time"
+ '/// <b> Default could be hh/mm/ss pm or simply hh/mm/ss , depending on the system the test is running on.</b>
+
+ Call hNewDocument
+ sTime = Time
+
+ '/// Insert / Fields / Time , the 1st time is fixed
+ InsertFieldsTime
+
+ '/// Return
+ Call wTypeKeys "<Return>"
+
+ '/// Insert / Fields / Time
+ InsertFieldsTime
+
+ Call wTypeKeys "<Home>"
+
+ '/// Set 2nd time only to be time , not fixed
+ '/// In 2nd time , Edit / Fields , select Time in 'select'
+ EditFields
+ Kontext "FeldbefehlBearbeitenDokument"
+ Auswahl.Select 2
+ FeldbefehlBearbeitenDokument.OK
+
+ '/// Check if the time is correct
+ Call wTypeKeys "<MOD1 Home>"
+ Call wTypeKeys "<Shift Right>"
+ EditCopy
+ sTime1 = GetClipboard
+ if NOT Len(sTime1) > 7 then Warnlog "Fixed time-format is wrong !"
+
+ Call wTypeKeys "<Down><Home>"
+ Call wTypeKeys "<Shift Right>"
+ EditCopy
+ sTime2 = GetClipboard
+ if NOT Len(sTime2) > 7 then Warnlog "Time-format is wrong !"
+
+ printlog "Stop for a while ..."
+ '/// Stop for a while , check if the time is still correct
+ Sleep 2
+ Call wTypeKeys "<MOD1 Home>"
+ Call wTypeKeys "<Shift Right>"
+ EditCopy
+ if GetClipboard <> sTime1 then Warnlog "Fixed time is wrong !"
+
+ Call wTypeKeys "<Down><Home>"
+ Call wTypeKeys "<Shift Right>"
+ EditCopy
+ if GetClipboard = sTime2 then Warnlog "Time is wrong !"
+
+ Call hCloseDocument
+
+endcase
+
+'-----------------------------------------------------------------
+
+testcase tInsertFieldsPageNumber
+qaerrorlog "#i93906# - Testcase outcommented due to bug. 'Copied field-content not pastable outside Office'"
+goto endsub
+
+ Dim sPage1 , sPage2 as String
+
+ sPage1 = "1" : sPage2 = "2"
+
+ printlog "Insert / Fields / Page Number"
+
+ Call hNewDocument
+
+ '/// In 1st page , Insert / Fields / Page Number
+ InsertFieldsPageNumbers
+
+ '/// Insert a page break
+ InsertManualBreak
+ Sleep 2
+ kontext "UmbruchEinfuegen"
+ Seitenumbruch.check
+ UmbruchEinfuegen.OK
+
+ '/// In 2nd page , Insert / Fields / Page Number
+ InsertFieldsPageNumbers
+
+ Call wTypeKeys "<MOD1 Home>"
+
+ '/// Check if the page number is correct
+ Call wTypeKeys "<Shift Right>"
+ if fGetFieldContent( ) <> sPage1 then
+ QAErrorLog "#i31214# The 1st page number isn't correct ! should be: '" + sPage1 + "', but was: '" + GetClipboard + "'."
+ end if
+
+ Call wTypeKeys "<MOD1 End>"
+ Call wTypeKeys "<Shift Left>"
+ EditCopy
+ if GetClipboard <> sPage2 then
+ Warnlog "The 2nd page number isn't correct !"
+ end if
+
+ Call hCloseDocument
+
+endcase
+
+'-----------------------------------------------------------------
+
+testcase tInsertFieldsPageCount
+qaerrorlog "#i93906# - Testcase outcommented due to bug. 'Copied field-content not pastable outside Office'"
+goto endsub
+
+ Dim sPage1 , sPage2 as String
+
+ sPage1 = "1" : sPage2 = "2"
+
+ printlog "Insert / Fields / Page Count"
+
+ Call hNewDocument
+
+ '/// In 1st page , Insert / Fields / Page Count
+ InsertFieldsPageCount
+
+ Call wTypeKeys "<MOD1 Home>"
+
+ '/// Check if the 1st page count is correct
+ Call wTypeKeys "<Shift Right>"
+ EditCopy
+ if GetClipboard <> sPage1 then
+ Warnlog "1-The 1st page count isn't correct !"
+ end if
+ Call wTypeKeys "<End>"
+
+ '/// Insert a page break
+ InsertManualBreak
+ Sleep 2
+ kontext "UmbruchEinfuegen"
+ Seitenumbruch.check
+ UmbruchEinfuegen.OK
+
+ '/// In 2nd page , Insert / Fields / Page Count
+ InsertFieldsPageCount
+
+ Call wTypeKeys "<MOD1 Home>"
+
+ '/// Check if the page count is correct
+ Call wTypeKeys "<Shift Right>"
+ 'EditCopy
+ if fGetFieldContent( ) <> sPage2 then
+ Warnlog "2-The 1st page count isn't correct"
+ end if
+
+ Call wTypeKeys "<MOD1 End>"
+ Call wTypeKeys "<Shift Left>"
+ EditCopy
+ if GetClipboard <> sPage2 then
+ Warnlog "The 2nd page count isn't correct !"
+ end if
+
+ Call hCloseDocument
+
+endcase
+
+'-----------------------------------------------------------------
+
+testcase tInsertFieldsSubject
+qaerrorlog "#i93906# - Testcase outcommented due to bug. 'Copied field-content not pastable outside Office'"
+goto endsub
+
+ Dim sSubject as String
+ sSubject = "This is a Subject"
+
+ printlog "Insert / Fields / Subject"
+
+ Call hNewDocument
+
+ '/// File / Properties / Description , input some
+ '/// + text in Subject
+ Call fFileProperties("TabBeschreibung")
+ Thema.Settext sSubject
+ TabBeschreibung.OK
+
+ '/// Insert / Fields / Subject
+ InsertFieldsSubject
+
+ '/// Check if the subject is correct
+ Call wTypeKeys "<Shift Left>"
+ EditCopy
+ if GetClipboard <> sSubject then
+ Warnlog "Subject isn't correct ! should be: '" + sSubject + "', but was: '" + GetClipboard + "'."
+ end if
+
+ Call hCloseDocument
+
+endcase
+
+'-----------------------------------------------------------------
+
+testcase tInsertFieldsTitle
+qaerrorlog "#i93906# - Testcase outcommented due to bug. 'Copied field-content not pastable outside Office'"
+goto endsub
+
+ Dim sTitle as String
+
+ sTitle = "This is a Title"
+
+ printlog "Insert / Fields / Title"
+
+ Call hNewDocument
+
+ '/// File / Properties / Description , input some
+ '/// + text in Title
+ Call fFileProperties("TabBeschreibung")
+ Titel.Settext sTitle
+ TabBeschreibung.OK
+
+ '/// Insert / Fields / Title
+ InsertFieldsTitle
+
+ '/// Check if the title is correct
+ Call wTypeKeys "<Shift Left>"
+ EditCopy
+ if GetClipboard <> sTitle then
+ Warnlog "Title isn't correct ! should be: '" + sTitle + "', but was: '" + GetClipboard + "'."
+ end if
+
+ Call hCloseDocument
+
+endcase
+
+'-----------------------------------------------------------------
+
+testcase tInsertFieldsAuthor
+qaerrorlog "#i93906# - Testcase outcommented due to bug. 'Copied field-content not pastable outside Office'"
+goto endsub
+
+ Dim sFirstName , sLastName as String
+ Dim sFirstName1 , sLastName1 as String
+
+ sFirstName1 = "Test1" : sLastName1 = "Test2"
+
+ printlog "Insert / Fields / Author"
+
+ Call hNewDocument
+
+ '/// Change author to author :Test2 Test1
+ ToolsOptions
+ Call hToolsOptions("STAROFFICE","USERDATA")
+ sFirstName = VorName.GetText
+ sLastName = ZuName.GetText
+ VorName.SetText sFirstName1
+ ZuName.SetText sLastName1
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
+
+ '/// File / Properties / General , check "Apply user
+ '/// + data" , click "delete" button
+ Call fFileProperties("TabDokument")
+ BenutzerdatenVerwenden.Check
+ Sleep 1
+ Loeschen.Click
+ Sleep 1
+ TabDokument.OK
+
+ '/// Insert / Fields / Author
+ InsertFieldsAuthor
+
+ '/// Check if the title is correct
+ Call wTypeKeys "<Shift Left>"
+ EditCopy
+ if GetClipboard <> (sFirstName1 + " " + sLastName1) then
+ Warnlog "Author isn't correct ! should be: '" + (sFirstName1 + " " + sLastName1) + "', but was: '" + GetClipboard + "'."
+ end if
+
+ 'Recover author to default
+ ToolsOptions
+ Call hToolsOptions("STAROFFICE","USERDATA")
+ VorName.SetText sFirstName
+ ZuName.SetText sLastName
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
+
+ Call hCloseDocument
+
+endcase
generated by cgit v1.2.3 (git 2.39.1) at 2024-05-17 18:51:02 +0000