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