testautomation/graphics/optional/includes/global/g_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: g_slidelayer.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 :
  37 '*
  38 '**************************************************************************************
  39 ' #1 tInsertSlide
  40 ' #1 tInsertDuplicateSlide
  41 ' #1 tInsertLayer
  42 '\*************************************************************************************
  43
  44 testcase tInsertSlide
  45     Call  hNewDocument
  46     InsertSlide
  47     sleep 2
  48     hTypekeys "<Pagedown>"
  49     sleep 2
  50     try
  51         EditDeleteSlide
  52         PrintLog "Slide 2 deleted"
  53     catch
  54         sleep 2
  55         WarnLog "No slide was inserted"
  56     endcatch
  57     hCloseDocument
  58 endcase
  59
  60 testcase tInsertDuplicateSlide
  61     Call  hNewDocument
  62     sleep 2
  63     hRechteckErstellen ( 10, 10, 50, 50 )
  64     sleep 2
  65     InsertDuplicateSlide
  66     try
  67         EditSelectAll
  68         sleep 2
  69         hTypeKeys "<DELETE>"
  70         PrintLog "Slide duplicated"
  71     catch
  72         Warnlog " Slide not duplicated"
  73     endcatch
  74     try
  75         EditDeleteSlide
  76     catch
  77         WarnLog "Error when deleting. Slide is not duplicated ??"
  78     endcatch
  79     hCloseDocument
  80 endcase
  81
  82 testcase tInsertLayer
  83     Call hNewDocument
  84     sleep 2
  85     ViewLayer
  86     InsertLayer
  87     Kontext "EbeneEinfuegenDlg"
  88     EbeneEinfuegenDlg.OK
  89     sleep 2
  90     try
  91         EditDeleteLayer
  92         Kontext "Active"
  93         Active.Yes
  94     catch
  95         WarnLog "There is no avaiable additional layer to delete"
  96     endcatch
  97     hCloseDocument
  98 endcase