testautomation/writer/required/includes/w_001_.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 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/************************************************************************
  27 '*
  28 '* owner : helge.delfs@oracle.com
  29 '*
  30 '* short description :  Required-Testcases for the File-menu.
  31 '*
  32 '\***********************************************************************
  33
  34 sub w_001_
  35
  36     printLog Chr(13) + "--------- File Menu (w_001_.inc) ----------"
  37     gApplication = "WRITER"
  38
  39     Call tFileNewLabels
  40     Call tFileNewBusinessCards
  41     Call tFileOpen
  42
  43     Call tFileClose
  44     Call tFileSave
  45     Call tFileSaveAll
  46     Call tFileSaveAs
  47     Call tFileSaveAsExport
  48     Call tFileSaveWithPassword
  49     Call tFileReload
  50     Call tFileVersions
  51
  52 end sub
  53
  54 '-----------------------------------------------------------
  55
  56 testcase tFileNewLabels
  57
  58     Dim iSheetFormat as integer
  59     Dim iBrandIndex as integer
  60     Dim iType as integer
  61     Dim sTypes as integer
  62     Dim vTypes as integer
  63
  64     ' The brands have fixed names and should not change
  65     dim cBrandList( 10 ) as string
  66         cBrandList(  1 ) = "Avery A4"
  67         cBrandList(  2 ) = "Avery A4/Asia"
  68         cBrandList(  3 ) = "Avery Letter Size"
  69         cBrandlist(  4 ) = "Avery Zweckform"
  70         cBrandList(  5 ) = "Herlitz"
  71         cBrandList(  6 ) = "Herma A4"
  72         cBrandList(  7 ) = "Herma A5"
  73         cBrandList(  8 ) = "Herma endlos"
  74         cBrandList(  9 ) = "Leitz"
  75         cBrandList( 10 ) = "Sigel"
  76
  77     PrintLog "Open Labels-dialog with File / New / Labels"
  78     if ( hCreateLabels() ) then
  79
  80         Call DialogTest( TabEtiketten )
  81
  82         PrintLog "Switch to Tabpage 'Labels'"
  83         PrintLog "Check number of brands and types (see #i44801# for details)"
  84
  85         For iSheetFormat = 1 to 2
  86
  87             kontext "TabEtiketten"
  88             Select Case( iSheetFormat )
  89             Case 1
  90                 Endlos.Check
  91                 printlog "Continous is checked"
  92             Case 2
  93                 Bogen.Check
  94                 printlog "Sheet is checked"
  95             end select
  96
  97             PrintLog "There should be 10 brands in list"
  98             For iBrandIndex = 1 to Marke.GetItemCount
  99
 100                 Marke.Select( cBrandList( iBrandIndex ) )
 101                 printlog "- Brand: " & Marke.GetSelText
 102                 sTypes = Typ.GetItemCount
 103
 104                 Select Case iBrandIndex
 105                 Case 1:
 106                     PrintLog "Avery/A4 should have 295 types in list if 'Sheet' is checked"
 107                     PrintLog "Avery/A4 should have 1 type in list if 'Continous' is checked"
 108                     if ( iSheetFormat = 1 ) then vTypes = 1 else vTypes = 295
 109                 Case 2:
 110                     PrintLog "Avery A4/Asia should have 88 types in list if 'Sheet' is checked"
 111                     PrintLog "Avery A4/Asia should have 1 type in list if 'Continous' is checked"
 112                     if ( iSheetFormat = 1 ) then vTypes = 1 else vTypes = 88
 113                 Case 3:
 114                     PrintLog "Avery Lettersize should have 251 types in list if 'Sheet' is checked"
 115                     PrintLog "Avery Lettersize should have 45 types in list if 'Continous' is checked"
 116                     if ( iSheetFormat = 1 ) then vTypes = 45 else vTypes = 251
 117                 Case 4:
 118                     PrintLog "Avery Zweckform should have 333 types in list if 'Sheet' is checked"
 119                     PrintLog "Avery Zweckform should have 67 types in list if 'Continous' is checked"
 120                     if ( iSheetFormat = 1 ) then vTypes = 67 else vTypes = 333
 121                 Case 5:
 122                     PrintLog "Herlitz should have 26 types in list if 'Sheet' is checked"
 123                     PrintLog "Herlitz should have 6 types in list if 'Continous' is checked"
 124                     if ( iSheetFormat = 1 ) then vTypes = 6 else vTypes = 26
 125                 Case 6:
 126                     PrintLog "Herma A4 should have 492 types in list if 'Sheet' is checked"
 127                     PrintLog "Herma A4 should have 1 type in list if 'Continous' is checked"
 128                     if ( iSheetFormat = 1 ) then vTypes = 1 else vTypes = 492
 129                 Case 7:
 130                     PrintLog "Herma A5 should have 18 types in list if 'Sheet' is checked"
 131                     PrintLog "Herma A5 should have 1 type in list if 'Continous' is checked"
 132                     if ( iSheetFormat = 1 ) then vTypes = 1 else vTypes = 18
 133                 Case 8:
 134                     PrintLog "Herma endlos should have 1 type in list if 'Sheet' is checked"
 135                     PrintLog "Herma endlos should have 119 types in list if 'Continous' is checked"
 136                     if ( iSheetFormat = 1 ) then vTypes = 119 else vTypes = 1
 137                 Case 9:
 138                     PrintLog "Leitz should have 13 types in list if 'Sheet' is checked"
 139                     PrintLog "Leitz should have 1 type in list if 'Continous' is checked"
 140                     if ( iSheetFormat = 1 ) then vTypes = 1 else vTypes = 13
 141                 Case 10:
 142                     PrintLog "Sigel should have 20 types in list if 'Sheet' is checked"
 143                     PrintLog "Sigel should have 1 type in list if 'Continous' is checked"
 144                     if ( iSheetFormat = 1 ) then vTypes = 1 else vTypes = 20
 145                 Case else:
 146                     Warnlog "- There are more than 10 brands in list"
 147                 end select
 148                 if sTypes <> vTypes then Warnlog "-  Not " & sTypes & " types in list but " & vTypes
 149
 150                 For iType = 1 to Typ.GetItemCount
 151                     Typ.Select iType
 152                     printlog "-  Type: " & Typ.GetSelText
 153                 next iType
 154             next iBrandIndex
 155         next iSheetFormat
 156
 157         PrintLog "Switch to Tabpage 'Format'"
 158         Kontext
 159         active.SetPage TabFormatEtiketten
 160         wait( 100 )
 161
 162         Kontext "TabFormatEtiketten"
 163         Call DialogTest (TabFormatEtiketten)
 164
 165         PrintLog "Click 'Save'"
 166         FormatSpeichern.Click
 167
 168         Kontext "SaveLabelFormat"
 169         if ( SaveLabelFormat.exists( 1 ) ) then
 170
 171             Call DialogTest (SaveLabelFormat)
 172
 173             PrintLog "Close dialog 'Save Label Format'"
 174             SaveLabelFormat.Cancel
 175         else
 176             warnlog( "Dialog <SaveLabelFormat> is not available" )
 177         end if
 178
 179         Kontext "TabFormatEtiketten"
 180
 181         PrintLog "Switch to Tabpage 'Options'"
 182         Kontext
 183         active.SetPage TabDruckerEtiketten
 184
 185         Kontext "TabDruckerEtiketten"
 186         if ( TabDruckerEtiketten.exists( 1 ) ) then
 187             Call DialogTest (TabDruckerEtiketten)
 188
 189             if ( gPlatgroup = "w95" or gPlatgroup = "wnt" ) then
 190                 PrintLog "Click printer setup for Windows"
 191                 Einrichten.Click
 192
 193                 PrintLog "Close printer-setup dialog"
 194                 Kontext "DruckerEinrichten"
 195                 if DruckerEinrichten.Exists( 2 ) then
 196                     DruckerEinrichten.Cancel
 197                 else
 198                     Warnlog "No Default Printer defined for the system, set one!"
 199                 end if
 200             else
 201                 printlog( "No printer setup for UNIX like OS" )
 202             end if
 203
 204             PrintLog "Check checkbox 'Synchronize contents'"
 205             Kontext "TabDruckerEtiketten"
 206             InhaltSynchronisieren.Check()
 207
 208             PrintLog "Click 'New document'"
 209             NeuesDok.Click()
 210
 211             printlog( "JSK: Unknown messagebox handled silently before refactoring" )
 212             Kontext "Active"
 213             if ( Active.Exists( 1 ) ) then
 214                 warnlog( "Unexpected Messagebox: " & Active.getText()
 215                 try
 216                     printlog( "Click <ok>" )
 217                     Active.Ok
 218                 catch
 219                     Warnlog "Once Document has been opened, office asks to save it! BugID 89702"
 220                     Active.Cancel
 221                 endcatch
 222             end if
 223
 224             PrintLog "Check if dialog 'Synchronize Labels' is up"
 225             Kontext "EtikettenSynchronisieren"
 226             if ( EtikettenSynchronisieren.Exists( 2 ) ) then
 227                 Call DialogTest ( EtikettenSynchronisieren )
 228                 Synchronisieren.Click
 229                 WaitSlot()
 230             else
 231                 Warnlog " Dialog to synchronize labels not up!"
 232             end if
 233         else
 234             warnlog( "Tabpage <TabDruckerEtiketten> is not available" )
 235         end if
 236     else
 237         warnlog( "hCreateLabels() failed" )
 238     end if
 239
 240     PrintLog "Close active document"
 241     Call hCloseDocument
 242 endcase
 243
 244 '-----------------------------------------------------------
 245
 246 testcase tFileNewBusinessCards
 247
 248     Dim iFormat as integer
 249     Dim iBrand as integer
 250     Dim iType as integer
 251     Dim iWait as integer
 252     Dim sTypes as integer
 253     Dim vTypes as integer
 254
 255     ' The brands have fixed names and should not change
 256     dim cBrandList( 10 ) as string
 257         cBrandList(  1 ) = "Avery A4"
 258         cBrandList(  2 ) = "Avery A4/Asia"
 259         cBrandList(  3 ) = "Avery Letter Size"
 260         cBrandlist(  4 ) = "Avery Zweckform"
 261         cBrandList(  5 ) = "Herlitz"
 262         cBrandList(  6 ) = "Herma A4"
 263         cBrandList(  7 ) = "Herma A5"
 264         cBrandList(  8 ) = "Herma endlos"
 265         cBrandList(  9 ) = "Leitz"
 266         cBrandList( 10 ) = "Sigel"
 267
 268
 269         PrintLog "Open Business Cards dialog with File / New / Business Cards"
 270         if ( hCreateBusinessCards ) then
 271         PrintLog "Switch to Tabpage 'Medium'"
 272         Kontext
 273         Active.Setpage TabEtikettenMedium
 274
 275         Kontext "TabEtikettenMedium"
 276         if ( TabEtikettenMedium.exists( 1 ) ) then
 277             Call DialogTest (TabEtikettenMedium)
 278
 279             PrintLog "Check number of brands and types (see #i44801# for details)"
 280             For iFormat = 1 to 2
 281                 Select Case iFormat
 282                 Case 1
 283                     Endlos.Check
 284                     printlog "Continous is checked"
 285                 Case 2
 286                     Bogen.Check
 287                     printlog "Sheet is checked"
 288                 end select
 289
 290                 PrintLog "There should be 10 brands in list"
 291                 For iBrand = 1 to Marke.GetItemCount
 292                     Marke.Select( cBrandList( iBrand ) )
 293                     printlog "- Brand: " & Marke.GetSelText
 294                     sTypes = Typ.GetItemCount
 295                     Select Case iBrand
 296                     Case 1:
 297                         PrintLog "Avery/A4 should have 295 types in list if 'Sheet' is checked"
 298                         PrintLog "Avery/A4 should have 1 type in list if 'Continous' is checked"
 299                         if ( iFormat = 1 ) then vTypes = 1 else vTypes = 295
 300                     Case 2:
 301                         PrintLog "Avery A4/Asia should have 88 types in list if 'Sheet' is checked"
 302                         PrintLog "Avery A4/Asia should have 1 type in list if 'Continous' is checked"
 303                         if ( iFormat = 1 ) then vTypes = 1 else vTypes = 88
 304                     Case 3:
 305                         PrintLog "Avery Lettersize should have 251 types in list if 'Sheet' is checked"
 306                         PrintLog "Avery Lettersize should have 45 types in list if 'Continous' is checked"
 307                         if ( iFormat = 1 ) then vTypes = 45 else vTypes = 251
 308                     Case 4:
 309                         PrintLog "Avery Zweckform should have 333 types in list if 'Sheet' is checked"
 310                         PrintLog "Avery Zweckform should have 67 types in list if 'Continous' is checked"
 311                         if ( iFormat = 1 ) then vTypes = 67 else vTypes = 333
 312                     Case 5:
 313                         PrintLog "Herlitz should have 26 types in list if 'Sheet' is checked"
 314                         PrintLog "Herlitz should have 6 types in list if 'Continous' is checked"
 315                         if ( iFormat = 1 ) then vTypes = 6 else vTypes = 26
 316                     Case 6:
 317                         PrintLog "Herma A4 should have 492 types in list if 'Sheet' is checked"
 318                         PrintLog "Herma A4 should have 1 type in list if 'Continous' is checked"
 319                         if ( iFormat = 1 ) then vTypes = 1 else vTypes = 492
 320                     Case 7:
 321                         PrintLog "Herma A5 should have 18 types in list if 'Sheet' is checked"
 322                         PrintLog "Herma A5 should have 1 type in list if 'Continous' is checked"
 323                         if ( iFormat = 1 ) then vTypes = 1 else vTypes = 18
 324                     Case 8:
 325                         PrintLog "Herma endlos should have 1 type in list if 'Sheet' is checked"
 326                         PrintLog "Herma endlos should have 119 types in list if 'Continous' is checked"
 327                         if ( iFormat = 1 ) then vTypes = 119 else vTypes = 1
 328                     Case 9:
 329                         PrintLog "Leitz should have 13 types in list if 'Sheet' is checked"
 330                         PrintLog "Leitz should have 1 type in list if 'Continous' is checked"
 331                         if ( iFormat = 1 ) then vTypes = 1 else vTypes = 13
 332                     Case 10:
 333                         PrintLog "Sigel should have 20 types in list if 'Sheet' is checked"
 334                         PrintLog "Sigel should have 1 type in list if 'Continous' is checked"
 335                         if ( iFormat = 1 ) then vTypes = 1 else vTypes = 20
 336                     Case else:
 337                         Warnlog "- There are more than 10 brands in list"
 338                     end select
 339
 340                     if sTypes <> vTypes then Warnlog "-  Not " & sTypes & " types in list but " & vTypes
 341                     For iType = 1 to Typ.GetItemCount
 342                         Typ.Select iType
 343                         printlog "-  Type: " & Typ.GetSelText
 344                     next iType
 345                 next iBrand
 346             next iFormat
 347
 348             PrintLog "Switch to Tabpage 'Business Cards'"
 349             Kontext
 350             Active.Setpage TabVisitenkarten
 351         else
 352             warnlog( "Dialog <TabEtiketteMedium> not available" )
 353         end if
 354
 355         Kontext "Active"
 356         if ( Active.GetRT = 304 ) then
 357             Warnlog( "Unexpected messagebox: " & Active.GetText() )
 358             Active.Ok
 359         end if
 360
 361         Kontext "TabVisitenkarten"
 362         for iWait = 1 to 100
 363             if Inhalt.IsVisible then
 364                 Call DialogTest (TabVisitenkarten)
 365                 iWait = 101
 366             else
 367                 wait( 100 )
 368             end if
 369         next iWait
 370
 371         PrintLog "Switch to Tabpage 'Private'"
 372         Kontext
 373         Active.Setpage TabPrivat
 374
 375         Kontext "TabPrivat"
 376         Call DialogTest (TabPrivat)
 377
 378         PrintLog "Switch to Tabpage 'Business'"
 379         Kontext
 380         Active.Setpage TabGeschaeft
 381
 382         Kontext "TabGeschaeft"
 383         Call DialogTest (TabGeschaeft)
 384
 385         Kontext
 386         Active.Setpage TabFormatEtiketten
 387
 388         PrintLog "Switch to Tabpage 'Format'"
 389         Kontext "TabFormatEtiketten"
 390         Call DialogTest (TabFormatEtiketten)
 391
 392         PrintLog "Click pushbutton 'Save'"
 393         FormatSpeichern.Click
 394
 395         PrintLog "Close upcoming dialog 'Save Label Format'"
 396         Kontext "SaveLabelFormat"
 397
 398         Call DialogTest (SaveLabelFormat)
 399         SaveLabelFormat.Cancel
 400
 401         Kontext "TabFormatEtiketten"
 402         Kontext
 403         Active.Setpage TabZusaetzeEtiketten
 404
 405         Kontext "TabZusaetzeEtiketten"
 406         Call DialogTest (TabZusaetzeEtiketten)
 407         Einrichten.Click
 408
 409         Kontext "DruckerEinrichten"
 410         if ( DruckerEinrichten.Exists( 1 ) ) then
 411             DruckerEinrichten.Cancel
 412         else
 413             Warnlog "No Default Printer configured for this system. Set one!"
 414         end if
 415
 416         Kontext "TabZusaetzeEtiketten"
 417         PrintLog "Switch to Tabpage 'Options'"
 418         PrintLog "Check Checkbox 'Syncronize contents"
 419         InhaltSynchronisieren.Check
 420
 421         PrintLog "Click 'new Document'"
 422         NeuesDok.Click
 423
 424         Kontext "Active"
 425         if ( Active.Exists( 2 ) ) then
 426             try
 427                 Active.Ok
 428             catch
 429                 Active.Cancel
 430                 Warnlog "Once Document has been opened, office asks to save it! BugID 89702"
 431             endcatch
 432         end if
 433
 434         PrintLog "Check i dialog 'Syncronize Labels' is up"
 435         Kontext "EtikettenSynchronisieren"
 436         if ( EtikettenSynchronisieren.Exists( 2 ) ) then
 437             Call DialogTest ( EtikettenSynchronisieren )
 438             Synchronisieren.Click
 439         else
 440             Warnlog "Dialog to synchronize Business Cards not up!"
 441         end if
 442
 443         PrintLog "Close active document"
 444         Call hCloseDocument
 445     else
 446         warnlog( "Failed to create business cards" )
 447     end if
 448
 449 endcase
 450
 451 '-----------------------------------------------------------
 452
 453 testcase tFileOpen
 454
 455     printLog "- File / Open"
 456
 457     FileOpen
 458
 459     Kontext "OeffnenDlg"
 460     if ( OeffnenDlg.exists( 2 ) ) then
 461
 462         Call DialogTest ( OeffnenDlg )
 463
 464         PrintLog "Click 'Up one level'"
 465         UebergeordneterOrdner.Click
 466
 467         WaitSlot()
 468
 469         try
 470             PrintLog "Click button 'Default directory'"
 471             Standard.Click
 472             WaitSlot()
 473         catch
 474             ExceptLog
 475         endcatch
 476
 477         PrintLog "Click Button 'New folder'"
 478         if ( NeuerOrdner.exists() ) then
 479             if ( NeuerOrdner.isVisible() ) then
 480                 if ( NeuerOrdner.IsEnabled() ) then
 481                     NeuerOrdner.Click
 482
 483                     Kontext "NeuerOrdner"
 484                     if ( NeuerOrdner.exists( 1 ) ) then
 485                         PrintLog "Enter a foldername in upcoming dialog"
 486                         OrdnerName.SetText( "TT_Test" )
 487
 488                         PrintLog "Close dialog with 'Cancel'"
 489                         NeuerOrdner.Cancel
 490                     else
 491                         warnlog( "Dialog <NeuerOrdner> not available" )
 492                     end if
 493                 else
 494                     Warnlog( "New Folder button disabled" )
 495                 end if
 496             else
 497                 Warnlog( "New Folder button not visible" )
 498             end if
 499         else
 500             Warnlog( "New Folder button missing on dialog" )
 501         end if
 502         Kontext "OeffnenDlg"
 503         OeffnenDlg.Cancel
 504     else
 505         warnlog( "File Open dialog is not available" )
 506     end if
 507     PrintLog "Close File-Open-dialog with 'Cancel'"
 508 endcase
 509
 510 '-----------------------------------------------------------
 511
 512 testcase tFileClose
 513
 514     PrintLog "- File/Close"
 515
 516     PrintLog "Open new document"
 517     Call hNewDocument
 518
 519     PrintLog "Insert a table"
 520     Call hTabelleEinfuegen
 521
 522     PrintLog "File / Close"
 523     hUseAsyncSlot( "FileClose" )
 524
 525     PrintLog( "Cancel saving the document" )
 526     kontext "Active"
 527     if ( Active.exists( 1 ) ) then
 528         Active.Cancel
 529     else
 530         Warnlog( "No warning for modified document" )
 531     end if
 532
 533     PrintLog "again File / Close"
 534     hUseAsyncSlot( "FileClose" )
 535
 536     Printlog( "Confirm to save the document" )
 537     Kontext "Active"
 538     if ( Active.exists( 1 ) ) then
 539         Active.Yes()
 540     else
 541         warnlog( "No warning for modified document" )
 542     end if
 543
 544     PrintLog "Click 'Cancel' in File-Save-Dialog"
 545     Kontext "SpeichernDlg"
 546     if ( SpeichernDlg.Exists( 1 ) ) then
 547         SpeichernDlg.Cancel
 548     else
 549         Kontext "Active"
 550         if Active.Exists() then
 551             Warnlog Active.Gettext()
 552             Active.Ok()
 553         else
 554             Warnlog( "File Save dialog not displayed, messagebox came up instead" )
 555         end if
 556     end if
 557
 558     PrintLog "Choose File / Close again"
 559     hUseAsyncSlot( "FileClose" )
 560
 561     PrintLog "On upcoming messagebox click 'No'"
 562     Kontext "Active"
 563     if ( Active.exists( 1 ) ) then
 564         Active.No
 565     else
 566         warnlog( "Expected messagebox missing" )
 567     end if
 568
 569 endcase
 570
 571 '-----------------------------------------------------------
 572
 573 testcase tFileSave
 574
 575     PrintLog "- File/Save"
 576
 577     PrintLog "Open new document"
 578     Call hNewDocument
 579
 580     PrintLog "Insert a table"
 581     Call hTabelleEinfuegen
 582
 583     PrintLog "Choose 'File / Save'"
 584     FileSave
 585
 586     Kontext "SpeichernDlg"
 587     if ( SpeichernDlg.exists( 2 ) ) then
 588
 589         Call DialogTest ( SpeichernDlg )
 590         PrintLog "In File-Dialog click 'Up one level'"
 591         UebergeordneterOrdner.Click
 592
 593         WaitSlot()
 594
 595         try
 596             PrintLog "Click 'Default directory'"
 597             Standard.Click
 598             WaitSlot()
 599         catch
 600             ExceptLog
 601         endcatch
 602
 603         PrintLog "Click 'Create New Folder '"
 604         if ( NeuerOrdner.exists() ) then
 605             if ( NeuerOrdner.isVisible() ) then
 606                 if ( NeuerOrdner.IsEnabled() ) then
 607                     NeuerOrdner.Click
 608
 609                     Kontext "NeuerOrdner"
 610                     if ( NeuerOrdner.exists( 1 ) ) then
 611
 612                         PrintLog "Enter a foldername in upcoming dialog"
 613                         OrdnerName.SetText( "TT_Test" )
 614
 615                         PrintLog "Close dialog with 'Cancel'"
 616                         NeuerOrdner.Cancel
 617                     else
 618                         warnlog( "Dialog <NeuerOrdner> not available" )
 619                     end if
 620                 else
 621                     Warnlog( "New Folder button disabled" )
 622                 end if
 623             else
 624                 Warnlog( "New Folder button not visible" )
 625             end if
 626         else
 627             Warnlog( "New Folder button missing on dialog" )
 628         end if
 629
 630         Kontext "SpeichernDlg"
 631         SpeichernDlg.cancel()
 632     else
 633         warnlog( "File Save dialog is not available" )
 634     end if
 635
 636     PrintLog "Close active document"
 637     Call hCloseDocument
 638 endcase
 639
 640 '-----------------------------------------------------------
 641
 642 testcase tFileSaveAll
 643
 644     PrintLog "- File / Save All"
 645
 646     PrintLog "Open new document"
 647     Call hNewDocument
 648
 649     PrintLog "Insert a table in document"
 650     Call hTabelleEinfuegen
 651
 652     PrintLog "Open a second document"
 653     Call hNewDocument
 654
 655     PrintLog "Insert a table in second document"
 656     Call hTabelleEinfuegen
 657
 658     PrintLog "Choose File / Save all"
 659     FileSaveAll
 660
 661     PrintLog "Cancel 1. upcoming Filedialog"
 662     Kontext "SpeichernDlg"
 663     if ( SpeichernDlg.exists( 2 ) ) then
 664         SpeichernDlg.Cancel
 665     else
 666         warnlog( "First File Save dialog is not available" )
 667     end if
 668
 669     PrintLog "Cancel 2. upcoming Filedialog"
 670     Kontext "SpeichernDlg"
 671     if ( SpeichernDlg.exists( 2 ) ) then
 672         SpeichernDlg.Cancel
 673     else
 674         warnlog( "Second File Save dialog is not available" )
 675     end if
 676
 677     Kontext "SpeichernDlg"
 678     if ( SpeichernDlg.exists( 1 ) ) then
 679         warnlog( "Third, unexpected File Save dialog open" )
 680         SpeichernDlg.cancel()
 681     end if
 682
 683     PrintLog "Close documents"
 684     hFileCloseAll()
 685
 686 endcase
 687
 688 '-----------------------------------------------------------
 689
 690 testcase tFileSaveAs
 691
 692     PrintLog "- File / Save As"
 693
 694     PrintLog "Open new document"
 695     Call hNewDocument
 696
 697     PrintLog "Choose 'File / Save as'"
 698     FileSaveAs
 699
 700     Kontext "SpeichernDlg"
 701     if ( SpeichernDlg.exists( 1 ) ) then
 702
 703         Call DialogTest ( SpeichernDlg )
 704
 705         PrintLog "Click button 'Up one level'"
 706         UebergeordneterOrdner.Click()
 707
 708         WaitSlot()
 709
 710         PrintLog "Click button 'Default Directory'"
 711         try
 712             Standard.Click
 713         catch
 714             ExceptLog
 715         endcatch
 716
 717         PrintLog "Click button 'Create Folder'"
 718         if ( NeuerOrdner.exists() ) then
 719             if ( NeuerOrdner.isVisible() ) then
 720                 if ( NeuerOrdner.IsEnabled() ) then
 721                     NeuerOrdner.Click
 722
 723                     Kontext "NeuerOrdner"
 724                     if ( NeuerOrdner.exists( 1 ) ) then
 725
 726                         Printlog( "Name the folder" )
 727                         OrdnerName.SetText( "TT_Test" )
 728                         PrintLog "Close dialog with 'Cancel'"
 729                         NeuerOrdner.Cancel
 730                     else
 731                         warnlog( "Dialog <NeuerOrdner> not available" )
 732                     end if
 733                 else
 734                     Warnlog( "New Folder button disabled" )
 735                 end if
 736             else
 737                 Warnlog( "New Folder button not visible" )
 738             end if
 739         else
 740             Warnlog( "New Folder button missing on dialog" )
 741         end if
 742
 743         Kontext "SpeichernDlg"
 744         SpeichernDlg.Cancel
 745     else
 746         warnlog( "File Save dialog is not available" )
 747     end if
 748
 749     PrintLog "Close active document"
 750     Call hCloseDocument
 751 endcase
 752
 753 '-----------------------------------------------------------
 754
 755 testcase tFileSaveAsExport
 756
 757     QaErrorLog "#i93340# - Testcase outcommented due to bug with filter."
 758     goto endsub
 759
 760     Dim xExport as string
 761     Dim xExportFile as string
 762     Dim CountDocu as integer
 763     PrintLog "- File / Save As / Export with MS-filter"
 764
 765     Select Case gApplication
 766     Case "WRITER"
 767         xExport = Convertpath( gTesttoolpath + "writer\required\input\st1_1.sxw" )
 768     Case else
 769         goto endsub
 770     end select
 771
 772     PrintLog "Open new document"
 773     Call hNewDocument
 774
 775     PrintLog "Open document '..\writer\required\input\st1_1.sxw"
 776     Call hFileOpenLocally(xExport)
 777
 778     PrintLog "Select Save as .. and choose 'Microsoft Word 97/2000/XP' as export-filter"
 779     xExportFile = gOfficepath + "user\work\ecksport.doc"
 780     Call hFileSaveAsWithFilterKill (xExportFile, "MS Word 2003 XML")
 781
 782     if ( hFileCloseAll() > 1 ) then
 783         QAErrorlog "More than 1 document had to be closed!"
 784     end if
 785
 786     PrintLog "Close document"
 787     Call hCloseDocument
 788
 789 endcase
 790
 791 '-----------------------------------------------------------
 792
 793 testcase tFileSaveWithPassword
 794
 795     Dim sFileName1 as string
 796     dim sFileName2 as string
 797     dim sFilePath as string
 798
 799     Printlog "- File / Save with Password"
 800     Select Case gApplication
 801     Case "WRITER"
 802         sFileName1 = "password.odt"
 803         sFileName2 = "password2.odt"
 804     Case "MASTERDOCUMENT"
 805         sFileName1 = "password.odm"
 806         sFileName2 = "password2.odm"
 807     Case "HTML"
 808         printlog "Not in Writer/Web!"
 809         goto endsub
 810     end select
 811
 812     PrintLog "Open new document"
 813     Call hNewDocument
 814
 815     PrintLog "Enter some text into document"
 816     Call wTypeKeys("This document will be saved with a password!")
 817
 818     sFilePath = ConvertPath ( gOfficePath + "user\work\" + sFileName1 )
 819     hDeleteFile( sFilePath )
 820
 821     PrintLog "Choose File / Save as."
 822     FileSaveAs
 823
 824     PrintLog "enter destination and check 'Password'"
 825     Kontext "SpeichernDlg"
 826     if ( SpeichernDlg.exists( 2 ) ) then
 827         if ( Passwort.exists() ) then
 828             if ( Passwort.isEnabled() ) then
 829                 Passwort.Check()
 830             else
 831                 warnlog( "FATAL: Password checkbox is not enabled" )
 832                 goto endsub
 833             end if
 834         else
 835             warnlog( "FATAL: Password checkbox does not exist" )
 836             goto endsub
 837         end if
 838
 839         PrintLog "Save the document"
 840         Dateiname.SetText( sFilePath )
 841         Speichern.Click()
 842
 843         printlog( "JSK: Unknown messagebox handled silently before refactoring" )
 844         Kontext "Active"
 845         if ( Active.Exists (1) ) then
 846             warnlog( "Unexpected messagebox: " & Active.getText() )
 847             Active.Yes
 848         end if
 849
 850         PrintLog "Password dialog has to come up"
 851         Kontext "PasswordFileSave"
 852         if ( PasswordFileSave.Exists( 1 ) ) then
 853
 854             PrintLog "Enter your password"
 855             Password.SetText( "12345" )
 856
 857             PrintLog "Re-Enter a wrong passwort"
 858             PasswordConfirm.Settext( "54321" )
 859             PasswordFileSave.OK
 860         else
 861             Warnlog "- Password-Dialog not up !"
 862         end if
 863
 864         Kontext "Active"
 865         PrintLog "A messagebox has to come up, warns of wrong confirmation"
 866         if ( Active.Exists( 1 ) )then
 867             Active.OK
 868         else
 869             Warnlog "Able to save document with wrong password"
 870         end if
 871
 872         Kontext "PasswordFileSave"
 873         if ( PasswordFileSave.Exists() ) then
 874             PrintLog "Enter new password, and re-enter the same password"
 875             Password.SetText( "12345" )
 876             PasswordConfirm.SetText( "12345" )
 877             PasswordFileSave.OK
 878         else
 879             Warnlog "- Password-Dialog not up !"
 880         end if
 881     else
 882         warnlog( "Dialog <SpeichernDlg> not available" )
 883     end if
 884
 885
 886     PrintLog "Close the document"
 887     hUseAsyncSlot( "FileClose" )
 888
 889     PrintLog "Open previous saved document"
 890     hFileOpen( sFilePath )
 891
 892     Kontext "PasswordFileOpen"
 893     PrintLog "Enter a wrong password."
 894     if ( PasswordFileOpen.Exists() ) then
 895         PasswortName.SetText( "34567" )
 896         PasswordFileOpen.OK()
 897     else
 898         Warnlog "- Password-Dialog not up or Document couldn't be loaded!"
 899     end if
 900
 901     PrintLog "A messagebox has to come up, warns of wrong password"
 902     Kontext "Active"
 903     if ( Active.Exists(1) ) then
 904         printlog( "Warning for incorrect password -> good" )
 905         Active.OK()
 906     else
 907         Warnlog "Able to load document with wrong password"
 908     end if
 909
 910     Kontext "PasswordFileOpen"
 911     PrintLog "Cancel Password dialog (not loading the document"
 912     if ( PasswordFileOpen.Exists( 1 ) ) then
 913         PasswordFileOpen.Cancel()
 914     end if
 915
 916     PrintLog "File / Open again your previous saved document"
 917     hFileOpen( sFilePath )
 918
 919     PrintLog "Enter your password in password dialog"
 920     Kontext "PasswordFileOpen"
 921     if ( PasswordFileOpen.Exists() ) then
 922         PasswortName.SetText( "12345" )
 923         PasswordFileOpen.OK()
 924     else
 925         Warnlog "- Password-Dialog not up!"
 926     end if
 927
 928     ' Rename document, the old one is now obsolete
 929     sFilePath = ConvertPath ( gOfficePath + "user\work\" + sFileName2 )
 930     hDeleteFile( sFilePath )
 931
 932
 933     PrintLog "File / Save as ..."
 934     hUseAsyncSlot( "FileSaveAs" )
 935
 936     Kontext "SpeichernDlg"
 937     if ( SpeichernDlg.exists( 2 ) ) then
 938
 939         printlog( "Verify that password setting is persistent" )
 940         if ( Not Passwort.IsChecked ) then
 941             if ( gPlatgroup = "unx" ) then
 942                 QAErrorlog "#i73968#Opening a password protected file looses focus after loading"
 943             else
 944                 Warnlog "#i36015#Checkbox 'Save with password' is not checked in file-dialog !"
 945                 Passwort.Check
 946             end if
 947             SpeichernDlg.Cancel
 948         else
 949             Dateiname.SetText( sFilePath )
 950             Speichern.Click()
 951
 952             printlog( "JSK: Unknown messagebox handled silently before refactoring" )
 953             Kontext "Active"
 954             if ( Active.Exists( 2 ) ) then
 955                 printlog( "Messagebox: " & Active.getText() )
 956                 Active.Yes()
 957             end if
 958
 959             PrintLog "Click on 'Save' in file open dialog"
 960             Kontext "PasswordFileSave"
 961             if ( PasswordFileSave.Exists( 1 ) ) then
 962
 963                 Password.SetText( "54321" )
 964                 PasswordConfirm.SetText( "54321" )
 965                 PasswordFileSave.OK()
 966
 967                 PrintLog( "The password dialog should come up" )
 968                 hUseAsyncSlot( "FileClose" )
 969
 970                 PrintLog "File / Close and open your document again"
 971                 hFileOpen( sFilePath )
 972
 973                 Kontext "PasswordFileOpen"
 974                 if ( PasswordFileOpen.exists() ) then
 975                     PasswortName.SetText "54321"
 976                     PasswordFileOpen.OK
 977                 else
 978                     warnlog( "Password dialog did not open" )
 979                 end if
 980             else
 981                 Warnlog "Passworddialog is not coming up on saving document"
 982             end if
 983         end if
 984     else
 985         warnlog( "Dialog <SpeichernDlg> not available" )
 986     end if
 987     PrintLog "Close active document"
 988     Call hCloseDocument
 989 endcase
 990
 991 '-------------------------------------------------------------------------------
 992
 993 testcase tFileReload
 994
 995     Dim DokumentPfad$
 996     Dim Datei$
 997     Dim sFile$
 998     Dim WriterFilterExtension(10) as string
 999     Dim MasterDocFilterExtension(10) as string
1000
1001     WriterFilterExtension() = hGetFilternameExtension ( "writer8" )
1002     MasterDocFilterExtension() = hGetFilternameExtension ( "writerglobal8" )
1003
1004     PrintLog "- File / Reload"
1005     Select Case gApplication
1006     Case "WRITER"
1007         sFile$ = "reload." & WriterFilterExtension(0)
1008     Case "MASTERDOCUMENT"
1009         sFile$ = "reload." & MasterDocFilterExtension(0)
1010     Case "HTML"
1011         printlog "Not in Writer/Web!"
1012         goto endsub
1013     end select
1014
1015     PrintLog "Open new document"
1016     Call hNewDocument
1017
1018     PrintLog "Enter some text, save and close document"
1019     Call wTypeKeys("File -> Reload!")
1020     Call hFileSaveAsKill ( gOfficePath + "user\work\" + sFile$ )
1021     FileClose
1022     Kontext
1023     if MessageBox.Exists (1) then
1024         WarnLog "Messagebox after saving and closing : " + MessageBox.GetText
1025         MessageBox.Yes
1026     end if
1027     Wait (500)
1028
1029     PrintLog "Open previous saved document"
1030     hFileOpen(  gOfficePath + "user\work\" + sFile$ )
1031     PrintLog "Insert a table in document"
1032     Call hTabelleEinfuegen
1033     PrintLog "File / Reload"
1034     FileReload
1035     WaitSlot(1000)
1036     PrintLog "Quit messagebox with 'No'"
1037     Kontext "Active"
1038     Active.No
1039     Wait (500)
1040
1041     PrintLog "File / Reload again and quit messagebox with yes"
1042     FileReload
1043
1044     WaitSlot(2000)
1045     Kontext "Active"
1046     Active.Yes
1047     Wait (500)
1048     PrintLog "Close active document"
1049     Call hCloseDocument
1050 endcase
1051
1052 '-----------------------------------------------------------
1053
1054 testcase tFileVersions
1055     Dim sFile$
1056     Dim WriterFilterExtension(10) as string
1057     Dim MasterDocFilterExtension(10) as string
1058
1059     WriterFilterExtension() = hGetFilternameExtension ( "writer8" )
1060     MasterDocFilterExtension() = hGetFilternameExtension ( "writerglobal8" )
1061
1062     PrintLog "- File / Versions"
1063     Select Case gApplication
1064     Case "WRITER"
1065         sFile$ = "kann_weg." & WriterFilterExtension(0)
1066     Case "MASTERDOCUMENT"
1067         sFile$ = "kann_weg." & MasterDocFilterExtension(0)
1068     Case "HTML"
1069         printlog "Not in Writer/Web!"
1070         goto endsub
1071     end select
1072
1073     PrintLog "Open new document"
1074     Call hNewDocument
1075     Call wTypeKeys ("File version")
1076     PrintLog "enter some text in documet and save it"
1077     Call hFileSaveAsKill(gOfficePath + "user\work\" + sFile$)
1078     Sleep 1
1079
1080     try
1081         PrintLog "Choose File / Versions"
1082         FileVersions
1083     catch
1084         Warnlog "- File / Versions not accessible!"
1085         goto endsub
1086     endcatch
1087
1088     PrintLog "In Version-dialog click 'Save New Version'"
1089     Kontext "Versionen"
1090     Call DialogTest ( Versionen )
1091     Speichern.Click
1092     PrintLog "Cancel dialog 'Insert version comment'"
1093     Kontext "VersionskommentarEingeben"
1094     Call DialogTest ( VersionskommentarEingeben )
1095     VersionskommentarEingeben.Cancel
1096
1097     PrintLog "Close dialog"
1098     Kontext "Versionen"
1099     Versionen.Close
1100
1101     PrintLog "Close documents"
1102     Do Until GetDocumentCount = 0
1103         Call hCloseDocument
1104     Loop
1105 endcase
1106
1107 '-----------------------------------------------------------
1108