testautomation/writer/required/includes/w_001b_.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_001b_
  35
  36     printLog Chr(13) + "--------- File Menu (w_001b_.inc) ----------"
  37     gApplication = "WRITER"
  38
  39     Call tToolsXMLFilterSettings
  40     Call tFileExportAsPDF
  41     Call tExportAsPDFButton
  42     Call tFileSendCreateMasterDocument
  43     Call tFileSendCreateHTMLDocument
  44     Call tFileSendOutlineToPresentation
  45     Call tFileSendOutlineToClipboard
  46     Call tFileSendCreateAutoabstract
  47     Call tFileSendAutoabstractToPresentation
  48
  49     'Writer Master Document
  50     gApplication = "MASTERDOCUMENT"
  51     Call tMasterDocFileSaveWithPassword
  52     Call tMasterDocFileReload
  53     Call tMasterDocFileVersions
  54     Call tMasterDocFileSendCreateHTMLDocument
  55     Call tMasterDocFileSendOutlineToPresentation
  56     Call tMasterDocFileSendOutlineToClipboard
  57     Call tMasterDocFileSendCreateAutoabstract
  58     Call tMasterDocFileSendAutoabstractToPresentation
  59     gApplication = "WRITER"
  60
  61 end sub
  62
  63 '-------------------------------------------------------------------------------
  64
  65 testcase tFileSendCreateMasterDocument
  66     PrintLog "- File / Send / Create Masterdocument"
  67     if gApplication <> "WRITER" then
  68         printlog "Not in : " + gApplication
  69         goto endsub
  70     endif
  71
  72     PrintLog "Open new document"
  73     Call hNewDocument
  74     Call wTypeKeys("File -> Send -> Create Master Document")
  75     PrintLog "Choose File / Send /Create Master Document"
  76     FileSendCreateMasterdocument
  77     Kontext "SendMasterDocument"
  78
  79     PrintLog "Cancel File-Save-dialog"
  80     SendMasterdocument.Cancel
  81     Kontext "Active"
  82     if Active.Exists then Active.OK
  83     PrintLog "Close active document"
  84     Call hCloseDocument
  85 endcase
  86
  87 '-----------------------------------------------------------
  88
  89 testcase tFileSendCreateHTMLDocument
  90     PrintLog "- File / Send / Create HTML-Dokument"
  91     PrintLog "Open new document"
  92     Select Case gApplication
  93     Case "WRITER", "MASTERDOCUMENT" : hNewDocument()
  94     Case else
  95         printlog "Not in WriterWeb!"
  96         goto endsub
  97     end select
  98     PrintLog "Choose File / Send / Create HTML-Document"
  99     FileSendCreateHTMLDocument
 100
 101     PrintLog "Cancel Filedialog"
 102     Kontext "SendHTMLDocument"
 103     SendHTMLDocument.Cancel
 104     Kontext "Active"
 105     if Active.Exists then Active.OK
 106
 107     PrintLog "Close documents"
 108     Do Until GetDocumentCount = 0
 109         Call hCloseDocument
 110     Loop
 111 endcase
 112
 113 '-----------------------------------------------------------
 114
 115 testcase tFileSendOutlineToPresentation
 116     Dim sFile$
 117     PrintLog "- File / Send / Outline to Presentation"
 118     Select Case gApplication
 119     Case "WRITER"
 120         sFile$ = "htmltest.sxw"
 121     Case "MASTERDOCUMENT"
 122         sFile$ = "htmltest.sxg"
 123     Case "HTML"
 124         printlog "Not in Writer/Web!"
 125         goto endsub
 126     end select
 127     PrintLog "Open file ( gTesttoolPath + writer\required\input\ + htmltest.sxw )"
 128     hFileOpenLocally(  gTesttoolPath + "writer\required\input\" + sFile$ )
 129     Kontext "Navigator"
 130     if Navigator.Exists then Navigator.Close
 131     Sleep 1
 132     Kontext "DocumentWriter"
 133     PrintLog "File / Send / Outline to presentation"
 134     try
 135         FileSendOutlineToPresentation
 136     catch
 137         Warnlog "#i38723#Unable to execute 'File -> Send -> Outline to Presentation'"
 138         Call hCloseDocument
 139         goto endsub
 140     endcatch
 141     Wait(500)
 142
 143     Kontext "DocumentImpressOutlineView"
 144     if DocumentImpressOutlineView.Exists then
 145         DocumentImpressOutlineView.TypeKeys "<Mod1 Home>"
 146         DocumentImpressOutlineView.TypeKeys "<Shift End>"
 147         Wait(500)
 148         try
 149             EditCopy
 150             if GetClipboardText <> "Seite 1." then QAErrorlog "Wrong Outline in Impress Outlinemode"
 151         catch
 152             QAErrorlog "Send outline to presentation doesn't work correct."
 153         endcatch
 154     else
 155         WarnLog "Outlinemode comes not up!"
 156     endif
 157
 158     Kontext "Navigator"
 159     hCloseDialog( Navigator, "Close,optional" )
 160     hFileCloseAll()
 161 endcase
 162
 163 '-----------------------------------------------------------
 164
 165 testcase tFileSendOutlineToClipboard
 166     Dim sFile$
 167     PrintLog "- File / Send / Outline to Clipboard"
 168     Select Case gApplication
 169     Case "WRITER"
 170         sFile$ = "htmltest.sxw"
 171     Case "MASTERDOCUMENT"
 172         sFile$ = "htmltest.sxg"
 173     Case "HTML"
 174         printlog "Not in Writer/Web!"
 175         goto endsub
 176     end select
 177
 178     PrintLog "Open file ( gTesttoolPath + writer\required\input\ + htmltest.sxw )"
 179     hFileOpenLocally(  gTesttoolPath + "writer\required\input\" + sFile$ )
 180     Sleep 1
 181     PrintLog "File / Send / Outline to Clipboard"
 182     try
 183         FileSendOutlineToClipboard
 184     catch
 185         Warnlog "#i38723#Unable to execute 'File -> Send -> Outline to Clipboard'"
 186         Call hCloseDocument
 187         goto endsub
 188     endcatch
 189
 190     Sleep 1
 191     PrintLog "Close active document"
 192     Call hCloseDocument
 193     WaitSlot(1000)
 194     Call hNewDocument
 195     PrintLog "Open new document"
 196
 197     WaitSlot(1000)
 198
 199     PrintLog "Paste outline in new document"
 200     hUseAsyncSlot( "EditPaste" )
 201     WaitSlot(1000)
 202     Call wTypeKeys("<Up>", 6)
 203     Call wTypeKeys("<Home><Shift End>")
 204     hUseAsyncSlot( "EditCopy" )
 205     if GetClipboardText <> "Seite 1." then QAErrorlog "Wrong Outline in Impress Outlinemode"
 206     WaitSlot(1000)
 207     PrintLog "Close active document"
 208     Call hCloseDocument
 209 endcase
 210
 211 '-----------------------------------------------------------
 212
 213 testcase tFileSendCreateAutoabstract
 214     Dim sFile$
 215     PrintLog "- File / Send / Create Autoabstract"
 216     Select Case gApplication
 217     Case "WRITER"
 218         sFile$ = "htmltest.sxw"
 219     Case "MASTERDOCUMENT"
 220         sFile$ = "htmltest.sxg"
 221     Case "HTML"
 222         printlog "Not in Writer/Web!"
 223         goto endsub
 224     end select
 225
 226     PrintLog "Open file ( gTesttoolPath + writer\required\input\ + htmltest.sxw )"
 227     hFileOpenLocally(  gTesttoolPath + "writer\required\input\" + sFile$ )
 228     Kontext "Navigator"
 229     if Navigator.Exists then Navigator.Close
 230     Sleep 1
 231     Kontext "DocumentWriter"
 232     PrintLog "File / Send / Create Autoabstract"
 233     try
 234         FileSendCreateAutoabstract
 235     catch
 236         Warnlog "#i38723#Unable to execute 'File -> Send -> Create Autoabstract'"
 237         Call hCloseDocument
 238         goto endsub
 239     endcatch
 240     WaitSlot(2000)
 241
 242     PrintLog "Close upcoming dialog with 'Ok"
 243     Kontext "AutoAbstractErzeugen"
 244     AutoAbstractErzeugen.OK
 245     Sleep 1
 246     Call wTypeKeys("<Home><Up>", 10)
 247     Call wTypeKeys("<Shift End>")
 248     try
 249         EditCopy
 250         WaitSlot(1000)
 251         if GetClipboardText <> "Seite 1." then QAErrorlog "Wrong Outline in Impress Outlinemode"
 252     catch
 253         QAErrorlog "Empty autoabstract created"
 254     endcatch
 255
 256     Kontext "Navigator"
 257     hCloseDialog( Navigator, "Close,optional" )
 258     hFileCloseAll()
 259
 260 endcase
 261
 262 '-----------------------------------------------------------
 263
 264 testcase tFileSendAutoabstractToPresentation
 265     Dim sFile$
 266     PrintLog "- File / Send / Autoabstract to Presentation"
 267     Select Case gApplication
 268     Case "WRITER"
 269         sFile$ = "htmltest.sxw"
 270     Case "MASTERDOCUMENT"
 271         sFile$ = "htmltest.sxg"
 272     Case "HTML"
 273         printlog "Not in Writer/Web!"
 274         goto endsub
 275     end select
 276
 277     PrintLog "Open file ( gTesttoolPath + writer\required\input\ + htmltest.sxw )"
 278     hFileOpenLocally(  gTesttoolPath + "writer\required\input\" + sFile$ )
 279     Kontext "Navigator"
 280     if Navigator.Exists then Navigator.Close
 281     Sleep 1
 282     Kontext "DocumentWriter"
 283     PrintLog "File / Send / Create Autoabstract To Presentation"
 284     try
 285         FileSendAutoabstractToPresentation
 286     catch
 287         Warnlog "#i38723#Unable to execute 'File -> Send -> Autoabstract to Presentation'"
 288         Call hCloseDocument
 289         goto endsub
 290     endcatch
 291
 292     Sleep 1
 293     Kontext "AutoAbstractErzeugen"
 294     PrintLog "Close upcoming dialog with 'Ok'"
 295     AutoAbstractErzeugen.OK
 296
 297     Sleep 2
 298     Kontext "DocumentImpressOutlineView"
 299     if DocumentImpressOutlineView.Exists then
 300         PrintLog "Point cursor to beginning of document"
 301         DocumentImpressOutlineView.TypeKeys "<Mod1 Home>"
 302         PrintLog "Mark text"
 303         DocumentImpressOutlineView.TypeKeys "<Shift End>"
 304         try
 305             EditCopy
 306             WaitSlot(1000)
 307             if GetClipboardText <> "Seite 1." then QAErrorlog "Wrong Outline in Impress Outlinemode"
 308         catch
 309             QAErrorlog "Edit / copy disabled. Maybe data could not be pasted correctly!"
 310         endcatch
 311     else
 312         Warnlog "- Outline in Impress not created!"
 313     endif
 314     Kontext "Navigator"
 315     hCloseDialog( Navigator, "Close,optional" )
 316     Call hCloseDocument
 317     PrintLog "Close active document"
 318
 319     hSetDocumentContext()
 320     FileClose
 321 endcase
 322 '--------------------------------------------------------------------------------------------------------------------------------------------
 323
 324 testcase tMasterDocFileSaveWithPassword
 325     Dim DokumentPfad$
 326     Dim Datei$
 327     Dim sFile$
 328     Dim sFile2$
 329
 330     Printlog "- File / Save with Password"
 331     sFile$ = "password.odm"
 332     sFile2$ = "password2.odm"
 333
 334     gApplication = "MASTERDOCUMENT"
 335     PrintLog "Open new document"
 336     Call hNewDocument
 337     PrintLog "Enter some text into document"
 338     Call wTypeKeys("This document will be saved with a password!")
 339
 340     if gUseSysDlg = True then goto endsub
 341     Datei$ = ConvertPath ( gOfficePath + "user\work\" + sFile$ )
 342     if Dir (Datei$) <> "" then kill Datei$
 343
 344     PrintLog "Choose File / Save as."
 345     FileSaveAs
 346     PrintLog "enter destination and check 'Password'"
 347     Kontext "SpeichernDlg"
 348     if Passwort.IsEnabled then
 349         Passwort.Check
 350     else
 351         Warnlog "- Not able to save with Password -> Checkbox is disabled! Maybe default-filter wrong!?"
 352         SpeichernDlg.Cancel
 353         PrintLog "if Checkbox is disabled the test stops here!"
 354         Call hCloseDocument
 355         goto endsub
 356     endif
 357
 358     Dateiname.SetText Datei$
 359     PrintLog "Save your document"
 360     Speichern.Click
 361     Sleep 1
 362     Kontext "Active"
 363     if Active.Exists (1) then Active.Yes
 364
 365     Sleep 1
 366     PrintLog "Password dialog has to come up"
 367     Kontext "PasswordFileSave"
 368     if PasswordFileSave.Exists then
 369         PrintLog "Enter your password"
 370         Password.SetText "12345"
 371         PrintLog "Re-Enter a wrong passwort"
 372         PasswordConfirm.Settext "54321"
 373         PasswordFileSave.OK
 374         Sleep 2
 375     else
 376         Warnlog "- Password-Dialog not up !"
 377     endif
 378
 379     Kontext "Active"
 380     Sleep 1
 381     PrintLog "A messagebox has to come up, warns of wrong confirmation"
 382     if Active.Exists(1) then
 383         Active.OK
 384     else
 385         Warnlog "Able to save document with wrong password"
 386     endif
 387
 388     Kontext "PasswordFileSave"
 389     if PasswordFileSave.Exists then
 390         PrintLog "Enter new password, and re-enter the same password"
 391         Password.SetText "12345"
 392         PasswordConfirm.SetText "12345"
 393         PasswordFileSave.OK
 394     else
 395         Warnlog "- Password-Dialog not up !"
 396     endif
 397
 398     Sleep 1
 399     PrintLog "Close the document"
 400     FileClose
 401     WaitSlot(2000)
 402     PrintLog "Open previous saved document"
 403     Call hFileOpen( Datei$)
 404
 405     Kontext "PasswordFileOpen"
 406     PrintLog "Enter a wrong password."
 407     if PasswordFileOpen.Exists then
 408         PasswortName.SetText "34567"
 409         PasswordFileOpen.OK
 410     else
 411         Warnlog "- Password-Dialog not up or Document couldn't be loaded!"
 412     endif
 413
 414     PrintLog "A messagebox has to come up, warns of wrong password"
 415     Kontext "Active"
 416     Sleep 1
 417     if Not Active.Exists(1) then
 418         Warnlog "Able to load document with wrong password"
 419     else
 420         Active.OK
 421     endif
 422
 423     Kontext "PasswordFileOpen"
 424     PrintLog "Close password dialog"
 425     if PasswordFileOpen.Exists then
 426         PasswordFileOpen.Cancel
 427     endif
 428
 429     Sleep 1
 430     PrintLog "File / Open again your previous saved document"
 431     Call hFileOpen( Datei$)
 432     PrintLog "Enter your password in password dialog"
 433     Kontext "PasswordFileOpen"
 434     if PasswordFileOpen.Exists then
 435         PasswortName.SetText "12345"
 436         PasswordFileOpen.OK
 437     else
 438         Warnlog "- Password-Dialog not up!"
 439     endif
 440     Sleep 1
 441
 442     Datei$ = ConvertPath ( gOfficePath + "user\work\" + sFile2$ )
 443     if Dir (Datei$) <> "" then kill Datei$
 444     PrintLog "File / Save as ..."
 445     FileSaveAs
 446     Kontext "SpeichernDlg"
 447     if Not Passwort.IsChecked = True then
 448         if gPlatgroup = "unx" then
 449             QAErrorlog "#i73968#Opening a password protected file looses focus after loading"
 450         else
 451             Warnlog "#i36015#Checkbox 'Save with password' is not checked in file-dialog !"
 452         endif
 453         Passwort.Check
 454         SpeichernDlg.Cancel
 455     else
 456         Dateiname.SetText Datei$
 457         Speichern.Click
 458         Kontext "Active"
 459         if Active.Exists(2) then Active.Yes
 460         PrintLog "Click on 'Save' in file open dialog"
 461         Kontext "PasswordFileSave"
 462         if Not PasswordFileSave.Exists(1) then
 463             Warnlog "Passworddialog is not coming up on saving document"
 464         else
 465             Password.SetText "54321"
 466             PasswordConfirm.SetText "54321"
 467             PasswordFileSave.OK
 468             PrintLog "The password dialog should come up"
 469             Sleep 1
 470             FileClose
 471             PrintLog "File / Close and open your document again"
 472             hFileOpen( Datei$)
 473             Sleep 1
 474             Kontext "PasswordFileOpen"
 475             PrintLog "Now the passwort dialog should come up"
 476             if Not PasswordFileOpen.Exists(2) then
 477                 Warnlog "Passworddialog is not coming up on reload"
 478             else
 479                 PasswortName.SetText "54321"
 480                 PasswordFileOpen.OK
 481             endif
 482         endif
 483     endif
 484     PrintLog "Close active document"
 485     Call hCloseDocument
 486 endcase
 487
 488 '-----------------------------------------------------------
 489
 490 testcase tMasterDocFileReload
 491
 492     Dim sDocumentPath as string
 493     Dim sFile as string
 494     Dim WriterFilterExtension(10) as string
 495     Dim MasterDocFilterExtension(10) as string
 496
 497     WriterFilterExtension() = hGetFilternameExtension ( "writer8" )
 498     MasterDocFilterExtension() = hGetFilternameExtension ( "writerglobal8" )
 499
 500     PrintLog "- File / Reload"
 501     sFile = "reload." & MasterDocFilterExtension(0)
 502     sDocumentPath = gOfficePath + "user\work\" + sFile
 503
 504     gApplication = "MASTERDOCUMENT"
 505
 506     PrintLog "Open new document"
 507     Call hNewDocument
 508
 509     PrintLog "Enter some text, save and close document"
 510     Call wTypeKeys("File -> Reload!")
 511     Call hFileSaveAsKill ( sDocumentPath )
 512     hUseAsyncSlot( "FileClose" )
 513
 514     Kontext
 515     if ( MessageBox.Exists( 1 ) ) then
 516         WarnLog "Messagebox after saving and closing : " + MessageBox.GetText
 517         MessageBox.Yes
 518     endif
 519
 520     PrintLog "Open previous saved document"
 521     Call hFileOpen(  sDocumentPath )
 522
 523     PrintLog "Insert a table in document"
 524     Call hTabelleEinfuegen
 525
 526     PrintLog "File / Reload"
 527     hUseAsyncSlot( "FileReload" )
 528
 529     PrintLog "Quit messagebox with 'No'"
 530     Kontext "Active"
 531     if ( Active.exists( 1 ) ) then
 532         Active.No
 533     else
 534         warnlog( "Messagebox missing" )
 535     endif
 536
 537     PrintLog "File / Reload again and quit messagebox with yes"
 538     hUseAsyncSlot( "FileReload" )
 539
 540     Kontext "Active"
 541     if ( Active.exists( 2 ) ) then
 542         Active.Yes
 543     else
 544         warnlog( "Messagebox missing" )
 545     endif
 546
 547     PrintLog "Close active document"
 548     Call hCloseDocument
 549     hDeleteFile( sDocumentPath )
 550
 551 endcase
 552
 553 '-----------------------------------------------------------
 554
 555 testcase tMasterDocFileVersions
 556
 557     Dim sFile as string
 558     Dim WriterFilterExtension(10) as string
 559     Dim MasterDocFilterExtension(10) as string
 560
 561     WriterFilterExtension() = hGetFilternameExtension ( "writer8" )
 562     MasterDocFilterExtension() = hGetFilternameExtension ( "writerglobal8" )
 563
 564     gApplication = "MASTERDOCUMENT"
 565
 566     PrintLog "- File / Versions"
 567     sFile = "kann_weg." & MasterDocFilterExtension(0)
 568
 569     PrintLog "Open new document"
 570     Call hNewDocument
 571     Call wTypeKeys ("File version")
 572
 573     PrintLog "enter some text in documet and save it"
 574     Call hFileSaveAsKill(gOfficePath + "user\work\" + sFile )
 575
 576     try
 577         PrintLog "Choose File / Versions"
 578         FileVersions
 579     catch
 580         Warnlog "- File / Versions not accessible!"
 581         goto endsub
 582     endcatch
 583
 584     Kontext "Versionen"
 585     if ( Versionen.exists( 2 ) ) then
 586
 587         Call DialogTest ( Versionen )
 588         Speichern.Click
 589
 590         PrintLog "In Version-dialog click 'Save New Version'"
 591         Kontext "VersionskommentarEingeben"
 592         if ( VersionskommentarEingeben.exists( 1 ) ) then
 593             Call DialogTest ( VersionskommentarEingeben )
 594
 595             PrintLog "Cancel dialog 'Insert version comment'"
 596             VersionskommentarEingeben.Cancel
 597         else
 598             warnlog( "Dialog <VersionskommentarEingeben> is not available" )
 599         endif
 600
 601         Kontext "Versionen"
 602         PrintLog "Close dialog"
 603         Versionen.Close()
 604     else
 605         warnlog( "Dialog <Versionen> is not available" )
 606     endif
 607
 608     PrintLog "Close active document"
 609     Call hCloseDocument
 610
 611 endcase
 612
 613 '-----------------------------------------------------------
 614
 615 testcase tMasterDocFileSendCreateHTMLDocument
 616
 617     PrintLog "- File / Send / Create HTML-Dokument"
 618
 619     gApplication = "MASTERDOCUMENT"
 620
 621     PrintLog "Open new document"
 622     Call hNewDocument
 623
 624     PrintLog "Choose File / Send / Create HTML-Document"
 625     FileSendCreateHTMLDocument
 626
 627     PrintLog "Cancel Filedialog"
 628     Kontext "SendHTMLDocument"
 629     if ( SendHTMLDocument.exists( 2 ) ) then
 630         SendHTMLDocument.Cancel
 631
 632         Kontext "Active"
 633         if Active.Exists( 1 ) then
 634             warnlog( "Unexpected messgebox" & Active.getText() )
 635             Active.OK
 636         endif
 637     else
 638         warnlog( "Dialog <SendHTMLDocument> is not available" )
 639     endif
 640
 641     PrintLog "Close active document"
 642     Call hCloseDocument
 643
 644 endcase
 645
 646 '-----------------------------------------------------------
 647
 648 testcase tMasterDocFileSendOutlineToPresentation
 649
 650     PrintLog "- File / Send / Outline to Presentation"
 651
 652     Dim sFile as string : sFile = "htmltest.sxg"
 653
 654     gApplication = "MASTERDOCUMENT"
 655
 656     hFileOpenLocally(  gTesttoolPath + "writer\required\input\" + sFile )
 657
 658     Kontext "Navigator"
 659     if ( Navigator.Exists ) then
 660         Navigator.Close
 661         WaitSlot()
 662     endif
 663
 664     Kontext "DocumentWriter"
 665     PrintLog "File / Send / Outline to presentation"
 666     try
 667         FileSendOutlineToPresentation
 668     catch
 669         Warnlog "#i38723#Unable to execute 'File -> Send -> Outline to Presentation'"
 670         Call hCloseDocument
 671         goto endsub
 672     endcatch
 673
 674     Kontext "DocumentImpressOutlineView"
 675     if ( DocumentImpressOutlineView.Exists( 2 ) ) then
 676         DocumentImpressOutlineView.TypeKeys "<Mod1 Home>"
 677         DocumentImpressOutlineView.TypeKeys "<Shift End>"
 678         hUseAsyncSlot( "EditCopy" )
 679         if ( GetClipboardText <> "Seite 1." ) then
 680             QAErrorlog "Wrong Outline in Impress Outlinemode"
 681         endif
 682     else
 683         WarnLog "Outlinemode comes not up!"
 684     endif
 685
 686     Kontext "Navigator"
 687     hCloseDialog( Navigator, "Close,optional" )
 688
 689     PrintLog "Close documents"
 690     hFileCloseAll()
 691
 692 endcase
 693
 694 '-----------------------------------------------------------
 695
 696 testcase tMasterDocFileSendOutlineToClipboard
 697
 698     gApplication = "MASTERDOCUMENT"
 699     Dim sFile as string : sFile = "htmltest.sxg"
 700
 701     PrintLog "- File / Send / Outline to Clipboard"
 702     hFileOpenLocally(  gTesttoolPath + "writer\required\input\" + sFile )
 703
 704     PrintLog "File / Send / Outline to Clipboard"
 705     try
 706         FileSendOutlineToClipboard
 707     catch
 708         Warnlog "#i38723#Unable to execute 'File -> Send -> Outline to Clipboard'"
 709         Call hCloseDocument
 710         goto endsub
 711     endcatch
 712
 713     PrintLog "Close active document"
 714     Call hCloseDocument
 715
 716     PrintLog "Open new document"
 717     Call hNewDocument
 718
 719     PrintLog "Paste outline in new document"
 720     hUseAsyncSlot( "EditPaste" )
 721     Call wTypeKeys("<Up>", 6)
 722     Call wTypeKeys("<Home><Shift End>")
 723     hUseAsyncSlot( "EditCopy" )
 724     if ( GetClipboardText <> "Seite 1." ) then
 725         QAErrorlog "Wrong Outline in Impress Outlinemode"
 726     endif
 727
 728     PrintLog "Close active document"
 729     Call hCloseDocument
 730     gApplication = "WRITER"
 731
 732 endcase
 733
 734 '-----------------------------------------------------------
 735
 736 testcase tMasterDocFileSendCreateAutoabstract
 737
 738     gApplication = "MASTERDOCUMENT"
 739     Dim sFile as string : sFile = "htmltest.sxg"
 740
 741     PrintLog "- File / Send / Create Autoabstract"
 742     hFileOpenLocally(  gTesttoolPath + "writer\required\input\" + sFile )
 743
 744     Kontext "Navigator"
 745     hCloseDialog( Navigator, "Close,optional" )
 746
 747     Kontext "DocumentWriter"
 748     PrintLog "File / Send / Create Autoabstract"
 749     try
 750         FileSendCreateAutoabstract
 751     catch
 752         Warnlog "#i38723#Unable to execute 'File -> Send -> Create Autoabstract'"
 753         Call hCloseDocument
 754         goto endsub
 755     endcatch
 756
 757     PrintLog "Close upcoming dialog with 'Ok"
 758     Kontext "AutoAbstractErzeugen"
 759     if ( AutoAbstractErzeugen.exists( 2 ) ) then
 760
 761         AutoAbstractErzeugen.OK()
 762
 763         Call wTypeKeys("<Home><Up>", 10)
 764         Call wTypeKeys("<Shift End>")
 765
 766         hUseAsyncSlot( "EditCopy" )
 767         if GetClipboardText <> "Seite 1." then
 768             QAErrorlog "Wrong Outline in Impress Outlinemode"
 769         endif
 770     else
 771         warnlog( "Dialog <AutoAbstractErzeugen> is not available" )
 772     endif
 773
 774     Kontext "Navigator"
 775     hCloseDialog( Navigator, "Close,optional" )
 776
 777     PrintLog "Close documents"
 778     hFileCloseAll()
 779     gApplication = "WRITER"
 780
 781 endcase
 782
 783 '-----------------------------------------------------------
 784
 785 testcase tMasterDocFileSendAutoabstractToPresentation
 786
 787     gApplication = "MASTERDOCUMENT"
 788     Dim sFile as string : sFile = "htmltest.sxg"
 789
 790     PrintLog "- File / Send / Autoabstract to Presentation"
 791     PrintLog "Open file ( gTesttoolPath + writer\required\input\ + htmltest.sxw )"
 792     hFileOpenLocally(  gTesttoolPath + "writer\required\input\" + sFile )
 793
 794     Kontext "Navigator"
 795     hCloseDialog( Navigator, "Close,optional" )
 796
 797     Kontext "DocumentWriter"
 798     PrintLog "File / Send / Create Autoabstract To Presentation"
 799     try
 800         FileSendAutoabstractToPresentation
 801     catch
 802         Warnlog "#i38723#Unable to execute 'File -> Send -> Autoabstract to Presentation'"
 803         Call hCloseDocument
 804         goto endsub
 805     endcatch
 806
 807     Kontext "AutoAbstractErzeugen"
 808     if ( AutoAbstractErzeugen.exists( 1 ) ) then
 809         PrintLog "Close upcoming dialog with 'Ok'"
 810         AutoAbstractErzeugen.OK
 811     else
 812         warnlog( "Dialog <AutoAbstractErzeugen> is not available" )
 813     endif
 814
 815     Kontext "DocumentImpressOutlineView"
 816     if ( DocumentImpressOutlineView.Exists( 2 ) ) then
 817
 818         PrintLog "Point cursor to beginning of document"
 819         DocumentImpressOutlineView.TypeKeys "<Mod1 Home>"
 820
 821         PrintLog "Mark text"
 822         DocumentImpressOutlineView.TypeKeys "<Shift End>"
 823         try
 824             EditCopy
 825             WaitSlot(1000)
 826             if GetClipboardText <> "Seite 1." then QAErrorlog "Wrong Outline in Impress Outlinemode"
 827         catch
 828             QAErrorlog "Edit / copy disabled. Maybe data could not be pasted correctly!"
 829         endcatch
 830     else
 831         Warnlog "- Outline in Impress not created!"
 832     endif
 833
 834     Kontext "Navigator"
 835     hCloseDialog( Navigator, "Close,optional" )
 836
 837     Call hCloseDocument
 838     PrintLog "Close active document"
 839
 840     hSetDocumentContext()
 841     FileClose
 842     gApplication = "WRITER"
 843
 844 endcase
 845 '-------------------------------------------------------------------------------