testautomation/graphics/optional/includes/global/g_savepictureas.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_savepictureas.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:40 $
  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 : Graphics ContextMenu -SavePictureAs -Test
  37 '*
  38 '*************************************************************************
  39 '*
  40 ' #1 tContextSaveAsPicture
  41 ' #1 tContextSavePictureLinkAsPicture
  42 '*
  43 '\***********************************************************************
  44
  45 testcase tContextSaveAsPicture
  46     Dim Counter as integer
  47     Dim CounterShouldBe as integer
  48     Dim SavedOrgPosition as integer
  49     Dim i as integer
  50     Dim q as integer
  51     Dim iFileSize(50) as Long
  52     Dim FileList(50) as String
  53     Dim FileList2(50) as string
  54     Dim Filesize1 as Long
  55     Dim Filesize2 as Long
  56     Dim Filename, LastFilterName as String
  57     Dim Filetype as String
  58     Dim OrgFile as String
  59     Dim NewFile as String
  60     Dim OrgFileDir as String
  61     Dim NewFileDir as String
  62     Dim Testsize as Boolean
  63
  64     OrgFileDir = ConvertPath ( gTesttoolPath + "graphics\required\input\SaveAsPicture\" )
  65     NewFileDir = ConvertPath ( gOfficePath + "user\work\SaveAsPicture\" )
  66
  67     app.mkDir (NewFileDir)
  68     sleep 3
  69     FileList2(0) = 0
  70     GetFileList ((ConvertPath (NewFileDir)), "*.*" , FileList2() )
  71     sleep 1
  72     if (KillFileList (FileList2()) <> TRUE) then
  73         for i = 1 to ListCount2 (FileList2())
  74             Warnlog "File Not deleted: " + i + ": '" + FileList2(i) + "'"
  75         next i
  76     endif
  77
  78     Call hNewDocument
  79     setClipboard(" ")
  80     sleep 2
  81     InsertGraphicsFromFile
  82     Kontext "GrafikEinfuegenDlg"
  83     Counter = Dateityp.GetItemCount
  84
  85     Pfad.SetText OrgFileDir
  86     Pfad.TypeKeys ("<Return>")
  87     Kontext "Active"
  88     if Active.Exists then
  89         warnlog "Error when going to the directory " + OrgFileDir + ". Active: " + Active.GetText
  90         Active.OK
  91     endif
  92     Kontext "GrafikEinfuegenDlg"
  93
  94     if Dateityp.GetItemCount > 0 then
  95         Printlog "The ImportGraphic-Dialogue has " + Dateityp.GetItemCount + " File-types."
  96     else
  97         Warnlog "The ImportGraphic-Dialogue doesn't have any File-types listed"
  98     endif
  99
 100     for i = 2 to Dateityp.GetItemCount 'Get the number of entries.
 101         Printlog " *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* "
 102         Pfad.SetText OrgFileDir
 103         Pfad.TypeKeys ("<Return>")
 104         Kontext "Active"
 105         if Active.Exists then
 106             warnlog "Error when going to the directory " + OrgFileDir + ". Active: " + Active.GetText
 107             Active.OK
 108         endif
 109         Kontext "GrafikEinfuegenDlg"
 110
 111         if Dateityp.GetItemCount < 1 then
 112             Warnlog "Only one or none selectable fileformats."
 113         endif
 114         Dateityp.Select i
 115         Filetype = Dateityp.GetSelText
 116         Filetype = left(Right(Dateityp.GetSelText,4),3)
 117
 118         DateiAuswahl.TypeKeys "<END>"
 119         DateiAuswahl.TypeKeys "<SPACE>"
 120         if DateiAuswahl.GetItemCount < 1 then
 121             warnlog "The file with the extension " + Filetype + " does not exist. Please inform FHA."
 122         else
 123             printlog "Selected: " + DateiAuswahl.GetSelText
 124             Filename = Dateiname.GetSelText
 125             OrgFile = ConvertPath (OrgFileDir + Dateiname.GetSelText)
 126             printlog "   File is: " + OrgFile
 127
 128             iFileSize(i) = app.FileLen(OrgFile)
 129             printlog "   The filesize was: " + iFileSize(i)
 130
 131             DateiAuswahl.TypeKeys "<DOWN>",true
 132             if DateiAuswahl.GetSelText <> Filename then
 133                 warnlog "More than one file with the same extension. Contact Test-Administrator."
 134             endif
 135
 136             if Link.IsChecked = true then
 137                 Link.UnCheck
 138             endif
 139
 140             Oeffnen.Click
 141
 142             if (gApplication = "IMPRESS") then
 143                 Kontext "DocumentImpress"
 144             else
 145                 Kontext "DocumentDraw"
 146             endif
 147             EditSelectall
 148
 149             hOpenContextMenu
 150             if (gApplication = "IMPRESS") then
 151                 Kontext "DocumentImpress"
 152                 DocumentImpress.OpenContextMenu true
 153                 WaitSlot(1000)
 154                 if hMenuFindSelect(27353, true, (MenuGetItemCount - 4), true) = false then
 155                     Warnlog "Context-Menu-entry `SaveAsGraphics` was not found. Therefore the test ends."
 156                     Call hCloseDocument
 157                     Goto Endsub
 158                 endif
 159             else  'Should be Draw
 160                 Kontext "DocumentDraw"
 161                 DocumentDraw.OpenContextMenu true
 162                 WaitSlot(1000)
 163                 if hMenuFindSelect(27353, true, (MenuGetItemCount - 4), true) = false then
 164                     Warnlog "Context-Menu-entry `SaveAsGraphics` was not found. Therefore the test ends."
 165                     Call hCloseDocument
 166                     Goto Endsub
 167                 endif
 168             endif
 169             sleep 1
 170
 171             Kontext "ExportierenDlg"
 172             if ExportierenDlg.IsVisible then
 173                 Printlog "   'Save As Picture' came up correctly when using the Context-menu."
 174             endif
 175
 176             Kontext "ExportierenDlg" 'SaveAsDialogue
 177
 178             Testsize = false
 179             SavedOrgPosition = Dateityp.GetSelIndex
 180             select case left(lcase(Dateityp.GetSelText),3) 'Filetype
 181             case "png" : if (Filetype = "png") OR (Filetype = "psd") OR (Filetype = "pcx") OR (Filetype = "xbm") OR (Filetype = "ras") OR (Filetype = "pbm") OR (Filetype = "pcd") OR (Filetype = "pgm") OR (Filetype = "bmp") OR (Filetype = "ppm") OR (Filetype = "sgf") OR (Filetype = "xpm") OR (Filetype = "tga") then
 182                 printlog "   " + Filetype + " will be saved as png, correct."
 183                 CounterShouldBe = 17
 184             else
 185                 warnlog "Png should not have been selected when we opened a '" + Filetype + "'-file."
 186             endif
 187         case "svm" : if (Filetype = "svm") OR (Filetype = "dxf") OR (Filetype = "eps") OR (Filetype = "sgv") then
 188             printlog "   " + Filetype + " will be saved as Svm, correct."
 189             CounterShouldBe = 17
 190         else
 191             warnlog "Svm should not have been selected when we opened a '" + Filetype + "'-file."
 192         endif
 193     case "wmf" : if (Filetype = "wmf") OR (Filetype = "emf") then
 194         printlog "   " + Filetype + " will be saved as Wmf, correct."
 195         CounterShouldBe = 17
 196         if Filetype = "wmf" then Testsize = true
 197         else
 198             warnlog "Wmf should not have been selected when we opened a '" + Filetype + "'-file."
 199         endif
 200     case "jpe" : if (Filetype = "jpg") OR Filetype = "jif" OR Filetype = "peg" then
 201         printlog "   " + Filetype + " will be saved as Jpg, correct."
 202         CounterShouldBe = 17
 203         if Filetype = "jpg" then Testsize = true
 204         else
 205             warnlog "Jpg should not have been selected when we opened a '" + Filetype + "'-file."
 206         endif
 207     case "tif" : if Filetype = "tif" OR Filetype = "iff" then
 208         printlog "   " + Filetype + " will be saved as Tiff, correct."
 209         CounterShouldBe = 17
 210         if Filetype = "tif" then Testsize = true
 211         else
 212             warnlog "Tif should not have been selected when we opened a '" + Filetype + "'-file."
 213         endif
 214     case "sgf" : if (Filetype = "sgv") OR (Filetype = "sgf") then
 215         printlog "   " + Filetype + " will be saved as Sgf, correct."
 216         CounterShouldBe = 17
 217         if Filetype = "sgf" then Testsize = true
 218         else
 219             warnlog "Sgf should not have been selected when we opened a '" + Filetype + "'-file."
 220         endif
 221     case "gif" : if (Filetype = "gif") then
 222         printlog "   " + Filetype + " will be saved as Gif, correct."
 223         CounterShouldBe = 17
 224         if Filetype = "gif" then Testsize = true
 225         else
 226             warnlog "Gif should not have been selected when we opened a '" + Filetype + "'-file."
 227         endif
 228     case "met" : if (Filetype = "met") then
 229         printlog "   " + Filetype + " will be saved as Met, correct."
 230         CounterShouldBe = 17
 231         if Filetype = "met" then Testsize = true
 232         else
 233             warnlog "Met should not have been selected when we opened a '" + Filetype + "'-file."
 234         endif
 235     case "pct" : if (Filetype = "pct") OR (Filetype = "ict") then
 236         printlog "   " + Filetype + " will be saved as Pct, correct."
 237         CounterShouldBe = 17
 238         if Filetype = "pct" then Testsize = true
 239         else
 240             warnlog "Pct should not have been selected when we opened a '" + Filetype + "'-file."
 241         endif
 242     case else  : qaerrorlog "   The test has not yet been fitted for this format ( " + Filetype + "). Contact FHA."
 243         printlog "   But will be saved as: " + left(lcase(Dateityp.GetSelText),3)
 244         CounterShouldBe = 18
 245         Testsize = true
 246     end select
 247
 248     '..........................................................................................................................'
 249
 250     Dateityp.TypeKeys "<HOME>"
 251     if (Dateityp.GetItemCount) = CounterShouldBe then  'Counter - 10
 252         for q = 1 to CounterShouldBe - 1
 253             LastFilterName = Dateityp.GetSelIndex
 254             Dateityp.TypeKeys "<DOWN>"
 255             if Dateityp.GetSelIndex = LastFilterName then
 256                 warnlog "   Check the export-filters when trying to save a " + Filename + "-file. Exiting test."
 257                 goto endsub
 258             endif
 259         next q
 260     else
 261         warnlog "Dateityp.GetItemCount  = " + (Dateityp.GetItemCount) + "  CounterShouldBe =  " + CounterShouldBe
 262     endif
 263
 264     Dateityp.Select SavedOrgPosition
 265
 266     Dateiname.SetText ( NewFileDir )
 267     Dateiname.TypeKeys ("<Return>")
 268
 269     kontext "Active"
 270     if Active.Exists then  'Could not find directory.
 271         warnlog "Error when going to the directory " + NewFileDir + ". Active: " + Active.GetText
 272         warnlog "ABORTING TESTCASE. PLEASE INFORM TESTPROGRAMMER."
 273         Active.OK
 274         kontext "GrafikEinfuegenDlg"
 275         GrafikEinfuegenDlg.Close
 276         goto Endsub
 277     endif
 278     Kontext "ExportierenDlg"
 279
 280     sleep 1
 281     Dateiname.SetText ConvertPath ( NewFileDir + "SaveAsPicture")
 282     NewFile = ConvertPath ( NewFileDir + "SaveAsPicture" + "." + left(lcase(Dateityp.GetSelText),3) )
 283     Dateiname.TypeKeys ("<Return>")
 284     Kontext "Active"
 285     if Active.Exists then  'either could not find directory, or overwrite.
 286         Active.Yes ' Overwrite?
 287     endif
 288
 289     if Testsize = true then
 290         if NewFile <> "" then
 291             Filesize1 = iFileSize(i)
 292             printlog "   Saved file-size was: " + app.FileLen(NewFile)
 293             Filesize2 = app.FileLen(NewFile)
 294         endif
 295     endif
 296
 297     if (Testsize = true) then
 298         if (Filesize1 < (Filesize2*0.95)) OR (Filesize1 > (Filesize2*1.05)) then
 299             warnlog "Format '" + right(NewFile,3) + "' was NOT saved properly. Org-Size: '" + Filesize1 + "' Saved-Size: '" + Filesize2 + "'."
 300         else
 301             printlog "   The Format '" + right(NewFile,3) + "' was saved correctly."
 302         endif
 303     endif
 304     if (gApplication = "IMPRESS") then
 305         Kontext "DocumentImpress"
 306     else
 307         Kontext "DocumentDraw"
 308     endif
 309     hTypeKeys "<DELETE>"
 310     call hCloseDocument
 311     call hNewDocument
 312     InsertGraphicsFromFile
 313     Kontext "GrafikEinfuegenDlg"
 314     if GrafikEinfuegenDlg.exists(5) then
 315         printlog "   The Insertgraphics-dialogue showed up correctly."
 316         sleep (5)
 317     else
 318         warnlog "   The Insertgraphics-dialogue didn't show up."
 319     endif
 320 endif
 321 next i
 322 GrafikEinfuegenDlg.Close
 323
 324 GetFileList (NewFileDir, "*.*" , FileList() )
 325 sleep 1
 326 if (KillFileList (FileList()) <> TRUE) then
 327 for i = 1 to ListCount (FileList())
 328     Warnlog "File Not deleted: " + i + ": '" + FileList(i) + "'"
 329 next i
 330 endif
 331 Printlog "The test will exit now."
 332 Sleep 1
 333 Call  hCloseDocument
 334 endcase 'tContextSaveAsPicture
 335
 336 '--------------------------------------------------------------------------------------
 337
 338 '(Different behaviour = new testcase)
 339
 340 testcase tContextSavePictureLinkAsPicture
 341     Dim Counter as integer
 342     Dim CounterShouldBe as integer
 343     Dim SavedOrgPosition as integer
 344     Dim LastFilterName as String
 345     Dim i as integer
 346     Dim q as integer
 347     Dim iFileSize(50) as Long
 348     Dim FileList(50) as String
 349     Dim FileList2(50) as string
 350     Dim Filesize1 as Long
 351     Dim Filesize2 as Long
 352     Dim Filename as String
 353     Dim Filetype as String
 354     Dim SavedFileType as String
 355     Dim OrgFile as String
 356     Dim NewFile as String
 357     Dim OrgFileDir as String
 358     Dim NewFileDir as String
 359     Dim Testsize as Boolean
 360     Dim Found as Boolean
 361
 362     OrgFileDir = ConvertPath ( gTesttoolPath + "graphics\required\input\SaveAsPicture\" )
 363     NewFileDir = ConvertPath ( gOfficePath + "user\work\SaveAsPicture\" )
 364
 365     app.mkDir (NewFileDir)
 366     sleep 3
 367     FileList2(0) = 0
 368     GetFileList ((ConvertPath (NewFileDir)), "*.*" , FileList2() )
 369     sleep 1
 370     if (KillFileList (FileList2()) <> TRUE) then
 371         for i = 1 to ListCount2 (FileList2())
 372             Warnlog "File Not deleted: " + i + ": '" + FileList2(i) + "'"
 373         next i
 374     endif
 375
 376     Call hNewDocument
 377     setClipboard(" ")
 378     sleep 2
 379     InsertGraphicsFromFile
 380     Kontext "GrafikEinfuegenDlg"
 381     Counter = Dateityp.GetItemCount
 382
 383     Pfad.SetText OrgFileDir
 384     Pfad.TypeKeys ("<Return>")
 385     Kontext "Active"
 386     if Active.Exists then
 387         warnlog "Error when going to the directory " + OrgFileDir + ". Active: " + Active.GetText
 388         Active.OK
 389     endif
 390     Kontext "GrafikEinfuegenDlg"
 391
 392     if Dateityp.GetItemCount > 0 then
 393         Printlog "The ImportGraphic-Dialogue has " + Dateityp.GetItemCount + " File-types."
 394     else
 395         Warnlog "The ImportGraphic-Dialogue doesn't have any File-types listed"
 396     endif
 397
 398     for i = 2 to Dateityp.GetItemCount 'Get the number of entries.
 399         Printlog " *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* "
 400         Pfad.SetText OrgFileDir
 401         Pfad.TypeKeys ("<Return>")
 402         Kontext "Active"
 403         if Active.Exists then
 404             warnlog "Error when going to the directory " + OrgFileDir + ". Active: " + Active.GetText
 405             Active.OK
 406         endif
 407         Kontext "GrafikEinfuegenDlg"
 408
 409         if Dateityp.GetItemCount < 1 then
 410             Warnlog "Only one or none selectable fileformats."
 411         endif
 412         Dateityp.Select i
 413         Filetype = Dateityp.GetSelText
 414         printlog " orginal: " + Dateityp.GetSelText
 415         Filetype = left(Right(Dateityp.GetSelText,4),3)
 416
 417         DateiAuswahl.TypeKeys "<END>"
 418         DateiAuswahl.TypeKeys "<SPACE>"
 419         if DateiAuswahl.GetItemCount < 1 then
 420             warnlog "The file with the extension " + Filetype + " does not exist. Please inform FHA."
 421         else
 422             printlog "   Selected: " + DateiAuswahl.GetSelText
 423             Filename = Dateiname.GetSelText
 424             OrgFile = ConvertPath (OrgFileDir + Dateiname.GetSelText)
 425             printlog "   File is: " + OrgFile
 426
 427             iFileSize(i) = app.FileLen(OrgFile)
 428             printlog "   The filesize was: " + iFileSize(i)
 429
 430             DateiAuswahl.TypeKeys "<DOWN>",true
 431             if DateiAuswahl.GetSelText <> Filename then
 432                 warnlog "More than one file with the same extension. Contact Test-Administrator."
 433             endif
 434
 435             if Link.IsChecked <> true then
 436                 Link.Check
 437             endif
 438             Oeffnen.Click
 439
 440             if (gApplication = "IMPRESS") then
 441                 Kontext "DocumentImpress"
 442             else
 443                 Kontext "DocumentDraw"
 444             endif
 445             EditSelectall
 446
 447             hOpenContextMenu
 448             if (gApplication = "IMPRESS") then
 449                 Kontext "DocumentImpress"
 450                 DocumentImpress.OpenContextMenu true
 451                 if hMenuFindSelect(27353, true, (MenuGetItemCount - 4), true) = false then
 452                     Warnlog "Context-Menu-entry `SaveAsGraphics` was not found. Therefore the test ends."
 453                     Call hCloseDocument
 454                     Goto Endsub
 455                 endif
 456             else  'Should be Draw
 457                 Kontext "DocumentDraw"
 458                 DocumentDraw.OpenContextMenu true
 459                 if hMenuFindSelect(27353, true, (MenuGetItemCount - 4), false) = false then
 460                     Warnlog "Context-Menu-entry `SaveAsGraphics` was not found. Therefore the test ends."
 461                     Call hCloseDocument
 462                     Goto Endsub
 463                 endif
 464             endif
 465             sleep 1
 466
 467             Kontext "ExportierenDlg"
 468             if ExportierenDlg.IsVisible then
 469                 Printlog "   'Save As Picture' came up correctly when using the Context-menu."
 470             endif
 471
 472             Kontext "ExportierenDlg" 'SaveAsDialogue
 473
 474             Testsize = false
 475             Found = true
 476             SavedOrgPosition = Dateityp.GetSelIndex
 477             select case left(lcase(Dateityp.GetSelText),3) 'Filetype
 478             case "png" : if (Filetype = "png") then
 479                 printlog "   " + Filetype + " will be saved as png, correct."
 480                 SavedFileType = "png"
 481                 Testsize = true
 482                 CounterShouldBe = 17
 483             else
 484                 warnlog "Png should not have been selected when we opened a '" + Filetype + "'-file."
 485             endif
 486         case "pcx" : if(Filetype = "pcx") then
 487             printlog "   " + Filetype + " will be saved as pcx, correct."
 488             SavedFileType = "pcx"
 489             Testsize = true
 490             CounterShouldBe = 18
 491         else
 492             warnlog "Png should not have been selected when we opened a '" + Filetype + "'-file."
 493         endif
 494     case "xbm" : if (Filetype = "xbm") then
 495         printlog "   " + Filetype + " will be saved as xbm, correct."
 496         SavedFileType = "xbm"
 497         Testsize = true
 498         CounterShouldBe = 18
 499     else
 500         warnlog "xbm should not have been selected when we opened a '" + Filetype + "'-file."
 501     endif
 502 case "xpm" : if (Filetype = "xpm") then
 503     printlog "   " + Filetype + " will be saved as Xpm, correct."
 504     SavedFileType = "xpm"
 505     Testsize = true
 506     CounterShouldBe = 17
 507 else
 508     warnlog "xpm should not have been selected when we opened a '" + Filetype + "'-file."
 509 endif
 510 case "svm" : if (Filetype = "svm") then
 511 printlog "   " + Filetype + " will be saved as Svm, correct."
 512 SavedFileType = "svm"
 513 if (Filetype = "svm") then Testsize = true
 514     CounterShouldBe = 17
 515 else
 516     warnlog "Svm should not have been selected when we opened a '" + Filetype + "'-file."
 517 endif
 518 case "tga" : if (Filetype = "tga") then
 519 printlog "   " + Filetype + " will be saved as Svm, correct."
 520 SavedFileType = "tga"
 521 if (Filetype = "tga") then Testsize = true
 522     CounterShouldBe = 18
 523 else
 524     warnlog "Tga should not have been selected when we opened a '" + Filetype + "'-file."
 525 endif
 526 case "bmp" : if (Filetype = "bmp") then
 527 printlog "   " + Filetype + " will be saved as Bmp, correct."
 528 SavedFileType = "bmp"
 529 Testsize = true
 530 CounterShouldBe = 17
 531 else
 532 warnlog "Bmp should not have been selected when we opened a '" + Filetype + "'-file."
 533 endif
 534 case "ppm" : if (Filetype = "ppm") then
 535 printlog "   " + Filetype + " will be saved as Bmp, correct."
 536 SavedFileType = "ppm"
 537 if Filetype = "ppm" then Testsize = true
 538 CounterShouldBe = 17
 539 else
 540 warnlog "Ppm should not have been selected when we opened a '" + Filetype + "'-file."
 541 endif
 542 case "eps" : if (Filetype = "eps") then
 543 printlog "   " + Filetype + " will be saved as Eps, correct."
 544 SavedFileType = "eps"
 545 if Filetype = "eps" then Testsize = true
 546 CounterShouldBe = 17
 547 else
 548 warnlog "Eps should not have been selected when we opened a '" + Filetype + "'-file."
 549 endif
 550 case "pgm" : if (Filetype = "pgm") then
 551 printlog "   " + Filetype + " will be saved as Pgm, correct."
 552 SavedFileType = "pgm"
 553 if Filetype = "pgm" then Testsize = true
 554 CounterShouldBe = 17
 555 else
 556 warnlog "Pgm should not have been selected when we opened a '" + Filetype + "'-file."
 557 endif
 558 case "dxf" : if (Filetype = "dxf") then
 559 printlog "   " + Filetype + " will be saved as Dxf, correct."
 560 SavedFileType = "dxf"
 561 if Filetype = "dxf" then Testsize = true
 562 CounterShouldBe = 18
 563 else
 564 warnlog "Dxf should not have been selected when we opened a '" + Filetype + "'-file."
 565 endif
 566 case "pbm" : if (Filetype = "pbm") then
 567 printlog "   " + Filetype + " will be saved as Pbm, correct."
 568 SavedFileType = "pbm"
 569 if Filetype = "pbm" then Testsize = true
 570 CounterShouldBe = 17
 571 else
 572 warnlog "Pbm should not have been selected when we opened a '" + Filetype + "'-file."
 573 endif
 574 case "ras" : if (Filetype = "ras") then
 575 printlog "   " + Filetype + " will be saved as Ras, correct."
 576 SavedFileType = "ras"
 577 if Filetype = "ras" then Testsize = true
 578 CounterShouldBe = 17
 579 else
 580 warnlog "Ras should not have been selected when we opened a '" + Filetype + "'-file."
 581 endif
 582 case "wmf" : if (Filetype = "wmf") or (Filetype = "emf") then
 583 printlog "   " + Filetype + " will be saved as Wmf, correct."
 584 SavedFileType = "wmf"
 585 if Filetype = "wmf" then Testsize = true
 586 CounterShouldBe = 17
 587 else
 588 warnlog "Wmf should not have been selected when we opened a '" + Filetype + "'-file."
 589 endif
 590 case "emf" : if (Filetype = "emf") then
 591 printlog "   " + Filetype + " will be saved as Wmf, correct."
 592 SavedFileType = "emf"
 593 Testsize = true
 594 CounterShouldBe = 17
 595 else
 596 qaerrorlog "Wmf should not have been selected when we opened a '" + Filetype + "'-file. #i95364#"
 597 endif
 598 case "jpe" : if (Filetype = "jpg") OR Filetype = "jif" OR Filetype = "peg" then
 599 printlog "   " + Filetype + " will be saved as Jpg, correct."
 600 SavedFileType = "jpg"
 601 Testsize = true
 602 CounterShouldBe = 17
 603 else
 604 warnlog "Jpg should not have been selected when we opened a '" + Filetype + "'-file."
 605 endif
 606 case "tif" : if Filetype = "tif" OR Filetype = "iff"  then
 607 printlog "   " + Filetype + " will be saved as Tiff, correct."
 608 SavedFileType = "tif"
 609 Testsize = true
 610 CounterShouldBe = 17
 611 else
 612 warnlog "Tif should not have been selected when we opened a '" + Filetype + "'-file."
 613 endif
 614 case "sgf" : if (Filetype = "sgf") OR (Filetype = "sgv") then  'sgf
 615 printlog "   " + Filetype + " will be saved as Sgf, correct."
 616 SavedFileType = "sgf"
 617 Testsize = true
 618 CounterShouldBe = 18
 619 else
 620 warnlog "Sgf should not have been selected when we opened a '" + Filetype + "'-file."
 621 endif
 622 case "gif" : if (Filetype = "gif") then
 623 SavedFileType = "gif"
 624 printlog "   " + Filetype + " will be saved as Gif, correct."
 625 if Filetype = "gif" then Testsize = true
 626 CounterShouldBe = 17
 627 else
 628 warnlog "Gif should not have been selected when we opened a '" + Filetype + "'-file."
 629 endif
 630 case "met" : if (Filetype = "met") then
 631 printlog "   " + Filetype + " will be saved as Met, correct."
 632 SavedFileType = "met"
 633 if Filetype = "met" then Testsize = true
 634 CounterShouldBe = 17
 635 else
 636 warnlog "Met should not have been selected when we opened a '" + Filetype + "'-file."
 637 endif
 638 case "pct" : if (Filetype = "pct") OR (Filetype = "ict") then
 639 printlog "   " + Filetype + " will be saved as Pct, correct."
 640 SavedFileType = "pct"
 641 if Filetype = "pct" then Testsize = true
 642 CounterShouldBe = 17
 643 else
 644 warnlog "Pct should not have been selected when we opened a '" + Filetype + "'-file."
 645 endif
 646 case "pcd" : if (Filetype = "pcd") then
 647 printlog "   " + Filetype + " will be saved as Pcd, correct."
 648 SavedFileType = "pcd"
 649 if Filetype = "pcd" then Testsize = true
 650 CounterShouldBe = 18
 651 else
 652 warnlog "Pcd should not have been selected when we opened a '" + Filetype + "'-file."
 653 endif
 654 case "psd" : if (Filetype = "psd") then
 655 printlog "   " + Filetype + " will be saved as Psd, correct."
 656 SavedFileType = "psd"
 657 if Filetype = "psd" then Testsize = true
 658 CounterShouldBe = 18
 659 else
 660 warnlog "Psd should not have been selected when we opened a '" + Filetype + "'-file."
 661 endif
 662 case else : qaerrorlog "   The test has not yet been fitted for this format ( " + Filetype + "). Contact FHA."
 663 printlog "   But will be saved as: " + left(lcase(Dateityp.GetSelText),3)
 664 CounterShouldBe = 18
 665 Found = false
 666 end select
 667
 668 Dateityp.TypeKeys "<HOME>"
 669 if (Dateityp.GetItemCount) = CounterShouldBe then  'Counter - 10
 670 for q = 1 to CounterShouldBe - 1
 671 LastFilterName = Dateityp.GetSelIndex
 672 Dateityp.TypeKeys "<DOWN>"
 673 if Dateityp.GetSelIndex = LastFilterName then
 674 warnlog "   Check the export-filters when trying to save a " + Filename + "-file. Exiting Test."
 675 goto endsub
 676 endif
 677 next q
 678 else
 679 warnlog "Dateityp.GetItemCount  = " + (Dateityp.GetItemCount) + "  CounterShouldBe =  " + CounterShouldBe
 680 endif
 681 Dateityp.Select SavedOrgPosition
 682
 683 Dateiname.SetText ( NewFileDir )
 684 Dateiname.TypeKeys ("<Return>")
 685
 686 kontext "Active"
 687 if Active.Exists then  'Could not find directory.
 688 warnlog "Error when going to the directory " + NewFileDir + ". Active: " + Active.GetText
 689 warnlog "ABORTING TESTCASE. PLEASE INFORM THE TESTPROGRAMMER."
 690 Active.OK
 691 kontext "GrafikEinfuegenDlg"
 692 GrafikEinfuegenDlg.Close
 693 goto Endsub
 694 endif
 695 Kontext "ExportierenDlg"
 696
 697 sleep 1
 698
 699 if Found = false then
 700 NewFile = ConvertPath ( NewFileDir + "SaveAsPicture"  + "." + left(lcase(Dateityp.GetSelText),3) )
 701 else
 702 NewFile = ConvertPath ( NewFileDir + "SaveAsPicture"  + "." + SavedFileType ' left(lcase(Dateityp.GetSelText),3) )
 703 endif
 704 Dateiname.SetText NewFile
 705
 706 Dateiname.TypeKeys ("<Return>")
 707 Kontext "Active"
 708 if Active.Exists then  'either could not find directory, or overwrite.
 709 Active.Yes ' Overwrite?
 710 endif
 711
 712 if Testsize = true then
 713 if NewFile <> "" then
 714 Filesize1 = iFileSize(i)
 715 printlog "   Saved file-size was: " + app.FileLen(NewFile)
 716 Filesize2 = app.FileLen(NewFile)
 717 endif
 718 endif
 719
 720 if (Testsize = true) AND (Filesize1 <> Filesize2) then
 721 qaerrorlog "Format '" + right(NewFile,3) + "' was NOT saved properly. Org-Size: '" + Filesize1 + "' Saved-Size: '" + Filesize2 + "'.#i95364#"
 722 else
 723 printlog "   The Format '" + right(NewFile,3) + "' was saved correctly."
 724 endif
 725
 726 if (gApplication = "IMPRESS") then
 727 Kontext "DocumentImpress"
 728 else
 729 Kontext "DocumentDraw"
 730 endif
 731 hTypeKeys "<DELETE>"
 732 call hCloseDocument
 733 call hNewDocument
 734 InsertGraphicsFromFile
 735 Kontext "GrafikEinfuegenDlg"
 736 if GrafikEinfuegenDlg.exists(5) then
 737 printlog "   The Insertgraphics-dialogue showed up correctly."
 738 sleep (5)
 739 else
 740 warnlog "   The Insertgraphics-dialogue didn't show up."
 741 endif
 742 endif
 743 next i
 744
 745 GrafikEinfuegenDlg.Close
 746
 747 GetFileList (NewFileDir, "*.*" , FileList() )
 748 sleep 1
 749 if (KillFileList (FileList()) <> TRUE) then
 750 for i = 1 to ListCount (FileList())
 751 Warnlog "File Not deleted: " + i + ": '" + FileList(i) + "'"
 752 next i
 753 endif
 754 Printlog "The test will exit now."
 755 Sleep 1
 756 Call  hCloseDocument
 757
 758 endcase 'tContextSaveAsPicture
 759
 760 '******************************************************************************************************************************'
 761
 762 testcase Mnemonickey
 763     qaerrorlog "Not yet ready."
 764     goto endsub
 765
 766     if iSprache = 01 then
 767         ExportierenDlg.Close
 768         hOpenContextMenu
 769         TypeKeys ("<SHIFT S>")
 770         kontext "ExportierenDlg"
 771         if ExportierenDlg.IsVisible then
 772             Printlog "'Save As Picture' came up correctly when using the Context-menu."
 773         endif
 774     endif
 775 endcase