changed structure which will be included into the CWS process.

1 files changed, 130 insertions, 0 deletions

diff --git a/testautomation/graphics/optional/includes/global/g_dimensions.inc b/testautomation/graphics/optional/includes/global/g_dimensions.inc
new file mode 100755
index 000000000000..37df8f687e4b
--- /dev/null
+++ b/testautomation/graphics/optional/includes/global/g_dimensions.inc
@@ -0,0 +1,130 @@
+'encoding UTF-8  Do not remove or change this line!
+'**************************************************************************
+'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+'* 
+'* Copyright 2008 by Sun Microsystems, Inc.
+'*
+'* OpenOffice.org - a multi-platform office productivity suite
+'*
+'* $RCSfile: g_dimensions.inc,v $
+'*
+'* $Revision: 1.1 $
+'*
+'* last change: $Author: jsi $ $Date: 2008-06-16 10:42:40 $
+'*
+'* This file is part of OpenOffice.org.
+'*
+'* OpenOffice.org is free software: you can redistribute it and/or modify
+'* it under the terms of the GNU Lesser General Public License version 3
+'* only, as published by the Free Software Foundation.
+'*
+'* OpenOffice.org is distributed in the hope that it will be useful,
+'* but WITHOUT ANY WARRANTY; without even the implied warranty of
+'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+'* GNU Lesser General Public License version 3 for more details
+'* (a copy is included in the LICENSE file that accompanied this code).
+'*
+'* You should have received a copy of the GNU Lesser General Public License
+'* version 3 along with OpenOffice.org.  If not, see
+'* <http://www.openoffice.org/license.html>
+'* for a copy of the LGPLv3 License.
+'*
+'/************************************************************************
+'*
+'* Owner : wolfram.garten@sun.com
+'*
+'* short description :
+'*
+'***********************************************************************************
+'*
+' #1 tdFormatDimensioning
+'*
+'\***********************************************************************************
+
+Sub testFormatDimensioning
+
+call tdFormatDimensioning
+
+End Sub
+
+testcase tdFormatDimensioning
+   Dim ZaehlerMetrik
+   Dim i
+
+   Call hNewDocument
+
+   '/// Set min and max values for dimensioning ///'
+   FormatDimensioning
+   Kontext "Bemassung"
+      LinienDistanz.ToMin
+      PrintLog  LinienDistanz.GetText + " = minimum value"
+      LinienDistanz.ToMax
+      PrintLog  LinienDistanz.GetText + " = maximum value"
+
+      HLUeberhang.ToMin
+      PrintLog HLUeberhang.GetText + " = minimum value"
+      HLUeberhang.ToMax
+      PrintLog HLUeberhang.GetText + " = maximum value"
+
+      HLDistanz.ToMin
+      PrintLog HLDistanz.GetText + " = minimum value"
+      HLDistanz.ToMax
+      PrintLog HLDistanz.GetText + " = maximum value"
+
+      LinkeHL.ToMin
+      PrintLog LinkeHL.GetText + " = minimum value"
+      LinkeHL.ToMax
+      PrintLog LinkeHL.GetText + " = maximum valuet"
+
+      RechteHL.ToMin
+      PrintLog RechteHL.GetText + " = minimum value"
+      RechteHL.ToMax
+      PrintLog RechteHL.GetText + " = maximum value"
+
+      '/// set every metric unit ///'
+      MetrikList.GetItemCount
+      ZaehlerMetrik=MetrikList.GetItemCount
+      for i = 1 to ZaehlerMetrik
+         MetrikList.Select i
+         PrintLog MetrikList.GetSelText + " set"
+      next i
+      '/// check show unit ///'
+      MetrikAnzeigen.Check
+      '/// check "below reference edge ///'
+      AnzeigeUnterhalb.Check
+      '/// check parallel ///'
+      AnzeigeParallel.Check
+      '/// check automatic vertical ///'
+      AutomatischHorizontal.Check
+      '/// check automatic horizontal ///'
+      AutomatischVertikal.Check
+      sleep 2
+   Bemassung.OK
+
+   '/// control value changes and checkbox states ///'
+   FormatDimensioning
+   Kontext "Bemassung"
+      MetrikAnzeigen.GetState
+      AnzeigeUnterhalb.GetState
+      AnzeigeParallel.GetState
+      AutomatischHorizontal.GetState
+      AutomatischVertikal.GetState
+      if MetrikAnzeigen.GetState = 1 Then
+         PrintLog "  show metric works"
+      else
+         WarnLog "  show metric does not work"
+      end if
+      if AnzeigeUnterhalb.GetState= 1 Then
+         PrintLog "  AnzeigeUnterhalb does work"
+      else
+         WarnLog "  TriStateBox AnzeigeUnterhalb does not work"
+      end if
+      if AnzeigeParallel.GetState= 1 Then
+         PrintLog "  AnzeigeParallel does work"
+      else
+         WarnLog "  TriStateBox AnzeigeParallel does not work properly"
+      end if
+   Bemassung.OK
+   Call hCloseDocument
+endcase
+