testautomation/graphics/optional/includes/impress/i_slidelayer.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: i_slidelayer.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-08-28 11:44:12 $
  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 tiInsertExpandSlide
  40 ' #1 tiInsertSummarySlide
  41 ' #1 tiFormatSeitenlayout
  42 ' #1 t114174
  43 ' #1 t111862
  44 '\********************************************************************
  45
  46 '  Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
  47 '  Inhalt.SetText ConvertPath (gTesttoolPath + "graphics\required\input\leer.sxd")    '/// auto.sdd choosen ///'
  48
  49 '-------------------------------------------------------------------------------
  50 testcase tiInsertExpandSlide
  51
  52    dim i,x as integer
  53    dim sTemp as string
  54    dim b116350 as boolean
  55
  56    '/// open application ///'
  57    Call hNewDocument
  58    '/// create presupposition ///
  59    '///+ View->Master View->Outline View ///'
  60    ViewWorkspaceOutlineView
  61       Sleep 1
  62       Kontext "DocumentImpressOutlineView"
  63       '///+ create a slide with some levels...and some more slides with just one level...  ///'
  64       '///+ it should look like this: ///'
  65       '///+-------------------------------------------------- ///'
  66       '///+ Slide 1///'
  67       '///+ - A ///'
  68       '///+ - - B///'
  69       '///+ - - - C///'
  70       '///+ - - - - D///'
  71       '///+ - - - - - - F///'
  72       '///+ - B///'
  73       '///+ - C///'
  74       '///+ - D///'
  75       '///+ Slide 2 ///'
  76       '///+ Slide 3 ///'
  77       '///+ Slide 4 ///'
  78       '///+ Slide 5 ///'
  79       '///+-------------------------------------------------- ///'
  80       DocumentImpressOutlineView.TypeKeys "Slide 1"
  81       for i = 1 to 6
  82          DocumentImpressOutlineView.TypeKeys "<return><tab>"
  83          DocumentImpressOutlineView.TypeKeys chr(64+i)
  84       next i
  85       DocumentImpressOutlineView.TypeKeys "<return>"
  86       DocumentImpressOutlineView.TypeKeys ("<shift tab>",5)
  87       for i = 1 to 3
  88          DocumentImpressOutlineView.TypeKeys chr(65+i)
  89          DocumentImpressOutlineView.TypeKeys "<return>"
  90       next i
  91       DocumentImpressOutlineView.TypeKeys ("<shift tab>")
  92       for i = 2 to 5
  93          DocumentImpressOutlineView.TypeKeys "Slide " + i
  94          DocumentImpressOutlineView.TypeKeys "<return>"
  95       next i
  96       DocumentImpressOutlineView.TypeKeys "<backspace>"
  97    '///+ View->Master View->Drawing View ///'
  98    ViewWorkspaceDrawingView
  99       Sleep 1
 100       '///+ there have to be 5 slides now ///'
 101       fGetSlideCount (5)
 102
 103       '/// goto the first slide ///'
 104       hTypeKeys "<home>"
 105    '///<b> Insert->Expand Slide </b>///'
 106    InsertExpandSlide
 107       ' usually the content of the new pages is the same as the curren, there is a slide created for every part in the first outline level (gliederungsebene)
 108       Sleep 1
 109       if (8 = fGetSlideCount (8)) then
 110          printlog "Insert Expand Slide accomplished correctly"
 111       else
 112          warnLog "Bug with Insert Expand Slide"
 113       endif
 114       '///+ check slide content ///'
 115       hTypeKeys ("<TAB><F2>"
 116       EditSelectAll
 117       EditCopy
 118       sTemp = GetClipboard()
 119       if (sTemp <> "A") then
 120          Warnlog "wrong slide content, expected: '" + "Slide 1" + "'; but got: '" + sTemp + "'"
 121       else
 122          Printlog "OK :-)"
 123       endif
 124       for i = 2 to 4
 125          hTypeKeys "<pagedown>"
 126          hTypeKeys ("<TAB><F2>")
 127          EditSelectAll
 128          EditCopy
 129          sTemp = GetClipboard()
 130          if (sTemp <> chr(64+i)) then
 131             Warnlog "Wrong slide content, expected: '" + chr(64+i) + "'; but got: '" + sTemp + "'"
 132          else
 133             Printlog "OK :-)"
 134          endif
 135       next i
 136       for i = 2 to 5
 137          hTypeKeys "<pagedown>"   'If the first slide existed, this is where it would have been.
 138          hTypeKeys ("<TAB><F2>")
 139          EditSelectAll
 140          EditCopy
 141          sTemp = GetClipboard()
 142          if (sTemp <> ("Slide "+i)) then
 143             Warnlog "Wrong slide content, expected: '" + "Slide "+i + "'; but got: '" + sTemp + "'"
 144          else
 145             Printlog "OK :-)"
 146          endif
 147       next i
 148
 149       hTypeKeys "<escape><home>"
 150    '///<b> Insert->Expand Slide </b>///'
 151    InsertExpandSlide
 152       '/// And since the Second slide now should be named "B", we check that first ///'
 153       hTypeKeys ("<TAB><F2>")
 154       EditSelectAll
 155       try
 156          EditCopy
 157       catch
 158          printlog "Something wrong when trying to select Slide-name."
 159       endcatch
 160       sTemp = GetClipboard()
 161       if (sTemp <> "B") then
 162          Warnlog "Wrong slide content, expected: 'B'; but got: '" + sTemp + "'"
 163       else
 164          Printlog "OK :-)"
 165       endif
 166       hTypeKeys "<pagedown>"
 167       hTypeKeys ("<TAB><F2>")
 168       EditSelectAll
 169       for i = 2 to 4
 170          try
 171             EditCopy
 172          catch
 173             printlog "Something wrong when trying to select Slide-name."
 174          endcatch
 175          sTemp = GetClipboard()
 176          if (sTemp <> chr(64+i)) then
 177             Warnlog "Wrong slide content, expected: '" + chr(64+i) + "'; but got: '" + sTemp + "'"
 178          else
 179             Printlog "OK :-)"
 180          endif
 181          hTypeKeys "<pagedown>"
 182          hTypeKeys ("<TAB><F2>")
 183          EditSelectAll
 184          next i
 185       for i = 2 to 5
 186          EditCopy
 187          sTemp = GetClipboard()
 188          if (sTemp <> ("Slide "+i)) then
 189             Warnlog "Wrong slide content, expected: '" + "Slide "+i + "'; but got: '" + sTemp + "'"
 190          else
 191             Printlog "OK :-)"
 192          endif
 193          hTypeKeys "<pagedown>"   'If the first slide existed, this is where it would have been.
 194          hTypeKeys ("<TAB><F2>")
 195          EditSelectAll
 196          next i
 197
 198    '/// close application ///'
 199    Call  hCloseDocument
 200 endcase 'tiInsertExpandSlide
 201
 202 '-------------------------------------------------------------------------------
 203 testcase tiInsertSummarySlide
 204
 205     dim i as integer
 206     dim sTemp as string
 207     dim saText (10) as string
 208
 209     for i = 1 to 7
 210         saText (i) = chr(64+i)
 211     next i
 212     saText (5) = ""
 213     saText (7) = ""
 214
 215     printlog "Open application."
 216     Call hNewDocument
 217
 218     printlog "Presupposition : on the slide has to be something from the outline view AND i have to be on such a slide!"
 219     printlog "View->Master View->Outline View."
 220     ViewWorkspaceOutlineView
 221     Sleep 1
 222     Kontext "DocumentImpressOutlineView"
 223     DocumentImpressOutlineView.TypeKeys "<home>"
 224     printlog "+ create 7 slides like this:"
 225     printlog "+--------------------------------------------------"
 226     printlog "+ A "
 227     printlog "+ B"
 228     printlog "+ C"
 229     printlog "+ D"
 230     printlog "+  "
 231     printlog "+ F"
 232     printlog "+  "
 233     printlog "+--------------------------------------------------"
 234     for i = 1 to 7
 235         DocumentImpressOutlineView.TypeKeys (saText(i) + "<return>")
 236     next i
 237
 238     printlog "View->Master View->Drawing View ."
 239     ViewWorkspaceDrawingView
 240     Sleep 1
 241     printlog "Goto first slide by typing [home]"
 242     hTypeKeys "<Home>"
 243     printlog "test menue entries"
 244     printlog "Insert->Summery Slide."
 245     try
 246         InsertSummerySlide
 247     catch
 248         warnlog "InsertSummerySlide didnt work. Check why."
 249     endcatch
 250     Sleep 1
 251     printlog "slide is appended after the last slide"
 252     printlog "the content of the slide depends on from which slide the function was called!"
 253     printlog "it is only from the actual slide to the end of the presentation"
 254     printlog "it is aloowed to have a slide without the outline stuff inbetween"
 255     printlog "check slide content"
 256     hTypeKeys "<Tab>"
 257     wait 50
 258     htypekeys "<Tab>"
 259     wait 50
 260     htypekeys "<F2>"
 261     wait 50
 262     htypekeys "<mod1 Home>"
 263     wait 50
 264     for i = 1 to 7
 265         hTypeKeys "<Shift End>"
 266         EditCopy
 267         sTemp = GetClipboardText
 268         if (saText(i) <> sTemp) then
 269             if ((i=5) OR (i=7)) then
 270                 if (saText(6) <> sTemp) then
 271                     Warnlog "WRONG: is: '" + sTemp + "'; should: '" + saText(6) + "'"
 272                 else
 273                     Printlog "is: '" + sTemp + "'; should: '" + saText(i) + "'"
 274                 endif
 275              else
 276                 Warnlog "WRONG: is: '" + sTemp + "'; should: '" + saText(i) + "'"
 277             endif
 278         else
 279             Printlog "is: '" + sTemp + "'; should: '" + saText(i) + "'"
 280         endif
 281         hTypeKeys "<down><home>"
 282     next i
 283     printlog "close application"
 284     Call  hCloseDocument
 285 endcase 'tiInsertSummarySlide
 286
 287 '------------------------------------------------------------------------------
 288 testcase tiFormatSeitenlayout
 289
 290     qaerrorlog "outcommented due to bug"
 291     goto endsub
 292
 293         Printlog "Format/Page Layout"
 294      Call hNewDocument               '/// new impress document ///'
 295
 296      FormatPage                '/// format page ///'
 297      Kontext "Tasks"
 298      sleep 5
 299      SetClipboard LayoutsPreview.GetText       '/// get page name ///'
 300      SeitenName.SetText "Test"          '/// change page name ///'
 301      sleep 1
 302      if Hintergrund.IsChecked=False Then         '/// check background ///'
 303        Hintergrund.Check
 304      else
 305        Hintergrund.UnCheck
 306             if Hintergrund.IsChecked=False Then PrintLog " Background is deactivated"
 307      end if
 308
 309      if ObjekteAufDemHintergrund.IsChecked = True Then       '/// change status of objects on background ///'
 310        PrintLog " Object on background is activated"
 311        ObjekteAufDemHintergrund.UnCheck
 312        if ObjekteAufDemHintergrund.IsChecked = False Then PrintLog " Objects on background are deactivated"
 313      else
 314        ObjekteAufDemHintegrund.Check
 315        PrintLog " Object on background is activated"
 316      end if
 317      Seitenlayout.OK              '/// close dialog ///'
 318      sleep 1
 319      FormatPage                '/// reopen dialog ///'
 320      Kontext "LayoutsPreview"
 321      sleep 2
 322      if GetClipboardText <> SeitenName.GetText Then
 323        PrintLog " Page name is correct"
 324      else
 325        WarnLog " Page name is not correct"
 326      end if
 327      sleep 2
 328      LayoutsPreview.TypeKeys "<TAB>"            '/// assign different page layout ///'
 329      LayoutsPreview.TypeKeys "<DOWN>" ,2
 330      LayoutsPreview.TypeKeys "<Return>"
 331      sleep 2
 332      Kontext
 333      if Active.Exists (5) then
 334         printlog "active (1): "+active.gettext
 335         Active.OK
 336      else
 337         kontext "Pagelayout_UndoDeleteWarning"
 338         Pagelayout_UndoDeleteWarning.OK
 339         printlog "Can't redo this action! Apply template? -> OK (1) "
 340         'DontShowAgain.check ' since it's a level2 test i COULD do this .-) TBO
 341      endif
 342      Kontext "DocumentImpress"
 343      sleep 3
 344      DocumentImpress.MouseDoubleClick 25,60
 345      sleep 3
 346      Kontext "GrafikEinfuegenDlg"          '/// check in document if layout has changed ///'
 347      sleep 2
 348      if GrafikEinfuegenDlg.exists (5) then
 349         try
 350           DateiName.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\baer.tif")
 351           sleep 3
 352           Preview.Check
 353           sleep 3
 354           Oeffnen.Click
 355           sleep 3
 356           Kontext "Active"
 357            if Active.Exists Then
 358               Warnlog Active.GetText
 359               Active.OK
 360            end if
 361         catch
 362           WarnLog " LayoutsPreview did not work"
 363         endcatch
 364      else
 365         warnlog "Clicked beside :-( I tried to click into the dokument, to insert a graphic, but missed the right point :-("
 366      endif
 367       sleep 3
 368      Kontext "DocumentImpress"
 369      Call hCloseDocument             '/// close document ///'
 370     endcase 'tiFormatSeitenlayout
 371
 372 '------------------------------------------------------------------------------
 373 testcase t114174
 374
 375     '/// resulting from regression in #111862#  ///'
 376     dim sReference(2) as string
 377     dim sText(2) as string
 378     dim i as integer
 379     dim sFile as string
 380
 381     if gApplication = "IMPRESS" then
 382         ExtensionString = "odp"
 383     else
 384         ExtensionString = "odg"
 385     end if
 386     printlog "Used extension string is: " & ExtensionString
 387     sFile = convertPath(gOfficePath + "user/work/" + getTestcaseName & "." & ExtensionString)
 388     printlog "Filepath is: " & sFile
 389    if Dir (sFile) <> "" then kill (sFile)
 390
 391     sReference(1) = "Koelle"
 392     sReference(2) = "Alaaf!"
 393     '/// open application ///'
 394     Call hNewDocument
 395
 396     '/// Format->Modify Layout ///'
 397     FormatPage
 398     Kontext "Tasks"
 399         LayoutsPreview.TypeKeys "<TAB>"
 400         LayoutsPreview.TypeKeys "<Home><Right>"
 401
 402       kontext "Pagelayout_UndoDeleteWarning"
 403       if Pagelayout_UndoDeleteWarning.exists then
 404          Pagelayout_UndoDeleteWarning.ok
 405       endif
 406     Kontext "Tasks"
 407     LayoutsPreview.TypeKeys "<Return>"
 408     printlog "(a) setting title and body text"
 409     for i = 1 to 2
 410         hTypeKeys("<Tab><F2>")
 411         hTypeKeys(sReference(i))
 412         EditSelectAll
 413         EditCopy
 414         sText(i) = getClipboardText()
 415         printlog sText(i)
 416         hTypeKeys("<Escape>")
 417         if (sText(i) <> sReference(i)) then
 418             warnlog "(1) selected text '" + sText(i) + "' is different from inserted text '" + sReference(i) + "'"
 419         endif
 420     next i
 421
 422     '/// deselect all by typing key 'ESCAPE' again ///'
 423     hTypeKeys("<Escape>")
 424
 425     hFileSaveAsKill(sFile)
 426     sleep 5
 427
 428     printlog "(b) checking title and body text"
 429     for i = 1 to 2
 430         hTypeKeys("<Tab><F2>")
 431         EditSelectAll
 432         try
 433             EditCopy
 434             sText(i) = getClipboardText()
 435         catch
 436             sText(i) = ""
 437         endcatch
 438         if (sText(i) <> sReference(i)) then
 439             warnlog "   (2) selected text '" + sText(i) + "' is different from inserted text '" + sReference(i) + "'"
 440         endif
 441         hTypeKeys("<Escape>")
 442     next i
 443
 444     hCloseDocument()
 445
 446     printlog "   (c) checking title and body text of saved document"
 447     hFileOpen(sFile)
 448     sleep 5
 449     for i = 1 to 2
 450         hTypeKeys("<Tab><F2>")
 451         EditSelectAll
 452         try
 453             EditCopy
 454             sText(i) = getClipboardText()
 455         catch
 456             sText(i) = ""
 457         endcatch
 458         hTypeKeys("<Escape>")
 459         if (sText(i) <> sReference(i)) then
 460             warnlog "   (3) selected text '" + sText(i) + "' is different from inserted text '" + sReference(i) + "'"
 461         endif
 462     next i
 463
 464     hCloseDocument()
 465 endcase 't114174
 466
 467 '------------------------------------------------------------------------------
 468 testcase t111862
 469
 470     qaerrorlog "outcommented due to bug"
 471     goto endsub
 472     dim sReference(2) as string
 473     dim sText(2) as string
 474     dim i as integer
 475     dim sFile as string
 476
 477     sFile = convertPath(gOfficePath + "/user/work/" + getTestcaseName + ".sxi")
 478
 479     if FileExists(sFile) then
 480         kill sFile
 481     endif
 482
 483     sReference(1) = "Koelle"
 484     sReference(2) = "Alaaf!"
 485     '/// open application ///'
 486     Call hNewDocument
 487
 488     '/// Format->Modify Layout ///'
 489     Formatpage
 490     Kontext "Tasks"
 491         LayoutsPreview.TypeKeys "<TAB>"
 492         LayoutsPreview.TypeKeys "<Home>"
 493         LayoutsPreview.TypeKeys "<Return>"
 494         Kontext "Pagelayout_UndoDeleteWarning"
 495            if Pagelayout_UndoDeleteWarning.exists(5) then
 496               Pagelayout_UndoDeleteWarning.OK
 497            endif
 498         Kontext "Tasks"
 499            LayoutsPreview.TypeKeys "<Right>"
 500            LayoutsPreview.TypeKeys "<Return>"
 501         Kontext "Pagelayout_UndoDeleteWarning"
 502            if Pagelayout_UndoDeleteWarning.exists(5) then
 503               Pagelayout_UndoDeleteWarning.OK
 504            endif
 505         Kontext "Tasks"
 506            LayoutsPreview.TypeKeys "<Right>"
 507            LayoutsPreview.TypeKeys "<Return>"
 508         Kontext "Pagelayout_UndoDeleteWarning"
 509            if Pagelayout_UndoDeleteWarning.exists(5) then
 510               Pagelayout_UndoDeleteWarning.OK
 511            endif
 512
 513     EditSelectAll
 514     i=0
 515     gMouseMove2(30,1)
 516     while ((getMouseStyle <> 6) AND (i<100))
 517         inc (i)
 518         gMouseMove2(30,i)
 519         'printlog getMouseStyle
 520     wend
 521
 522     gMouseMove(30, i, 70, i+20)
 523
 524     hCloseDocument()
 525
 526 endcase 't111862
 527 '------------------------------------------------------------------------------