testautomation/graphics/optional/includes/impress/i_animation.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_animation.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 tExtrasAnimation
  40 '\********************************************************************
  41
  42 '    Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
  43 ' Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\grafix3.ras")
  44
  45 testcase tExtrasAnimation
  46     Printlog "- Tools/Animation"
  47  Dim i
  48  Call hNewDocument                                                                      '/// New impress document ///'
  49  sleep 2
  50  InsertGraphicsFromFile                                                                 '/// insert graphic file (sample.bmp) ///'
  51  sleep 1
  52  Kontext "GrafikEinfuegenDlg"
  53  sleep 2
  54
  55     Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
  56     sleep 2
  57     Oeffnen.Click
  58     sleep 2
  59  Kontext "DocumentImpress"
  60  DocumentImpress.MouseDoubleClick 90,90                                                 '/// Deselect graphic ///'
  61  sleep 1
  62  InsertGraphicsFromFile
  63  sleep 2
  64  Kontext "GrafikEinfuegenDlg"
  65  Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\grafix3.ras")
  66  sleep 2
  67  Oeffnen.Click
  68  sleep 2
  69  Opl_SD_EffekteZulassen
  70  Kontext "Animation"
  71
  72  for i=1 to 10
  73      BildAufnehmen.Click                                                                '/// add selected picture 10 times into the animation ///'
  74  next i
  75  sleep 1
  76   if AnzahlBilder.GetText <> "10" Then                                                  '/// compare frame number in animation dialog ///'
  77      WarnLog "  - Adding graphics did not work"
  78   else
  79      PrintLog "  Pictures added"
  80   end if
  81
  82  if AlleAufnehmen.IsEnabled Then WarnLog "  - Add all should not be enabled, there is only 1 graphic selected"  '/// test if Add all is eneabled (shouldn't be because of only 1 object selected) ///'
  83  Kontext "DocumentImpress"
  84  EditSelectAll                                                  '/// Select both pictures ///'
  85
  86  Kontext "Animation"
  87
  88  for i=1 to 5
  89      AlleAufnehmen.Click                                                                '/// Add all (5 times) ///'
  90  next i
  91  sleep 1
  92   if AnzahlBilder.GetText <> "20" Then                                                  '/// check if number of frames is now 20 ///'
  93      WarnLog "  - Adding pics did not work"
  94   else
  95      PrintLog "  All pics added"
  96   end if
  97
  98  ErstesBild.Click                                                                       '/// Click First Picture  ///'
  99
 100   if AnzahlBilder.GetText <> "1" Then                                                   '/// Control if we are at frame 1 ///'
 101      WarnLog "  - Jump back to start did not work"
 102   else
 103      PrintLog "  Jumped back to first picture"
 104   end if
 105
 106  LetztesBild.Click                                                                      '/// Go to last picture ///'
 107
 108   if AnzahlBilder.GetText <> "20" Then                                                  '/// Control frame number ///'
 109      WarnLog "  - Jump to end did not work"
 110   else
 111      PrintLog "  Jump to end did work"
 112   end if
 113
 114  Abspielen.Click                                                                        '/// Play animation ///'
 115  sleep 3
 116  Kontext "DocumentImpress"
 117  EditSelectAll                                                                          '/// Select all in document ///'
 118  DocumentImpress.TypeKeys "<DELETE>"                                                    '/// Delete content ///'
 119
 120  Kontext "Animation"
 121  Erstellen.Click                                                                        '/// /Create animation //'
 122  sleep 10
 123
 124  Kontext "DocumentImpress"
 125   try
 126      EditCopy                                                                           '/// Try to copy ccreated animation into clipboard ///'
 127      PrintLog "  animation created"
 128   catch
 129      WarnLog "  - Animation not created"
 130   endcatch
 131
 132  Kontext "Animation"
 133
 134   if AnimationsgruppeGruppenobjekt.IsChecked=True Then
 135      try
 136         AnzeigedauerProBild.SetText "1"                                         '/// Try setting duration per frame ///'
 137         WarnLog "  - Edit field should be disabled"
 138      catch
 139         PrintLog "  Edit field not enabled because groupobject status is = " + AnimationsgruppeGruppenobjekt.IsChecked
 140      endcatch
 141   end if
 142
 143
 144  AnimationsgruppeBitmapobjekt.Check                                                     '/// check animation group object ///'
 145
 146   AnzeigedauerProBild.SetText "3"                                                       '/// Set duration per frame to 3///'
 147   SetClipboard AnzeigedauerProBild.GetText
 148   AnzeigedauerProBild.More                                                              '/// Raise value for duration ///'
 149    if AnzeigedauerProBild.GetText <> GetClipboardText Then
 150       PrintLog "  Time per pic could be edited"
 151    else
 152       WarnLog "  - Time per pic could be edited"
 153    end if
 154
 155   Dim Zaehler
 156   Zaehler = AnzahlDurchlaeufe.GetItemCount
 157    for i=1 to Zaehler                                                                   '/// Change number of plays ///'
 158        AnzahlDurchlaeufe.Select i
 159    next i
 160      PrintLog "  Number of loops checked"
 161
 162
 163   Dim ZaehlerAnpassung
 164   ZaehlerAnpassung=Anpassung.GetItemCount                                               '/// change ZaehlerAnpassung ///'
 165    for i=1 to ZaehlerAnpassung
 166        Anpassung.Select i
 167    next i
 168     PrintLog "  Loop count changed"
 169
 170  BildLoeschen.Click                                                                     '/// Delete 1 frame ///'
 171   if AnzahlBilder = "20" Then
 172      WarnLog "  - Delete pictures from animation did not work"
 173   else
 174      PrintLog "  Picture No20 deleted"
 175   end if
 176
 177  AlleLoeschen.Click                                                                     '/// Delete all frames ///'
 178  Kontext "Active"
 179  Active.Yes
 180  sleep 3
 181
 182  Kontext "Animation"
 183   if Abspielen.IsEnabled=true Then
 184      WarnLog "  - Not all pics could be deleted"
 185   else
 186      PrintLog "  all pics deleted"
 187   end if
 188  sleep 2
 189  Animation.Close
 190  sleep 2
 191  Call hCloseDocument                                                                    '/// close document///'
 192 endcase