testautomation/math/required/includes/m_002_.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: m_002_.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 11:51:23 $
  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 : thorsten.bosbach@sun.com
  35 '*
  36 '* short description :
  37 '*
  38 '\*****************************************************************
  39
  40 sub M_002_
  41    printlog Chr(13) + "--  Edit Menu  m_002_ --"
  42
  43    Call tmEditUndoRedo
  44    Call tmEditAllClipboard
  45    Call tmEditMarker
  46    Call tmEditFailure
  47 end sub
  48
  49 testcase tmEditUndoRedo
  50    '/// Edit / Undo and Edit / Redo ///
  51    '/// open application ///'
  52    hNewDocument
  53    kontext "DocumentMath"
  54    '/// type something into the document ///'
  55    call hTBOtypeInDoc
  56    try
  57       '/// Edit->Undo ///'
  58       EditUndo
  59    catch
  60       warnlog "edit->undo doesn't work :-("
  61    endcatch
  62    Sleep 2
  63    '/// Edit->Redo ///'
  64    EditRedo
  65    Sleep 2
  66    '/// close application ///'
  67    Call hCloseDocument
  68 endcase
  69
  70 testcase tmEditAllClipboard
  71    '/// open application ///'
  72    hNewDocument
  73    kontext "DocumentMath"
  74 '   DocumentMath.TypeKeys Eingabe not working
  75 '   kontext "Commands"     also not working -- only way to type smth is clippboard
  76 '   Commands.TypeKeys Eingabe
  77
  78    '/// type something into the document ///'
  79    call hTBOtypeInDoc
  80    '/// Edit->Select All ///'
  81    EditSelectAllMath
  82    Sleep 2
  83    '/// Edit->Cut ///'
  84    EditCut
  85    Sleep 2
  86    '/// Edit->Paste ///'
  87    EditPaste
  88    Sleep 2
  89    '/// Edit->Paste ///'
  90    EditPaste
  91    Sleep 2
  92    '/// Edit->Select All ///'
  93    EditSelectAllMath
  94    Sleep 2
  95    '/// Edit->Copy ///'
  96    EditCopy
  97    Sleep 2
  98    '/// Edit->Paste ///'
  99    EditPaste
 100    Sleep 2
 101    '/// close application ///'
 102    Call hCloseDocument
 103 endcase
 104
 105 testcase tmEditMarker
 106    '/// open application ///'
 107    hNewDocument
 108    '/// type something into the document ///'
 109    SchreibenInMathdok "Nonsense"
 110    '/// Edit->Previous Marker ///'
 111    EditPreviousMarker
 112    '/// Edit->Previous Marker ///'
 113    EditPreviousMarker
 114    Sleep 2
 115    '/// Edit->Next Marker ///'
 116    EditNextMarker
 117    Sleep 2
 118    '/// close application ///'
 119    Call hCloseDocument
 120 endcase
 121
 122 testcase tmEditFailure
 123    '/// open application ///'
 124    hNewDocument
 125    '/// type something into the document ///'
 126    SchreibenInMathdok "Nonsense"
 127    '/// Edit->Next Error ///'
 128    EditNextError
 129    '/// Edit->Next Error ///'
 130    EditNextError
 131    Sleep 2
 132    '/// Edit->Previous Error ///'
 133    EditPreviousError
 134    Sleep 2
 135    '/// close application ///'
 136    Call hCloseDocument
 137 endcase
 138