testautomation/graphics/optional/includes/global/id_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: id_001.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:41 $
  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 tiFileSaveAs
  40 ' #1 tiFileReload (sFileIn as string)
  41 ' #1 tiFileVersion (sFileIn as string)
  42 ' #1 tiFilePassword
  43 ' #1 tiFileTemplates
  44 ' #1 tiFilePrint
  45 ' #1 tmFileNewFromTemplate
  46 ' #1 tmFileOpen
  47 ' #1 tmFileClose
  48 ' #1 tmFileSave
  49 ' #1 tmFileSaveAs
  50 ' #1 tmFileSaveAll
  51 ' #1 tmFileProperties
  52 ' #1 tmFilePrinterSetting
  53 '\**********************************************************************************
  54
  55
  56 testcase tiFileSaveAs
  57
  58     dim sFileName as string ' test document & new created doc
  59     '   dim sFormula as string  ' container for formula to create document with
  60     dim sTemp as string
  61     dim sFilter (50) as string
  62     dim i as integer
  63     dim x as integer
  64     dim y as integer
  65     dim Exlist(100) as string ' files to be deleted
  66     dim sFile as string ' filename to export
  67     dim sPath as string ' filename to export
  68
  69     if (gApplication = "IMPRESS") then
  70         ExtensionString = "odp"
  71     else
  72         ExtensionString = "odg"
  73     end if
  74
  75     sFilter (0) = 0 ' initalize ;-)...
  76
  77     sFileName = "graphics\required\input\tbo_alf_." + ExtensionString    ' this is the file with all features
  78     sFile = "isas_"                                ' this is the filename of the export files
  79     sPath = ConvertPath ( gOfficePath + "user/work/graphics/required/"+gApplication+"\"+ gPlatform) ' this is the export path
  80     if dir (sPath) = "" then
  81         app.mkdir (sPath)
  82     end if
  83
  84     if gSamePC = TRUE then ' delete export directory
  85         GetFileList ( sPath, sFile+"*", Exlist() )
  86         if KillFileList ( Exlist() ) <> TRUE then
  87             Warnlog "Couldn't delete all Files in Output-Export-Directory, the followings are still there:"
  88             for i=1 to ListCount ( Exlist() )
  89                 printlog "  <> " + Exlist(i)
  90             next i
  91         end if
  92     end if
  93
  94     Call hFileOpen ( ConvertPath(gTesttoolPath + sFileName) )
  95     WaitSlot (3000)
  96
  97
  98     ' to use the helper fileSaveAs functions i get alll available filters...
  99     FileSaveAs
 100     WaitSlot (2000)
 101     Kontext "SpeichernDlg"
 102     for i = 0 to 5
 103         if i=0 then x = Dateityp.GetItemCount
 104             if (i) then  ' set border, whenm start from beginning/end
 105                 y = i     ' set filter from beginning
 106             else
 107                 y = x-3     ' set filter from end
 108             end if
 109             ListAppend(sFilter(), Dateityp.GetItemText (y))
 110         next i
 111         SpeichernDlg.Cancel
 112         y = ListCount(sFilter())
 113
 114         if gtSYSName = "Linux" then y=y-1
 115             '#i45961# - last part of filter-list deactivated due to BUG - FHA
 116             'TODO: JSI->FHA please verify if this special handling needed after the issue has been fixed.
 117
 118             for i = 1 to y
 119                 sFileName = sPath + sFile + (i)
 120                 hFileSaveAsWithFilter (sFileName, sFilter(i), TRUE )
 121                 kontext
 122                 if messagebox.exists then
 123                     messagebox.Yes ' to go on ....
 124                 end if
 125                 printlog " saved with filter ("+i+"/"+y+"): "+ sFilter(i)
 126             next i
 127             ' TODO TBO: small check, if correct filter was used!
 128             WaitSlot (3000)
 129             fileclose
 130             WaitSlot (3000)
 131             kontext "Messagebox"
 132             if Messagebox.exists then
 133                 printlog "Messagebox about informationloss... :-) that's OK: 'Text in the messagebox: "+Messagebox.GetText+"'"
 134                 Messagebox.YES
 135             end if
 136
 137             '-----------------------------------------------------------------
 138             hNewDocument
 139
 140
 141             sFilter (0) = 0
 142             sFileName = sPath
 143             GetFileList ( sFileName, sFile + "*", sFilter() )
 144
 145             '   call hNewDocument
 146             x = ListCount ( sFilter() )
 147             for i = 1 to x
 148                 printlog "("+i+"/"+x+"): "+sFilter(i)
 149                 hFileOpen ( sFilter(i) )
 150                 WaitSlot (3000)
 151                 If hIsNamedDocLoaded (sFilter(i), true) Then
 152                     printlog "  used filter: " + hGetUsedFilter()
 153                 else
 154                     sTemp = left(right(sFilter(i),2),1)
 155                     if ( (sTemp = "t") OR (sTemp = "o") ) then
 156                         printlog "document is --- TEMPLATE?! --- "
 157                     else
 158                         qaErrorlog "#116563# document didn't get loaded "
 159                     end if
 160                 end if
 161                 hCloseDocument
 162                 WaitSlot (2000)
 163             next i
 164             '   Call hCloseDocument
 165 endcase
 166
 167 testcase tiFileReload
 168     Dim DokumentPfad$
 169     Dim Datei$
 170
 171     if (gApplication = "IMPRESS") then
 172         ExtensionString = "odp"
 173     else
 174         ExtensionString = "odg"
 175     end if
 176
 177     Datei$= (ConvertPath (gOfficePath + "user/work/graphics/required/version1." + ExtensionString))
 178
 179     if app.dir(ConvertPath (gOfficePath + "user/work/graphics/required/")) = "" then
 180         app.mkdir (ConvertPath (gOfficePath + "user/work/graphics/required/"))
 181     end if
 182     Call hNewDocument
 183     WaitSlot (2000)
 184     Call hFileSaveAsKill (Datei$)
 185     WaitSlot (2000)
 186     Call hCloseDocument
 187
 188     Call hFileOpen (Datei$)
 189     WaitSlot (2000)
 190     call hTBOtypeInDoc
 191     WaitSlot (2000)
 192     FileReload
 193     WaitSlot (2000)
 194     Kontext "Messagebox"
 195     sleep 2
 196     Messagebox.No
 197     WaitSlot (2000)
 198
 199     FileReload
 200     WaitSlot (2000)
 201     Kontext "Messagebox"
 202     sleep 2
 203     Messagebox.Yes
 204     WaitSlot (1000)
 205
 206     Call hCloseDocument
 207     if Dir (Datei$) <> "" AND gSamePC = TRUE then kill Datei$
 208 endcase
 209
 210 testcase tiFileVersion
 211     Dim DokumentPfad$
 212     Dim Datei$
 213
 214     if (gApplication = "IMPRESS") then
 215         ExtensionString = "odp"
 216     else
 217         ExtensionString = "odg"
 218     end if
 219
 220     Datei$= (ConvertPath (gOfficePath + "user/work/graphics/required/erwin." + ExtensionString))
 221     'if dir (ConvertPath (gOfficePath + "user/work/graphics/required/")) = "" then
 222     if dir (Datei$) = "" then app.mkdir (ConvertPath (gOfficePath + "user/work/graphics/required/"))
 223         Call hNewDocument
 224         WaitSlot (1000)
 225         Call hFileSaveAsKill (Datei$)
 226         WaitSlot (1000)
 227         Call hCloseDocument
 228
 229         Call hFileOpen (Datei$)
 230         WaitSlot (1000)
 231         call hTBOtypeInDoc
 232         WaitSlot (1000)
 233         try
 234             FileVersions
 235         catch
 236             Warnlog "- File / Versions not accessible!"
 237             goto endsub
 238         endcatch
 239
 240         Kontext "Versionen"
 241         Call DialogTest ( Versionen )
 242         Speichern.Click
 243         Kontext "VersionskommentarEingeben"
 244         Call DialogTest ( VersionskommentarEingeben )
 245         VersionskommentarEingeben.Cancel
 246         Kontext "Versionen"
 247         Versionen.Close
 248         Call hCloseDocument
 249         '   if Dir (Datei$) <> "" AND gSamePC = TRUE then kill Datei$
 250 endcase
 251
 252 testcase tiFilePassword
 253     goto endsub
 254     Dim DokumentPfad$
 255     Dim Datei$
 256     dim sFileName as string ' test document & new created doc
 257     '   dim sFormula as string  ' container for formula to create document with
 258     dim e as string
 259     dim sTemp as string
 260     dim sFilter (50) as string
 261     dim i as integer
 262     dim x as integer
 263     dim y as integer
 264     dim Exlist(100) as string ' files to be deleted
 265     dim sFileIn as string ' filename to import
 266     dim sFile as string ' filename to export
 267     dim sPath as string ' and path to export
 268
 269     if (gApplication = "IMPRESS") then
 270         ExtensionString = "odp"
 271     else
 272         ExtensionString = "odg"
 273     end if
 274
 275     sFile = "isp__"                                                     ' this is the filename of the export files
 276     sPath = ConvertPath ( gOfficePath + "user/work/graphics/required/"+gApplication+"\"+ gPlatform+"\") ' this is the export path
 277     mkdir (sPath)
 278     if dir (sPath) = "" then app.mkdir (sPath)
 279         sFileIn = (sPath + sFile + "." + ExtensionString)
 280         if gSamePC = TRUE then ' delete export directory
 281             GetFileList ( sPath, sFile+"*", Exlist() )
 282             if KillFileList ( Exlist() ) <> TRUE then
 283                 Warnlog "Couldnt delete all Files in Output-Export-Directory, the followings are still there:"
 284                 for i=1 to ListCount ( Exlist() )
 285                     printlog "  <> " + Exlist(i)
 286                 next i
 287             end if
 288         end if
 289
 290         Call hNewDocument
 291         WaitSlot (1000)
 292         FileSaveAs
 293         Kontext "SpeichernDlg"
 294         Datei$ = ConvertPath ( sFileIn )
 295         printlog "   will use the file: "+Datei$
 296         if Dir (Datei$) <> "" then
 297             kill Datei$
 298         end if
 299         Passwort.Check
 300         Dateiname.SetText Datei$
 301         Speichern.Click
 302         WaitSlot (2000)
 303         Kontext "Passwort"
 304         PasswortName.SetText "12345"
 305         PasswortBestaetigen.Settext "54321"
 306         Passwort.OK
 307         WaitSlot (2000)
 308         Kontext "Messagebox"
 309         if Messagebox.Exists(1) then
 310             Messagebox.OK
 311         else
 312             Warnlog "- Wrong password not recognized"
 313         end if
 314         Kontext "Passwort"
 315         PasswortName.SetText "12345"
 316         PasswortBestaetigen.SetText "12345"
 317         Passwort.OK
 318         sleep 2
 319         FileClose
 320         sleep 2
 321
 322         FileOpen
 323         Kontext "OeffnenDlg"
 324         WaitSlot (2000)
 325         Dateiname.SetText Datei$
 326         Oeffnen.Click
 327         WaitSlot (2000)
 328         Kontext "PasswordFileOpen"
 329         PasswortName.SetText "34567"
 330         try
 331             PasswordFileOpen.OK
 332         catch
 333             Printlog "- Wrong password not accepted"
 334         endcatch
 335         Kontext
 336         if Not Messagebox.Exists(1) then
 337             Warnlog "Wrong password while loading not recognized"
 338         else
 339             Messagebox.OK
 340             printlog "Wrong password on loading ok - recogniced"
 341         end if
 342         WaitSlot (3000)
 343         Kontext "PasswordFileOpen"
 344         PasswortName.SetText "12345"
 345         PasswordFileOpen.OK
 346         WaitSlot (5000)
 347         FileSaveAs
 348         Kontext "SpeichernDlg"
 349         Dateiname.SetText Datei$
 350         if (Passwort.IsChecked <> TRUE) then
 351             Warnlog "Password has to be checked! :-("
 352         end if
 353         Speichern.Click
 354         WaitSlot (1000)
 355         Kontext "Messagebox"
 356         if Messagebox.Exists(5) then
 357             Messagebox.Yes
 358         end if
 359         Kontext "Passwort"
 360         if (Passwort.Exists(5) = FALSE)then
 361             Warnlog "- Password dialog Didn't pop up after pressing save"
 362         else
 363             Kontext "Passwort"
 364             WaitSlot (1000)
 365             PasswortName.SetText "a12345"
 366             PasswortBestaetigen.SetText "a12345"
 367             Passwort.OK
 368             WaitSlot (1000)
 369             FileClose
 370             WaitSlot (1000)
 371         end if
 372         FileOpen
 373         WaitSlot (2000)
 374         Kontext "OeffnenDlg"
 375         Dateiname.SetText Datei$
 376         Oeffnen.Click
 377         Kontext "PasswordFileOpen"
 378         WaitSlot (1000)
 379         PasswortName.SetText "a12345"
 380         PasswordFileOpen.OK
 381         WaitSlot (5000)
 382         FileSaveAs
 383         Kontext "SpeichernDlg"
 384         Dateiname.SetText Datei$
 385         if (Passwort.IsChecked <> TRUE) then
 386             Warnlog "Password has to be checked! :-("
 387         end if
 388         Passwort.UnCheck
 389         Speichern.Click
 390         Kontext "Messagebox"
 391         if Messagebox.Exists(5) then Messagebox.Yes
 392             Kontext "Passwort"
 393             if (Passwort.Exists(5))then
 394                 Warnlog "- Password dialog didn't pop up after pressing save"
 395                 Kontext "Passwort"
 396                 password.cancel
 397                 FileClose
 398             else
 399                 hCloseDocument
 400             end if
 401 endcase
 402
 403 testcase tiFileTemplates
 404     Call hNewDocument
 405
 406     FileTemplatesOrganize
 407     Kontext "DVVerwalten"
 408     WaitSlot (1000)
 409     Call DialogTest (DVVerwalten)
 410     sleep 1
 411     PopuplisteLinks.Select 2
 412     WaitSlot (1000)
 413     PopuplisteRechts.Select 2
 414     WaitSlot (1000)
 415     WelcheDatei.Click
 416     WaitSlot (1000)
 417     Kontext "Oeffnendlg"
 418     Call DialogTest (OeffnenDlg)
 419     sleep 1
 420     OeffnenDlg.Cancel
 421     WaitSlot (2000)
 422     Kontext "DVVerwalten"
 423     DVVerwalten.Close
 424
 425     if gtSYSName = "Solaris x86" then
 426         qaErrorLog "#i62423# - FileTemplatesAddressBookSource outcommented under x86. - FHA"
 427     else
 428         FileTemplatesAddressBookSource
 429         Printlog "- AddressBookAssignment"
 430         kontext "AddressBookSource"
 431         Call DialogTest (AddressBookSource)
 432         Administrate.Click
 433         kontext "AddressSourceAutopilot"
 434         AddressSourceAutopilot.Cancel
 435         kontext "AddressBookSource"
 436         AddressBookSource.Cancel
 437     end if
 438
 439     FileTemplatesSave
 440     Printlog "- Save template"
 441     WaitSlot (1000)
 442     Kontext "Dokumentvorlagen"
 443     sleep 1
 444     Call DialogTest (Dokumentvorlagen)
 445     WaitSlot (1000)
 446     Verwalten.Click
 447     WaitSlot (2000)
 448     Kontext "DVVerwalten"
 449     Call DialogTest (DVVerwalten)
 450     WaitSlot (3000)
 451     DVVerwalten.Close
 452     WaitSlot (1000)
 453     Kontext "Dokumentvorlagen"
 454     sleep 1
 455     Dokumentvorlagen.Cancel
 456     WaitSlot (1000)
 457
 458     try
 459         FileTemplatesEdit
 460         Printlog "- Edit template"
 461         WaitSlot (1000)
 462         Kontext "OeffnenDlg"
 463         sleep 1
 464         Call DialogTest (OeffnenDlg)
 465         WaitSlot (1000)
 466         OeffnenDlg.Cancel
 467     catch
 468         Warnlog "- There are problems with File-Template-Save"
 469     endcatch
 470     WaitSlot (1000)
 471     Call hCloseDocument
 472 endcase
 473
 474 testcase tiFilePrint
 475     Call hNewDocument
 476     FilePrint
 477     WaitSlot (1000)
 478     kontext
 479     if active.exists(5) then
 480         active.ok
 481         qaerrorlog "There is no printer available - please install one on your system!"
 482     end if
 483     WaitSlot (2000)
 484     Kontext "DruckenDlg"
 485     Call DialogTest (DruckenDlg)
 486     WaitSlot (2000)
 487     Zusaetze.Click
 488
 489     Kontext "DruckerZusaetzeDraw"
 490     Call DialogTest (DruckerZusaetzeDraw)
 491     DruckerZusaetzeDraw.Cancel
 492     Kontext "DruckenDlg"
 493     DruckenDlg.Cancel
 494     WaitSlot (2000)
 495     Call hCloseDocument
 496 endcase
 497
 498
 499 '-----------------------------------------------------------
 500 '*******************  M A T H dito *************************
 501 '-----------------------------------------------------------
 502
 503
 504 testcase tmFileNewFromTemplate
 505     Call hNewDocument
 506     FileNewFromTemplate
 507     WaitSlot (5000)
 508     Kontext "TemplateAndDocuments"
 509     if TemplateAndDocuments.NotExists then
 510         Warnlog "Dialog Templates and Documents are not up!"
 511         goto endsub
 512     end if
 513     Call DialogTest (TemplateAndDocuments)
 514     WaitSlot (5000)
 515     try
 516         TemplateAndDocuments.Cancel
 517     catch
 518     endcatch
 519     WaitSlot (5000)
 520     Call hCloseDocument
 521 endcase
 522
 523 testcase tmFileOpen
 524     call hNewDocument
 525     FileOpen
 526     Kontext "OeffnenDlg"
 527     UebergeordneterOrdner.Click
 528     Standard.Click
 529     NurLesen.check
 530     Call DialogTest ( OeffnenDlg )
 531     OeffnenDlg.Cancel
 532     WaitSlot (2000)
 533     Call hCloseDocument
 534 endcase
 535
 536 testcase tmFileClose
 537     printlog "- File Close"
 538     hNewDocument    ' just for the records: I open ONE document
 539     call hTBOtypeInDoc
 540     WaitSlot (2000)
 541     FileClose
 542     Kontext         ' Expecting "Modified, do you want to close?"
 543     if active.exists (5) then
 544         printlog "  Ok, active came up: " + active.gettext
 545         Active.Cancel   ' No, not this time
 546     else
 547         warnlog "active missing (1)"
 548     end if
 549     WaitSlot (2000)
 550
 551     FileClose
 552     Kontext
 553     Active.Yes      ' but now - records: this document is closed
 554     WaitSlot (2000)
 555
 556     Kontext "SpeichernDlg"
 557     Call DialogTest ( SpeichernDlg )
 558     SpeichernDlg.Cancel
 559     WaitSlot (2000)
 560
 561     FileClose       ' now the office gets closed! (if there were no modifications!)
 562     Kontext
 563     Active.No
 564     WaitSlot (2000)
 565 endcase
 566 '-----------------------------------------------------------
 567 testcase tmFileSave
 568     hNewDocument
 569     call hTBOtypeInDoc
 570
 571     FileSave
 572     WaitSlot (2000)
 573     Kontext "SpeichernDlg"
 574     UebergeordneterOrdner.click
 575     Standard.Click
 576     Call DialogTest (SpeichernDlg)
 577     Kontext "SpeichernDlg"
 578     Standard.Click
 579     SpeichernDlg.Cancel
 580     WaitSlot (2000)
 581     Call hCloseDocument
 582 endcase
 583
 584 testcase tmFileSaveAs
 585
 586     hNewDocument
 587     WaitSlot (2000)
 588     call hTBOtypeInDoc
 589
 590     FileSaveAs
 591     WaitSlot (2000)
 592     Kontext "SpeichernDlg"
 593     if (SpeichernDlg.exists (5) = FALSE) then
 594         warnlog "FileSaveAs dialog is not visible"
 595     end if
 596     WaitSlot (2000)
 597     Passwort.check
 598     Passwort.uncheck
 599     UebergeordneterOrdner.click
 600     Standard.Click
 601
 602     NeuerOrdner.click
 603     kontext "NeuerOrdner"
 604     neuerordner.cancel
 605     Kontext "SpeichernDlg"
 606
 607     Call DialogTest (SpeichernDlg)
 608
 609     Kontext "SpeichernDlg"
 610     SpeichernDlg.Cancel
 611     WaitSlot (2000)
 612     Call hCloseDocument
 613 endcase
 614
 615 testcase tmFileSaveAll
 616     printlog "- File SaveAll"
 617
 618     hNewDocument
 619     call hTBOtypeInDoc
 620
 621     Printlog "  open 2. window"
 622     hNewDocument
 623     call hTBOtypeInDoc
 624
 625     Printlog "  call save all"
 626     FileSaveAll
 627     Printlog "  cancel 1. save"
 628     Kontext "SpeichernDlg"
 629     SpeichernDlg.Cancel
 630
 631     Printlog "  cancel 2. save"
 632     WaitSlot (2000)
 633     Kontext "SpeichernDlg"
 634     SpeichernDlg.Cancel
 635     WaitSlot (2000)
 636
 637     try
 638         Kontext "SpeichernDlg"
 639         SpeichernDlg.Cancel
 640         printlog "smth had been typed in the starting window (just a hint ;-) )"
 641     catch
 642         printlog "--------- no other window wants to get saved. :-)"
 643     endcatch
 644
 645     WaitSlot (2000)
 646     Printlog "  hCloseDocument both"
 647     Call hCloseDocument
 648     sleep 2
 649     Printlog "  first closed"
 650     Call hCloseDocument
 651     WaitSlot (2000)
 652     Printlog "  second closed"
 653     WaitSlot (5000)
 654 endcase
 655
 656 testcase tmFileProperties
 657     printlog "- File Properties"
 658
 659     Call hNewDocument
 660     FileProperties
 661
 662     Kontext
 663     active.SetPage TabDokument
 664     Kontext "TabDokument"
 665     Call DialogTest ( TabDokument )
 666
 667     Kontext
 668     active.SetPage TabDokumentInfo
 669     Kontext "TabDokumentInfo"
 670     Call DialogTest ( TabDokumentInfo )
 671
 672     'Deactivating this part because of #i95523#:
 673     'Kontext
 674     'active.SetPage TabBenutzer
 675     'Kontext "TabBenutzer"
 676     'Call DialogTest ( TabBenutzer )
 677     'Infofelder.Click
 678     '   Kontext "InfonamenBearbeiten"
 679     '   Call DialogTest (InfonamenBearbeiten)
 680     'InfonamenBearbeiten.Cancel
 681
 682     Kontext
 683     active.SetPage TabInternet
 684     Kontext "TabInternet"
 685     Call DialogTest (TabInternet)
 686     TabInternet.Cancel
 687
 688     Call hCloseDocument
 689 endcase
 690
 691 testcase tmFilePrinterSetting
 692     printlog "- File Printersettings"
 693     Call hNewDocument
 694     WaitSlot (3000)
 695     FilePrintersettings
 696     kontext
 697     if active.exists(5) then
 698         active.ok
 699         qaerrorlog "There is no printer available - please install one on your system!"
 700     end if
 701     WaitSlot (2000)
 702     Kontext "DruckerEinrichten"
 703     Call DialogTest (DruckerEinrichten)
 704     sleep 2
 705     DruckerEinrichten.Cancel
 706     WaitSlot (2000)
 707     Call hCloseDocument
 708 endcase
 709
 710 testcase tdFileExport
 711     goto endsub
 712     dim x as integer
 713     Call hNewDocument
 714     WaitSlot (3000)
 715     FileExport
 716     Kontext "ExportierenDlg"
 717     Call DialogTest ( ExportierenDlg )
 718     UebergeordneterOrdner.Click
 719     Kontext "SpeichernDlg"
 720     x=Dateityp.getitemcount
 721     if x <> 18 then warnlog "the number of filters is not 18, it is: " + x
 722         SpeichernDlg.Cancel
 723         WaitSlot (2000)
 724         Call hCloseDocument
 725         WaitSlot (2000)
 726 endcase
 727
 728 testcase tmFileExit
 729     goto endsub
 730     printlog "- File Close"
 731     Call hNewDocument
 732     WaitSlot (2000)
 733     try
 734         FileExit "SynchronMode", TRUE
 735         WaitSlot (2000)
 736         Kontext
 737         WaitSlot (2000)
 738         Kontext "MessageBox"
 739         if MessageBox.Exists(1) then ' this is the messagebox from the first window!
 740             Printlog MessageBox.GetText
 741             try
 742                 MessageBox.OK
 743             catch
 744                 MessageBox.No
 745             endcatch
 746         end if
 747         Kontext "MessageBox"
 748         if MessageBox.Exists(1) then
 749             Warnlog "MsgBox popped up and there were no changes in the document"
 750             Printlog MessageBox.GetText
 751             try
 752                 MessageBox.OK
 753             catch
 754                 MessageBox.No
 755             endcatch
 756         end if
 757     catch
 758         printlog "this exit is wanted :-)"
 759     endcatch
 760     try
 761         WaitSlot (20000)
 762         call hStartTheOffice ' from master.inc
 763     catch
 764         printlog "catch AGAIN"
 765     endcatch
 766     Kontext "SD_Praesentation"
 767     if SD_Praesentation.exists (2) then
 768         ViewToolbarsPresentation
 769     end if
 770 endcase