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