testautomation/graphics/optional/includes/global/g_load_save.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: g_load_save.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-08-28 11:42:51 $
  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 : wolfram.garten@sun.com
  35 '*
  36 '* short description :
  37 '*
  38 '**************************************************************************************
  39 ' #1 tFileOpenSaveEtc
  40 ' #1 tFileProperties
  41 ' #1 tFilePassword52
  42 ' #1 tFileOpenImport
  43 ' #1 tTestDXF255CharBug
  44 ' #1 tDeletedTemplate
  45 ' #1 tSaveLoadLayoutOLE
  46 ' #1 tSaveLoadLayoutEmpty
  47 ' #1 tSaveLoadLayoutText
  48 ' #1 tSaveLoadLayoutOutline
  49 ' #1 tSaveLoadLayoutPicture
  50 ' #1 tSaveLoadLayoutChart
  51 ' #1 tSaveLoadLayoutSpreadsheet
  52 '\*************************************************************************************
  53 testcase tFileOpenSaveEtc
  54    Dim Dokument$
  55    Dim Dokument2$
  56
  57       Dokument$ = ConvertPath ( gOfficePath + "user\work\test1")
  58       Dokument2$ = ConvertPath ( gOfficePath + "user\work\test1_2")
  59
  60     if (gApplication = "IMPRESS") then
  61         ExtensionString = "odp"
  62     else
  63         ExtensionString = "odg"
  64     end if
  65
  66    '/// delete previous created documents: 'user\\work\\test1*.od?' ///'
  67    if Dir (Dokument$ + ".odp") <> "" then kill (Dokument$ + ".odp")
  68    if Dir (Dokument2$ + ".odg") <> "" then kill (Dokument2$ + ".odg")
  69
  70    '/// open application ///'
  71    hNewDocument
  72    gMouseclick 90,90
  73    '/// create a textframe with content ///'
  74    Call hTextrahmenErstellen ( "This is a test",20,20,40,30 )
  75    '/// save file as 'test1' ///'
  76    hFileSaveAsKill (Dokument$ + "." + ExtensionString)
  77    Sleep 10
  78    '/// close Document ///'
  79    hCloseDocument
  80    printlog "- Document Saved and Closed"
  81
  82    '/// load document 'test1' ///'
  83    hFileOpen (Dokument$ + "." + ExtensionString)
  84
  85    Sleep 10
  86    '/// close Document ///'
  87    hCloseDocument
  88    printlog "- document Loaded and closed"
  89    Sleep 10
  90    '/// load document 'test1' ///'
  91    hFileOpen (Dokument$ + "." + ExtensionString)
  92    ' check if the document is writable
  93    if fIsDocumentWritable = false then
  94       ' make the document writable and check if it's succesfull
  95       if fMakeDocumentWritable = false then
  96          warnlog "The document can't be make writeable. Test stopped."
  97          goto endsub
  98       endif
  99    endif
 100    Sleep 10
 101    gMouseclick 90,90
 102    '/// create another textbox with content ///'
 103    Call hTextrahmenerstellen ( "Change",60,60,80,80 )
 104    '/// File->Close needn't work, just say CANCEL to the question about saving changes! ///'
 105    FileClose
 106    Kontext ' message about 'something changed should i [overwrite discard cancel]?'
 107    if Messagebox.exists (5) then
 108       printlog "2:"+messagebox.gettext
 109       Messagebox.Cancel
 110    else
 111       Warnlog "Mesagebox is missing :-("
 112    endif
 113    printlog "- Document loaded, changed and closed discarding all changes"
 114
 115    printlog "- Last version"
 116    try
 117        FileReload                                                               '/// File Reload ///'
 118    catch
 119        kontext "documentimpress"
 120        try
 121            FileReload                                                           '/// File Reload ///'
 122        catch
 123            warnlog "Damn reload ?? Why ? BREAKPOINT! File reload doesn't work. Create new object and try again :-("
 124        endcatch
 125    endcatch
 126    Kontext
 127    Messagebox.Yes
 128    Sleep 10
 129    gMouseDoubleClick 70,70
 130    hTypeKeys "<Down>", 3
 131    hTypeKeys "<SHIFT LEFT>",10
 132    hTypeKeys "<MOD1 C>"
 133    Sleep 1
 134    if GetClipboardText = "Change" then Warnlog "- Last version not loaded. Changes in the document still in."
 135    printlog "- Change document, save it under different name"
 136    Kontext "DocumentImpress"
 137    Call hTextrahmenErstellen ("Change2",10,10,50,20 )           '/// new textbox ///'
 138    gMouseclick 90,90
 139    sleep 1
 140       FileSaveAs
 141       Kontext "SpeichernDlg"
 142       Dateiname.SetText Dokument2$
 143       Speichern.Click
 144       kontext "AlienWarning"
 145       if AlienWarning.exists(5) then
 146          warnlog "#i41983# Alien Warning on export not allowed"
 147          AlienWarning.OK
 148       endif
 149       Kontext "Messagebox"
 150       if Messagebox.Exists(2) then Messagebox.Yes
 151    Sleep 3
 152    FileClose                                                            '/// Close document ///'
 153    sleep 10
 154       Kontext "Messagebox"
 155       if Messagebox.Exists Then
 156           Warnlog "- Document saved, but Msgbox appeared, even no changes were made: " + Messagebox.GetText
 157           Messagebox.Yes
 158       end if
 159       sleep 2
 160       printlog "- Loading write protected file"
 161       FileOpen                                                          '/// Open write protected file ///'
 162       Kontext "OeffnenDlg"
 163       Dateiname.SetText (Dokument2$ + "." + ExtensionString)
 164       NurLesen.Check
 165       Oeffnen.Click
 166    Sleep 10
 167    ' check if the document is writable
 168    try
 169       Call hTextrahmenErstellen ( "Hello",85,85,95,95 )                 '/// attempt to create a textbox ///'
 170       hTypeKeys "<SHIFT LEFT>",5
 171       hTypeKeys "<MOD1 C>"
 172       sleep 1
 173       if GetClipboardText = "Hello" then Warnlog "Write protected document could be edited"
 174    catch
 175       Printlog "- Write protected document could not be edited"
 176    endcatch
 177    sleep 5
 178    FileClose                                                            '/// Close document ///'
 179
 180 endcase 'tFileOpenSaveEtc
 181 '--------------------------------------------------------
 182 testcase tFileProperties
 183
 184     qaerrorlog "#i88163#, File/properties/user defined fields get mixed up."
 185     goto endsub
 186     Call hNewDocument
 187     Call hTextrahmenErstellen ("This is a document to test the Menupoint in File/Properties",30,30,60,40)
 188
 189     if (gApplication = "IMPRESS") then
 190         ExtensionString = "odp"
 191     else
 192         ExtensionString = "odg"
 193     end if
 194
 195     FileProperties
 196
 197     Kontext
 198     active.SetPage TabDokumentinfo
 199     Kontext "TabDokumentinfo"
 200     Titel.SetText "Properties"
 201     Thema.SetText "Documentproperties"
 202     Schluesselworte.SetText "None"
 203
 204     qaerrorlog "#i95523#"
 205     'Kontext
 206     'active.SetPage TabBenutzer
 207     'Kontext "TabBenutzer"
 208     'Info2.SetText "Thorsten Peters"
 209
 210     'Infofelder.Click
 211     'Kontext "InfonamenBearbeiten"
 212     'Namen2.SetText "Name"
 213     'InfonamenBearbeiten.OK
 214     'sleep 2
 215     Kontext
 216     active.SetPage TabInternet
 217     Kontext "TabInternet"
 218     RefreshThisDocument.Check
 219
 220     TabInternet.OK
 221
 222     hFileSaveAsKill ConvertPath (gOfficePath + "user\work\eigen." & ExtensionString)
 223
 224     FileClose
 225     Kontext "Active"
 226     if Active.Exists(2) then Active.Yes
 227
 228         PrintLog "- File / Properties  compare"
 229         Sleep 2
 230         hFileOpen ConvertPath (gOfficePath + "user\work\eigen." + ExtensionString)
 231
 232         ' check if the document is writable
 233         if fIsDocumentWritable = false then
 234             ' make the document writable and check if it's succesfull
 235             if fMakeDocumentWritable = false then
 236                 warnlog "The document can't be make writeable. Test stopped."
 237                 goto endsub
 238             endif
 239         endif
 240         FileProperties
 241         Kontext
 242         active.SetPage TabDokumentinfo
 243         Kontext "TabDokumentinfo"
 244         if Titel.GetText <> "Properties" then Warnlog "Description / Titel is wrong"
 245             if Thema.GetText <> "Documentproperties" then Warnlog "Description / Thema is wrong"
 246                 if Schluesselworte.GetText <> "None" then Warnlog "Description / Keywords is wrong"
 247
 248                     qaerrorlog "#i95523#"
 249                     'Kontext
 250                     'active.SetPage TabBenutzer
 251                     'Kontext "TabBenutzer"
 252                     'if Info2.GetText <> "Thorsten Peters" then Warnlog "User Defined / Info2 is wrong"
 253
 254                     'Infofelder.Click
 255                     'sleep 2
 256                     'Kontext "InfonamenBearbeiten"
 257                     'if Namen2.GetText <> "Name" then Warnlog "Edit Field Names / Info2 is wrong"
 258                     'InfonamenBearbeiten.OK
 259
 260                     Kontext
 261                     active.SetPage TabInternet
 262                     Kontext "TabInternet"
 263                     if RefreshThisDocument.IsChecked = FALSE then Warnlog "Internet / 'Refresh this document' is not checked"
 264
 265                         TabInternet.Close
 266
 267                         Call hCloseDocument
 268 endcase
 269
 270 '********************************************************************************************
 271
 272 testcase tFilePassword52
 273     Dim Datei$
 274     dim i as integer
 275     dim x as integer
 276     dim y as integer
 277     dim sExt() as string
 278
 279     sExt = array("d","a")
 280     '   passwo52.sd d-preas a-draw
 281     for i = 0 to 1
 282         Datei$ = ConvertPath ( gTesttoolPath + "graphics\required\input\passwo52.sd"+sExt(i) )
 283         hFileOpen(Datei$)
 284         sleep 2
 285         Kontext "passwordFileOpen"
 286         if passwordFileOpen.exists(5) then
 287             PasswortName.SetText "12345"
 288             passwordFileOpen.OK
 289             Printlog "Ok, password dialog came up :-) for file : '" + datei$ + "'"
 290         else
 291             Warnlog "No password dialog came up :-( for file : '" + datei$ + "'"
 292         endif
 293         Kontext "Messagebox"
 294         if Messagebox.Exists(2) then
 295             Warnlog "messagebox ?: '" + Messagebox.GetText + "'"
 296         endif
 297         hCloseDocument
 298     next i
 299 endcase
 300
 301 '********************************************************************************************
 302
 303 testcase tFileOpenImport
 304     dim q as integer
 305     call hNewDocument
 306     FileOpen
 307     Kontext "OeffnenDlg"
 308     Dateiname.SetText (ConvertPath (gTesttoolpath + "graphics\required\input\imsusmap.cgm"))
 309     Oeffnen.Click
 310     Sleep 2
 311     ' check if the document is writable
 312     if fIsDocumentWritable = false then
 313         ' make the document writable and check if it's succesfull
 314         if fMakeDocumentWritable = false then
 315             warnlog "The document can't be make writeable. Test stopped."
 316             goto endsub
 317         endif
 318     endif
 319     kontext "DocumentImpress"
 320     if DocumentImpress.exists(5) then
 321         DocumentImpress.TypeKeys ("<Tab>")
 322     else
 323         warnlog "Not loaded in impress"
 324     endif
 325     try
 326         ContextPositionAndSize
 327         kontext
 328         messagebox.setpage TabPositionAndSize
 329         sleep 1
 330         TabPositionAndSize.Close
 331     catch
 332         warnlog "Documents of Type 'ComputerGraphicsMetafile' can't get loaded :-("
 333     endcatch
 334     Call hCloseDocument
 335     if (gApplication="DRAW") then
 336         Call hCloseDocument
 337     endif
 338 endcase
 339
 340 '********************************************************************************************
 341 testcase tTestDXF255CharBug
 342
 343 '/// tries to load a DXF-document which has a string-leght of 255 characters. ///'
 344 dim q as integer
 345    call hNewDocument
 346    InsertGraphicsFromFile                                                               '/// insert graphic  ///'
 347    sleep 1
 348    kontext "Active"
 349    sleep 1
 350     if Active.Exists Then
 351        Active.OK
 352     end if
 353     sleep 1
 354    Kontext "GrafikEinfuegenDlg"
 355       sleep 2
 356       '///  Dateiname.SetText (ConvertPath (gTesttoolpath + "graphics\required\input\255chars.dxf")) ///'
 357       Dateiname.SetText (ConvertPath (gTesttoolpath + "graphics\required\input\255chars.dxf"))
 358       Oeffnen.Click
 359    Sleep 2
 360
 361    if gApplication = "DRAW" then
 362       Kontext "Documentdraw"
 363       if Documentdraw.exists(5) then
 364          Documentdraw.TypeKeys ("<Tab>")
 365       else
 366          warnlog "Not loaded in draw"
 367       endif
 368    else '(Impress)
 369       Kontext "DocumentImpress"
 370       if DocumentImpress.exists(5) then
 371          DocumentImpress.TypeKeys ("<Tab>")
 372       else
 373          warnlog "Not loaded in impress"
 374       endif
 375    endif
 376
 377    try
 378       ContextPositionAndSize
 379       kontext
 380       messagebox.setpage TabPositionAndSize
 381       sleep 1
 382       TabPositionAndSize.Close
 383    catch
 384       warnlog "DXF-Document could not be loaded :-("
 385    endcatch
 386    Call hCloseDocument
 387
 388 endcase 'tTestDXF255CharBug
 389 '********************************************************************************************
 390 testcase tDeletedTemplate
 391
 392     dim i as integer
 393     dim Dokument1$
 394     dim Dokument2$
 395     dim SavedActiveMessage as string
 396     dim found as boolean
 397
 398     if (gApplication = "IMPRESS") then
 399         ExtensionString = "odp"
 400     else
 401         ExtensionString = "odg"
 402     end if
 403
 404     Dokument1$ = ConvertPath ( gOfficePath + "user\work\test1." & ExtensionString)
 405     Dokument2$ = ConvertPath ( gOfficePath + "user\work\test2." & ExtensionString)
 406
 407
 408
 409    '/// delete previous created documents: 'user\\work\\test*.odp' ///'
 410    if Dir (Dokument1$) <> "" then kill Dokument1$
 411    if Dir (Dokument2$) <> "" then kill Dokument2$
 412
 413    '/// open application ///'
 414    hNewDocument
 415    gMouseclick 90,90
 416    '/// create a textframe with content ///'
 417    Call hTextrahmenErstellen ( "This is the first file",20,20,40,30 )
 418    '/// save file as 'test1.odp' ///'
 419    hFileSaveAsKill (Dokument1$)
 420    Sleep 10
 421    '/// close Document ///'
 422    hCloseDocument
 423    printlog "-  Document 'test1.odp' Saved and Closed"
 424
 425    '/// open application again ///'
 426    hNewDocument
 427    gMouseclick 90,90
 428    '/// create another textframe with content ///'
 429    Call hTextrahmenErstellen ( "This is the second file",20,20,40,30 )
 430    '/// save file as 'test2.odp' ///'
 431    hFileSaveAsKill (Dokument2$)
 432    Sleep 10
 433    '/// close Document ///'
 434    hCloseDocument
 435    printlog "-  Document 'test2.odp' Saved and Closed"
 436
 437    '/// Delete the first file ///'
 438    try
 439        kill Dokument1$
 440        Printlog "   Correctly deleted the file: " + Dokument1$
 441    catch
 442        warnlog "Could not delete the file: " + Dokument1$
 443    endcatch
 444
 445    '/// File => New => Presentation ///'
 446    FileAutopilotPresentation                            '/// new document-autopilot ///'
 447       Kontext "AutopilotPraesentation1"
 448       sleep 5
 449       Existingpresentation.Check
 450       sleep 5
 451       kontext "active"
 452       if active.exists then
 453          SavedActiveMessage = Active.GetText
 454          QaErrorLog "Message: " + SavedActiveMessage
 455          active.ok
 456          Kontext "AutopilotPraesentation1"
 457          if Existinglist.GetSelText = "test1.odp" then
 458             warnlog "   The deleted File was found. Messagebox said: " + SavedActiveMessage
 459          endif
 460          SavedActiveMessage = ""
 461       endif
 462       Kontext "AutopilotPraesentation1"
 463       Existinglist.TypeKeys "<HOME>"
 464       sleep 5
 465       found = false
 466       for i = 1 to Existinglist.GetItemCount
 467           kontext "active"
 468           if active.exists then
 469              SavedActiveMessage = Active.GetText
 470              active.ok
 471           endif
 472           Kontext "AutopilotPraesentation1"
 473           if Existinglist.GetSelText = "test1.odp" then
 474              found = true
 475              if SavedActiveMessage <> "" then
 476                 warnlog "   The deleted File was found. Messagebox said: " + SavedActiveMessage
 477              else
 478                 warnlog "   The deleted File was found. However without any messagebox."
 479              endif
 480           endif
 481           Existinglist.TypeKeys "<DOWN>"
 482           sleep 5
 483       next i
 484       if found = true then warnlog "   An error-message showed up. Eventually a result of '138498'"
 485       AutopilotPraesentation1.Cancel
 486    Sleep 2
 487    '/// Delete the second file ///'
 488     try
 489         kill Dokument2$
 490         Printlog "   Correctly deleted the file: " + Dokument2$
 491     catch
 492         warnlog "Could not delete the file: " + Dokument2$
 493     endcatch
 494
 495 endcase 'tDeletedTemplate
 496 '****************************************************************************************************
 497
 498 testcase tSaveLoadLayoutEmpty
 499     Dim NewFileDir as String
 500
 501     NewFileDir = ConvertPath (gOfficePath + "user\work\LayoutTest\")
 502
 503     printlog "   Will try to create the directory: " + NewFileDir
 504     app.mkdir NewFileDir
 505
 506
 507     gApplication = "IMPRESS"
 508     Call hNewDocument
 509
 510     printlog "Choose and Insert an empty Layout."
 511     FormatModifyPage
 512     sleep 1
 513     kontext "Tasks"
 514     LayoutsPreview.TypeKeys "<HOME>"
 515     kontext "Pagelayout_UndoDeleteWarning"
 516     if Pagelayout_UndoDeleteWarning.exists then
 517         Pagelayout_UndoDeleteWarning.ok
 518     endif
 519     kontext "Tasks"
 520     LayoutsPreview.TypeKeys "<RETURN>"
 521     sleep (5)
 522
 523     call fSaveLoadAllFormats (NewFileDir)   'Runs the Function below.
 524
 525     printlog "   Will try to delete the directory: " + NewFileDir
 526     app.rmDir NewFileDir
 527
 528 endcase 'tSaveLoadLayoutEmpty
 529
 530 '****************************************************************************************************
 531
 532 testcase tSaveLoadLayoutOLE
 533     qaerrorlog "not yet ready"
 534     goto endsub
 535     Dim NewFileDir as String
 536
 537     NewFileDir = ConvertPath (gOfficePath + "user\work\LayoutTest\")
 538
 539     printlog "   Will try to create the directory: " + NewFileDir
 540     app.mkdir NewFileDir
 541
 542
 543     gApplication = "IMPRESS"
 544     Call hNewDocument
 545
 546     printlog "Choose and Insert an Layout with an OLE."
 547     FormatModifyPage
 548     sleep 1
 549     kontext "Tasks"
 550     LayoutsPreview.TypeKeys "<HOME>"
 551     kontext "Pagelayout_UndoDeleteWarning"
 552     if Pagelayout_UndoDeleteWarning.exists then
 553         Pagelayout_UndoDeleteWarning.ok
 554     endif
 555     kontext "Tasks"
 556     LayoutsPreview.TypeKeys ("<RIGHT>",12)
 557     sleep (1)
 558     LayoutsPreview.TypeKeys ("<Return>")
 559     sleep (1)
 560     hTypeKeys ("<TAB><TAB><TAB>")
 561     hTypeKeys ("<Return>")
 562     try
 563         sleep (2)
 564         kontext "OLEObjektInsert"
 565         sleep (1)
 566         OLEObjektInsert.Cancel
 567         Printlog "Inserted a layout with an 'Insert OLE-Object'-frame. Correct."
 568     catch
 569         warnlog "Ole wasn't selected :-("
 570         CALL hCloseDocument
 571         Goto Endsub
 572     endcatch
 573     sleep (5)
 574
 575     call fSaveLoadAllFormats (NewFileDir)   'Runs the Function below.
 576
 577     printlog "   Will try to delete the directory: " + NewFileDir
 578     app.rmDir ConvertPath (gOfficePath + "user\work\LayoutTest\")' NewFileDir
 579
 580 endcase 'tSaveLoadLayoutOLE
 581
 582 '****************************************************************************************************
 583
 584 testcase tSaveLoadLayoutText
 585     qaerrorlog "not yet ready"
 586     goto endsub
 587     Dim NewFileDir as String
 588
 589     NewFileDir = ConvertPath (gOfficePath + "user\work\LayoutTest\")
 590
 591     printlog "   Will try to create the directory: " + NewFileDir
 592     app.mkdir NewFileDir
 593
 594
 595     gApplication = "IMPRESS"
 596     Call hNewDocument
 597
 598     printlog "Choose and Insert an Layout with a Text-field."
 599     FormatModifyPage
 600     sleep 1
 601     kontext "Tasks"
 602     LayoutsPreview.TypeKeys "<HOME>"
 603     kontext "Pagelayout_UndoDeleteWarning"
 604     if Pagelayout_UndoDeleteWarning.exists then
 605         Pagelayout_UndoDeleteWarning.ok
 606     endif
 607     kontext "Tasks"
 608     LayoutsPreview.TypeKeys ("<RIGHT>")
 609     sleep (1)
 610     LayoutsPreview.TypeKeys ("<Return>")
 611     sleep (1)
 612     hTypeKeys ("<TAB><TAB><TAB>")
 613     hTypeKeys ("<Return>")
 614     hTypeKeys ("<ESCAPE>")
 615     '       LayoutsPreview.TypeKeys "<RETURN>"
 616     sleep (5)
 617
 618     call fSaveLoadAllFormats (NewFileDir)   'Runs the Function below.
 619
 620     printlog "   Will try to delete the directory: " + NewFileDir
 621     app.rmDir ConvertPath (gOfficePath + "user\work\LayoutTest\")' NewFileDir
 622
 623 endcase 'tSaveLoadLayoutText
 624
 625 '****************************************************************************************************
 626
 627 testcase tSaveLoadLayoutOutline
 628     qaerrorlog "not yet ready"
 629     goto endsub
 630     Dim NewFileDir as String
 631
 632     NewFileDir = ConvertPath (gOfficePath + "user\work\LayoutTest\")
 633
 634     printlog "   Will try to create the directory: " + NewFileDir
 635     app.mkdir NewFileDir
 636
 637
 638     gApplication = "IMPRESS"
 639     Call hNewDocument
 640
 641     printlog "Choose and Insert an Layout with a Outline-field."
 642     FormatModifyPage
 643     sleep 1
 644     kontext "Tasks"
 645     LayoutsPreview.TypeKeys "<HOME>"
 646     kontext "Pagelayout_UndoDeleteWarning"
 647     if Pagelayout_UndoDeleteWarning.exists then
 648         Pagelayout_UndoDeleteWarning.ok
 649     endif
 650     kontext "Tasks"
 651     LayoutsPreview.TypeKeys ("<RIGHT>",3)
 652     sleep (1)
 653     LayoutsPreview.TypeKeys ("<Return>")
 654     sleep (1)
 655     hTypeKeys ("<TAB><TAB><TAB>")
 656     hTypeKeys ("<Return>")
 657     hTypeKeys ("<ESCAPE>")
 658     sleep (5)
 659
 660     call fSaveLoadAllFormats (NewFileDir)   'Runs the Function below.
 661
 662     printlog "   Will try to delete the directory: " + NewFileDir
 663     app.rmDir ConvertPath (gOfficePath + "user\work\LayoutTest\")' NewFileDir
 664
 665 endcase 'tSaveLoadLayoutOutline
 666
 667 '****************************************************************************************************
 668
 669 testcase tSaveLoadLayoutPicture
 670     qaerrorlog "not yet ready"
 671     goto endsub
 672     Dim NewFileDir as String
 673
 674     NewFileDir = ConvertPath (gOfficePath + "user\work\LayoutTest\")
 675
 676     printlog "   Will try to create the directory: " + NewFileDir
 677     app.mkdir NewFileDir
 678
 679
 680     gApplication = "IMPRESS"
 681     Call hNewDocument
 682
 683     printlog "Choose and Insert an Layout with a Graphic-field."
 684     FormatModifyPage
 685     sleep 1
 686     kontext "Tasks"
 687     LayoutsPreview.TypeKeys "<HOME>"
 688     kontext "Pagelayout_UndoDeleteWarning"
 689     if Pagelayout_UndoDeleteWarning.exists then
 690         Pagelayout_UndoDeleteWarning.ok
 691     endif
 692     kontext "Tasks"
 693     LayoutsPreview.TypeKeys ("<RIGHT>",8)
 694     sleep (1)
 695     LayoutsPreview.TypeKeys ("<Return>")
 696     sleep (1)
 697     hTypeKeys ("<TAB><TAB><TAB>")
 698     hTypeKeys ("<Return>")
 699     hTypeKeys ("<ESCAPE>")
 700     sleep (5)
 701
 702     call fSaveLoadAllFormats (NewFileDir)   'Runs the Function below.
 703
 704     printlog "   Will try to delete the directory: " + NewFileDir
 705     app.rmDir ConvertPath (gOfficePath + "user\work\LayoutTest\")' NewFileDir
 706
 707 endcase 'tSaveLoadLayoutPicture
 708
 709 '****************************************************************************************************
 710
 711 testcase tSaveLoadLayoutChart
 712     qaerrorlog "not yet ready"
 713     goto endsub
 714     Dim NewFileDir as String
 715
 716     NewFileDir = ConvertPath (gOfficePath + "user\work\LayoutTest\")
 717
 718     printlog "   Will try to create the directory: " + NewFileDir
 719     app.mkdir NewFileDir
 720
 721
 722     gApplication = "IMPRESS"
 723     Call hNewDocument
 724
 725     printlog "Choose and Insert an Layout with a Chart-field."
 726     FormatModifyPage
 727     sleep 1
 728     kontext "Tasks"
 729     LayoutsPreview.TypeKeys "<HOME>"
 730     kontext "Pagelayout_UndoDeleteWarning"
 731     if Pagelayout_UndoDeleteWarning.exists then
 732         Pagelayout_UndoDeleteWarning.ok
 733     endif
 734     kontext "Tasks"
 735     LayoutsPreview.TypeKeys ("<RIGHT>",6)
 736     sleep (1)
 737     LayoutsPreview.TypeKeys ("<Return>")
 738     sleep (1)
 739     hTypeKeys ("<TAB><TAB><TAB>")
 740     hTypeKeys ("<Return>")
 741     hTypeKeys ("<ESCAPE>")
 742     sleep (5)
 743
 744     call fSaveLoadAllFormats (NewFileDir)   'Runs the Function below.
 745
 746     printlog "   Will try to delete the directory: " + NewFileDir
 747     app.rmDir ConvertPath (gOfficePath + "user\work\LayoutTest\")' NewFileDir
 748
 749 endcase 'tSaveLoadLayoutChart
 750
 751 '****************************************************************************************************
 752
 753 testcase tSaveLoadLayoutSpreadsheet
 754     qaerrorlog "not yet ready"
 755     goto endsub
 756     Dim NewFileDir as String
 757
 758     NewFileDir = ConvertPath (gOfficePath + "user\work\LayoutTest\")
 759
 760     printlog "   Will try to create the directory: " + NewFileDir
 761     app.mkdir NewFileDir
 762
 763
 764     gApplication = "IMPRESS"
 765     Call hNewDocument
 766
 767     printlog "Choose and Insert an Layout with a Spreadsheet-field."
 768     FormatModifyPage
 769     sleep 1
 770     kontext "Tasks"
 771     LayoutsPreview.TypeKeys "<HOME>"
 772     kontext "Pagelayout_UndoDeleteWarning"
 773     if Pagelayout_UndoDeleteWarning.exists then
 774         Pagelayout_UndoDeleteWarning.ok
 775     endif
 776     kontext "Tasks"
 777     LayoutsPreview.TypeKeys ("<RIGHT>",7)
 778     sleep (1)
 779     LayoutsPreview.TypeKeys ("<Return>")
 780     sleep (1)
 781     hTypeKeys ("<TAB><TAB><TAB>")
 782     hTypeKeys ("<Return>")
 783     hTypeKeys ("<ESCAPE>")
 784     sleep (5)
 785
 786     call fSaveLoadAllFormats (NewFileDir)   'Runs the Function below.
 787
 788     printlog "   Will try to delete the directory: " + NewFileDir
 789     app.rmDir ConvertPath (gOfficePath + "user\work\LayoutTest\")' NewFileDir
 790
 791 endcase 'tSaveLoadLayoutSpreadsheet
 792
 793 '****************************************************************************************************
 794