testautomation/graphics/optional/includes/global/g_dimensions.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_dimensions.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 '*
  40 ' #1 tdFormatDimensioning
  41 '*
  42 '\***********************************************************************************
  43
  44 Sub testFormatDimensioning
  45
  46     call tdFormatDimensioning
  47
  48 End Sub
  49
  50 testcase tdFormatDimensioning
  51     Dim ZaehlerMetrik
  52     Dim i
  53
  54     Call hNewDocument
  55
  56     FormatDimensioning
  57     Kontext "Bemassung"
  58     LinienDistanz.ToMin
  59     PrintLog  LinienDistanz.GetText + " = minimum value"
  60     LinienDistanz.ToMax
  61     PrintLog  LinienDistanz.GetText + " = maximum value"
  62
  63     HLUeberhang.ToMin
  64     PrintLog HLUeberhang.GetText + " = minimum value"
  65     HLUeberhang.ToMax
  66     PrintLog HLUeberhang.GetText + " = maximum value"
  67
  68     HLDistanz.ToMin
  69     PrintLog HLDistanz.GetText + " = minimum value"
  70     HLDistanz.ToMax
  71     PrintLog HLDistanz.GetText + " = maximum value"
  72
  73     LinkeHL.ToMin
  74     PrintLog LinkeHL.GetText + " = minimum value"
  75     LinkeHL.ToMax
  76     PrintLog LinkeHL.GetText + " = maximum valuet"
  77
  78     RechteHL.ToMin
  79     PrintLog RechteHL.GetText + " = minimum value"
  80     RechteHL.ToMax
  81     PrintLog RechteHL.GetText + " = maximum value"
  82
  83     MetrikList.GetItemCount
  84     ZaehlerMetrik=MetrikList.GetItemCount
  85     for i = 1 to ZaehlerMetrik
  86         MetrikList.Select i
  87         PrintLog MetrikList.GetSelText + " set"
  88     next i
  89     MetrikAnzeigen.Check
  90     AnzeigeUnterhalb.Check
  91     AnzeigeParallel.Check
  92     AutomatischHorizontal.Check
  93     AutomatischVertikal.Check
  94     sleep 2
  95     Bemassung.OK
  96
  97     FormatDimensioning
  98     Kontext "Bemassung"
  99     MetrikAnzeigen.GetState
 100     AnzeigeUnterhalb.GetState
 101     AnzeigeParallel.GetState
 102     AutomatischHorizontal.GetState
 103     AutomatischVertikal.GetState
 104     if MetrikAnzeigen.GetState = 1 Then
 105         PrintLog "  show metric works"
 106     else
 107         WarnLog "  show metric does not work"
 108     end if
 109     if AnzeigeUnterhalb.GetState= 1 Then
 110         PrintLog "  AnzeigeUnterhalb does work"
 111     else
 112         WarnLog "  TriStateBox AnzeigeUnterhalb does not work"
 113     end if
 114     if AnzeigeParallel.GetState= 1 Then
 115         PrintLog "  AnzeigeParallel does work"
 116     else
 117         WarnLog "  TriStateBox AnzeigeParallel does not work properly"
 118     end if
 119     Bemassung.OK
 120     Call hCloseDocument
 121 endcase
 122