testautomation/writer/optional/includes/fields/w_fields1.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '*
   5 '* Copyright 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: w_fields1.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:26:27 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* owner : helge.delfs@sun.com
  35 '*
  36 '* short description : Fields general test
  37 '*
  38 '\***********************************************************************
  39
  40 sub w_fields1
  41
  42     Call tInsertFieldsDate
  43     Call tInsertFieldsTime
  44     Call tInsertFieldsPageNumber
  45     Call tInsertFieldsPageCount
  46     Call tInsertFieldsSubject
  47     Call tInsertFieldsTitle
  48     Call tInsertFieldsAuthor
  49
  50 end sub
  51
  52 '-----------------------------------------------------------------
  53
  54 testcase tInsertFieldsDate
  55
  56     Dim sDate as String
  57     sDate  = Date
  58
  59     printlog "Insert / Fields / Date"
  60     '/// <b> Default should be mm/dd/yy </b>
  61
  62     Call hNewDocument
  63
  64     '/// Insert / Fields / Date , the 1st date is fixed
  65     InsertFieldsDate
  66
  67     '/// Return
  68     Call wTypeKeys "<Return>"
  69
  70     '/// Insert / Fields / Date
  71     InsertFieldsDate
  72
  73     Call wTypeKeys "<Home>"
  74
  75     '/// Set 2nd date only to be date , not fixed
  76     '/// In 2nd date , Edit / Fields , select date in 'select'
  77     '/// Select second format in 'Format'
  78     EditFields
  79     Kontext "FeldbefehlBearbeitenDokument"
  80     Auswahl.Select 2
  81     Zahlenformat.Select 2  'Should be the same as the value we get with 'Time'.
  82     '/// Close the dialog
  83     FeldbefehlBearbeitenDokument.OK
  84
  85     '/// Set first date to the right format, but leave as unfixed
  86     '/// In 1nd date , Edit / Fields , select second format in 'Format'
  87     Call wTypeKeys "<MOD1 Home>"
  88
  89     EditFields
  90     Kontext "FeldbefehlBearbeitenDokument"
  91     Zahlenformat.Select 2  'Should be the same as the value we get with 'Time'.
  92     FeldbefehlBearbeitenDokument.OK
  93
  94     '/// Check if the date is correct
  95     Call wTypeKeys "<MOD1 Home>"
  96     Call wTypeKeys "<Shift Right>"
  97     EditCopy
  98     if GetClipboard <> sDate then
  99         Warnlog "Fixed date is wrong ! Hope you don't run this case in the midnight"
 100     end if
 101
 102     Call wTypeKeys "<Down><Home>"
 103     Call wTypeKeys "<Shift Right>"
 104     EditCopy
 105     if GetClipboard <> sDate then
 106         Warnlog "Date is wrong ! Hope you don't run this case in the midnight"
 107     end if
 108
 109     Call hCloseDocument
 110
 111 endcase
 112
 113 '-----------------------------------------------------------------
 114
 115 testcase tInsertFieldsTime
 116
 117     Dim sTime  as String
 118     Dim sTime1 as String
 119     Dim sTime2 as String
 120     Dim sTemp  as String
 121
 122     printlog "Insert / Fields / Time"
 123     '/// <b> Default could be hh/mm/ss pm  or simply  hh/mm/ss , depending on the system the test is running on.</b>
 124
 125     Call hNewDocument
 126     sTime = Time
 127
 128     '/// Insert / Fields / Time , the 1st time is fixed
 129     InsertFieldsTime
 130
 131     '/// Return
 132     Call wTypeKeys "<Return>"
 133
 134     '/// Insert / Fields / Time
 135     InsertFieldsTime
 136
 137     Call wTypeKeys "<Home>"
 138
 139     '/// Set 2nd time only to be time , not fixed
 140     '/// In 2nd time , Edit / Fields , select Time in 'select'
 141     EditFields
 142     Kontext "FeldbefehlBearbeitenDokument"
 143     Auswahl.Select 2
 144     FeldbefehlBearbeitenDokument.OK
 145
 146     '/// Check if the time is correct
 147     Call wTypeKeys "<MOD1 Home>"
 148     Call wTypeKeys "<Shift Right>"
 149     EditCopy
 150     sTime1 = GetClipboard
 151     if NOT Len(sTime1) > 7 then Warnlog "Fixed time-format is wrong !"
 152
 153     Call wTypeKeys "<Down><Home>"
 154     Call wTypeKeys "<Shift Right>"
 155     EditCopy
 156     sTime2 = GetClipboard
 157     if NOT Len(sTime2) > 7 then Warnlog "Time-format is wrong !"
 158
 159     printlog "Stop for a while ..."
 160     '/// Stop for  a while , check if the time is still correct
 161     Sleep 2
 162     Call wTypeKeys "<MOD1 Home>"
 163     Call wTypeKeys "<Shift Right>"
 164     EditCopy
 165     if GetClipboard <> sTime1 then Warnlog "Fixed time is wrong !"
 166
 167     Call wTypeKeys "<Down><Home>"
 168     Call wTypeKeys "<Shift Right>"
 169     EditCopy
 170     if GetClipboard = sTime2  then Warnlog "Time is wrong !"
 171
 172     Call hCloseDocument
 173
 174 endcase
 175
 176 '-----------------------------------------------------------------
 177
 178 testcase tInsertFieldsPageNumber
 179 qaerrorlog "#i93906# - Testcase outcommented due to bug. 'Copied field-content not pastable outside Office'"
 180 goto endsub
 181
 182   Dim sPage1 , sPage2 as String
 183
 184   sPage1 = "1" : sPage2 = "2"
 185
 186   printlog "Insert / Fields / Page Number"
 187
 188   Call hNewDocument
 189
 190   '/// In 1st page , Insert / Fields / Page Number
 191    InsertFieldsPageNumbers
 192
 193   '/// Insert a page break
 194    InsertManualBreak
 195    Sleep 2
 196    kontext "UmbruchEinfuegen"
 197      Seitenumbruch.check
 198    UmbruchEinfuegen.OK
 199
 200   '/// In 2nd page , Insert / Fields / Page Number
 201    InsertFieldsPageNumbers
 202
 203    Call wTypeKeys "<MOD1 Home>"
 204
 205   '/// Check if the page number is correct
 206    Call wTypeKeys "<Shift Right>"
 207    if fGetFieldContent( ) <> sPage1 then
 208        QAErrorLog "#i31214# The 1st page number isn't correct ! should be: '" + sPage1 + "', but was: '" + GetClipboard + "'."
 209    end if
 210
 211    Call wTypeKeys "<MOD1 End>"
 212    Call wTypeKeys "<Shift Left>"
 213    EditCopy
 214    if GetClipboard <> sPage2 then
 215        Warnlog "The 2nd page number isn't correct !"
 216    end if
 217
 218  Call hCloseDocument
 219
 220 endcase
 221
 222 '-----------------------------------------------------------------
 223
 224 testcase tInsertFieldsPageCount
 225 qaerrorlog "#i93906# - Testcase outcommented due to bug. 'Copied field-content not pastable outside Office'"
 226 goto endsub
 227
 228   Dim sPage1 , sPage2  as  String
 229
 230   sPage1 = "1" : sPage2 = "2"
 231
 232   printlog "Insert / Fields / Page Count"
 233
 234   Call hNewDocument
 235
 236   '/// In 1st page , Insert / Fields / Page Count
 237    InsertFieldsPageCount
 238
 239    Call wTypeKeys "<MOD1 Home>"
 240
 241   '/// Check if the 1st page count is correct
 242    Call wTypeKeys "<Shift Right>"
 243    EditCopy
 244    if GetClipboard <> sPage1 then
 245        Warnlog "1-The 1st page count isn't correct !"
 246    end if
 247    Call wTypeKeys "<End>"
 248
 249   '/// Insert a page break
 250    InsertManualBreak
 251    Sleep 2
 252    kontext "UmbruchEinfuegen"
 253      Seitenumbruch.check
 254    UmbruchEinfuegen.OK
 255
 256   '/// In 2nd page , Insert / Fields / Page Count
 257    InsertFieldsPageCount
 258
 259    Call wTypeKeys "<MOD1 Home>"
 260
 261   '/// Check if the page count is correct
 262    Call wTypeKeys "<Shift Right>"
 263    'EditCopy
 264    if fGetFieldContent( ) <> sPage2 then
 265        Warnlog "2-The 1st page count isn't correct"
 266    end if
 267
 268    Call wTypeKeys "<MOD1 End>"
 269    Call wTypeKeys "<Shift Left>"
 270    EditCopy
 271    if GetClipboard <> sPage2 then
 272        Warnlog "The 2nd page count isn't correct !"
 273    end if
 274
 275  Call hCloseDocument
 276
 277 endcase
 278
 279 '-----------------------------------------------------------------
 280
 281 testcase tInsertFieldsSubject
 282 qaerrorlog "#i93906# - Testcase outcommented due to bug. 'Copied field-content not pastable outside Office'"
 283 goto endsub
 284
 285   Dim sSubject  as  String
 286   sSubject = "This is a Subject"
 287
 288   printlog "Insert / Fields / Subject"
 289
 290   Call hNewDocument
 291
 292   '/// File / Properties / Description , input some
 293   '/// + text in Subject
 294    Call fFileProperties("TabBeschreibung")
 295      Thema.Settext sSubject
 296    TabBeschreibung.OK
 297
 298   '/// Insert / Fields / Subject
 299    InsertFieldsSubject
 300
 301   '/// Check if the subject is correct
 302    Call wTypeKeys "<Shift Left>"
 303    EditCopy
 304    if GetClipboard <> sSubject then
 305        Warnlog "Subject isn't correct !  should be: '" + sSubject + "', but was: '" + GetClipboard + "'."
 306    end if
 307
 308  Call hCloseDocument
 309
 310 endcase
 311
 312 '-----------------------------------------------------------------
 313
 314 testcase tInsertFieldsTitle
 315 qaerrorlog "#i93906# - Testcase outcommented due to bug. 'Copied field-content not pastable outside Office'"
 316 goto endsub
 317
 318   Dim sTitle  as  String
 319
 320   sTitle = "This is a Title"
 321
 322   printlog "Insert / Fields / Title"
 323
 324   Call hNewDocument
 325
 326   '/// File / Properties / Description , input some
 327   '/// + text in Title
 328    Call fFileProperties("TabBeschreibung")
 329      Titel.Settext sTitle
 330    TabBeschreibung.OK
 331
 332   '/// Insert / Fields / Title
 333    InsertFieldsTitle
 334
 335   '/// Check if the title is correct
 336    Call wTypeKeys "<Shift Left>"
 337    EditCopy
 338    if GetClipboard <> sTitle then
 339        Warnlog "Title isn't correct ! should be: '" + sTitle + "', but was: '" + GetClipboard + "'."
 340    end if
 341
 342  Call hCloseDocument
 343
 344 endcase
 345
 346 '-----------------------------------------------------------------
 347
 348 testcase tInsertFieldsAuthor
 349 qaerrorlog "#i93906# - Testcase outcommented due to bug. 'Copied field-content not pastable outside Office'"
 350 goto endsub
 351
 352   Dim sFirstName  , sLastName  as String
 353   Dim sFirstName1 , sLastName1 as String
 354
 355   sFirstName1 = "Test1" : sLastName1 = "Test2"
 356
 357   printlog "Insert / Fields / Author"
 358
 359   Call hNewDocument
 360
 361   '/// Change author to author :Test2 Test1
 362    ToolsOptions
 363    Call hToolsOptions("STAROFFICE","USERDATA")
 364      sFirstName = VorName.GetText
 365      sLastName  = ZuName.GetText
 366      VorName.SetText sFirstName1
 367      ZuName.SetText  sLastName1
 368      Kontext "ExtrasOptionenDlg"
 369    ExtrasOptionenDlg.OK
 370
 371   '/// File / Properties / General , check "Apply user
 372   '/// + data" , click "delete" button
 373    Call fFileProperties("TabDokument")
 374      BenutzerdatenVerwenden.Check
 375      Sleep 1
 376      Loeschen.Click
 377      Sleep 1
 378    TabDokument.OK
 379
 380   '/// Insert / Fields / Author
 381    InsertFieldsAuthor
 382
 383   '/// Check if the title is correct
 384    Call wTypeKeys "<Shift Left>"
 385    EditCopy
 386    if GetClipboard <> (sFirstName1 + " " + sLastName1) then
 387        Warnlog "Author isn't correct ! should be: '" + (sFirstName1 + " " + sLastName1) + "', but was: '" + GetClipboard + "'."
 388    end if
 389
 390   'Recover author to default
 391    ToolsOptions
 392    Call hToolsOptions("STAROFFICE","USERDATA")
 393      VorName.SetText sFirstName
 394      ZuName.SetText  sLastName
 395      Kontext "ExtrasOptionenDlg"
 396    ExtrasOptionenDlg.OK
 397
 398  Call hCloseDocument
 399
 400 endcase