[ooo-build-commit] Branch 'ooo/master' - 2 commits - testautomation/framework testautomation/tools testautomation/writer testtools/source
Jan Holesovsky
kendy at kemper.freedesktop.org
Sat Jun 13 19:04:47 PDT 2009
testautomation/framework/optional/includes/w_grid_layout1.inc | 579 ++++++++++
testautomation/tools/hid/cons.txt | 83 +
testautomation/tools/hid/hid.bat | 2
testautomation/tools/hid/hid.pl | 98 +
testautomation/tools/hid/hid.sh | 2
testautomation/writer/optional/input/import/html/html.html | 93 +
testtools/source/cliversioning/version_libs/version_3_1.dll |binary
7 files changed, 857 insertions(+)
New commits:
commit a1c0efe2977983243ed904ff51ffe89d78407f77
Author: Ivo Hinkelmann <ihi at openoffice.org>
Date: Fri Jun 12 19:50:49 2009 +0000
CWS-TOOLING: integrate CWS jl126_DEV300
2009-05-29 11:45:28 +0200 jl r272444 : #i102355# new assembly versions
2009-05-29 11:14:35 +0200 jl r272441 : #i102355# new assembly versions
2009-05-29 11:08:25 +0200 jl r272439 : #i102355# test lib for 3.1 version
2009-05-29 08:43:22 +0200 jl r272432 : CWS-TOOLING: rebase CWS jl126 to branches/OOO310 at 272261 (milestone: OOO310:m12)
2009-04-30 21:12:02 +0200 jl r271426 : CWS-TOOLING: rebase CWS jl126 to branches/OOO310 at 271208 (milestone: OOO310:m11)
diff --git a/testtools/source/cliversioning/version_libs/version_3_1.dll b/testtools/source/cliversioning/version_libs/version_3_1.dll
new file mode 100755
index 0000000..8b160f9
Binary files /dev/null and b/testtools/source/cliversioning/version_libs/version_3_1.dll differ
commit cefb147057698470df247cbf5f5a17bcc72af133
Author: Ivo Hinkelmann <ihi at openoffice.org>
Date: Fri Jun 12 09:36:34 2009 +0000
CWS-TOOLING: integrate CWS unifypaper01
2009-05-27 17:14:41 +0200 cmc r272362 : #i92819#, psprint moved into vcl
2009-05-19 15:45:46 +0200 cmc r272083 : #i92819# having difficultly in getting this right under windows
2009-05-18 18:04:22 +0200 cmc r272043 : #i92819# missing some export magic somewhere
2009-05-18 15:34:18 +0200 cmc r272028 : #i92819# get depends right
2009-05-18 11:50:43 +0200 cmc r272010 : ##i92819# fix import/export stuff
2009-05-18 10:07:00 +0200 cmc r272000 : #i92819# fix window imp name
2009-05-16 15:17:23 +0200 cmc r271975 : #i92819# fix win paper names
2009-05-16 11:11:29 +0200 cmc r271974 : #i92819# std::abs prolematic for msvc
2009-05-15 15:36:56 +0200 cmc r271941 : #i92819# handle missing setting, at least on mac
2009-05-15 10:13:44 +0200 cmc r271927 : #i92819# adjust for moved page dialog
2009-05-14 13:47:14 +0200 cmc r271887 : remove dead files that reappeared
2009-05-14 09:57:17 +0200 cmc r271872 : CWS-TOOLING: rebase CWS unifypaper01 to trunk at 271830 (milestone: DEV300:m48)
2009-05-11 12:27:18 +0200 cmc r271763 : #i92819# check return value
2009-05-06 17:28:25 +0200 cmc r271602 : #i92819# these B4/B5s are the JIS ones according to their dimensions
2009-05-06 17:17:03 +0200 cmc r271601 : #i92819# micro-optimization
2009-05-03 18:20:48 +0200 cmc r271434 : #i92819# paper libs
2009-05-03 16:08:32 +0200 cmc r271433 : CWS-TOOLING: rebase CWS unifypaper01 to trunk at 271427 (milestone: DEV300:m47)
2009-04-06 15:33:37 +0200 cmc r270556 : CWS-TOOLING: rebase CWS unifypaper01 to trunk at 270033 (milestone: DEV300:m45)
2009-03-12 14:36:35 +0100 cmc r269415 : #i92819# merge paper utilities
2009-03-11 13:44:27 +0100 cmc r269328 : CWS-TOOLING: rebase CWS unifypaper01 to trunk at 269297 (milestone: DEV300:m43)
2009-03-09 14:42:07 +0100 cmc r269190 : remove config_office from synced version
2009-03-09 14:34:50 +0100 cmc r269187 : CWS-TOOLING: rebase CWS unifypaper01 to trunk at 268395 (milestone: DEV300:m42)
2009-03-09 12:11:29 +0100 cmc r269077 : CWS-TOOLING: rebase CWS unifypaper01 to trunk at 265758 (milestone: DEV300:m38)
2009-03-06 17:17:39 +0100 cmc r269027 : #i92819# paper goo
2008-12-04 11:29:30 +0100 cmc r264826 : CWS-TOOLING: rebase CWS unifypaper01 to trunk at 264807 (milestone: DEV300:m37)
2008-11-26 10:33:06 +0100 cmc r264357 : CWS-TOOLING: rebase CWS unifypaper01 to trunk at 264325 (milestone: DEV300:m36)
2008-11-21 14:09:36 +0100 cmc r264138 : #i92819# paper consolidation
diff --git a/testautomation/framework/optional/includes/w_grid_layout1.inc b/testautomation/framework/optional/includes/w_grid_layout1.inc
new file mode 100755
index 0000000..02f78ed
--- /dev/null
+++ b/testautomation/framework/optional/includes/w_grid_layout1.inc
@@ -0,0 +1,579 @@
+'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: w_grid_layout1.inc,v $
+'*
+'* $Revision: 1.2 $
+'*
+'* last change: $Author: jsk $ $Date: 2008-06-17 07:50:24 $
+'*
+'* 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 : thorsten.bosbach at sun.com
+'*
+'* short description : Grid Layout for CJK test in Writer
+'*
+'\***********************************************************************
+
+private const SOURCE_PATH = "framework\optional\input\CJK\"
+
+testcase tTextGridDialog_1
+
+'/// Check if tabpage 'Text Grid' disappears when "Asian Language support" is NOT checked
+ if iSystemSprache <> 81 AND iSystemSprache <> 82 AND iSystemSprache <> 86 AND iSystemSprache <> 88 then
+ Call CheckAsianLanguageSupport("Off")
+ hNewDocument()
+ FormatPageWriter
+ try
+ Kontext
+ Active.SetPage TabGrid
+ Kontext "TabGrid"
+ TabGrid.Cancel
+ warnlog "Shouldn't get Tabpage: Grid Text"
+ catch
+ Kontext
+ Active.SetPage TabSeite
+ Kontext "TabSeite"
+ TabSeite.Cancel
+ endcatch
+ end if
+
+'/// Check if tabpage 'Text Grid' appears when "Asian Language support" is checked
+ Call CheckAsianLanguageSupport("On")
+
+ sleep 5
+ FormatPageWriter
+ Kontext
+ if Active.exists (10) then
+ try
+ Kontext
+ Active.SetPage TabGrid
+ Kontext "TabGrid"
+ TabGrid.Cancel
+ catch
+ Kontext
+ Active.SetPage TabSeite
+ Kontext "TabSeite"
+ TabSeite.Cancel
+ warnlog "Couldn't get Tabpage: Grid Text"
+ endcatch
+ else
+ warnlog "FormatPageWriter didn't bring up ndialog"
+ endif
+ hCloseDocument()
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tTextGridDialog_2
+'/// No grid is active, no changes to existing version
+ Dim testFile , sCorrectResult as String
+
+ testFile = "gridtest.sxw"
+ sCorrectResult = "1"
+
+ Call hNewDocument
+
+ '/// open a test file , and check No Grid checkbox
+ Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile )
+ sMakeReadOnlyDocumentEditable
+
+ FormatPageWriter
+ Kontext
+ if active.exists(5) then
+ Active.SetPage TabGrid
+ endif
+ Kontext "TabGrid"
+ NoGrid.Check
+ Sleep 1
+ TabGrid.OK
+ Sleep 1
+
+ '/// Active navigator dialogue , set page to '2' and wait for a while
+ Kontext
+ ViewNavigator
+ Kontext "NavigatorWriter"
+
+ Seitennummer.SetText "2"
+ Sleep 5
+ fCloseNavigator
+
+ '/// In No Grid mode, there should be only 1 page, the focus is before the first line
+ Kontext "DocumentWriter"
+ Call DocumentWriter.TypeKeys "<End>"
+ Sleep 1
+ Call DocumentWriter.TypeKeys "<Shift Left>"
+ Editcopy
+
+ if GetClipboardText <> sCorrectResult then Warnlog "Something wrong when choosing NoGrid option!"
+
+ Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tTextGridDialog_3
+'/// Grid (lines only): The page is set up with a defined number of lines
+ Dim testFile , sCorrectResult , sLinesPerPage as String
+
+ testFile = "gridtest.sxw"
+ sCorrectResult = "G"
+ sLinesPerPage = "10"
+
+ Call hNewDocument
+
+ '/// open a test file and check Grid(lines onle) checkbox ,
+ '/// + set 10 line/page
+ Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile )
+ sMakeReadOnlyDocumentEditable
+ FormatPageWriter
+ Kontext
+ if active.exists(5) then
+ Active.SetPage TabGrid
+ endif
+ Kontext "TabGrid"
+ LinesGrid.Check
+ LinesPerPage.SetText sLinesPerPage
+ Sleep 1
+ TabGrid.OK
+ Sleep 1
+
+ '/// Active navigator dialogue , set page to '2' and wait for a while
+ Kontext
+ ViewNavigator
+ Kontext "NavigatorWriter"
+
+ Seitennummer.SetText "2"
+ Sleep 5
+ fCloseNavigator
+
+ Kontext "DocumentWriter"
+ Call DocumentWriter.TypeKeys "<End>"
+ Sleep 1
+ Call DocumentWriter.TypeKeys "<Shift Left>"
+ Editcopy
+
+ if GetClipboardText <> sCorrectResult then Warnlog "Something wrong when choosing Grid(lines only) option!"
+
+ Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tTextGridDialog_4
+'/// Grid (lines and characters): The page is set up with a defined number of lines and a defined number of characters in each line
+ Dim testFile , sCorrectResult as String
+ Dim sLinesPerPage , sCharsPerLine as String
+
+ testFile = "gridtest.sxw"
+ sCorrectResult = "E"
+ sLinesPerPage = "10"
+ sCharsPerLine = "9"
+
+ Call hNewDocument
+
+ '/// open a test file and check Grid(lines and characters) checkbox
+ '/// + set 10 line/page and 9 characters/line
+ Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile )
+ sMakeReadOnlyDocumentEditable
+ FormatPageWriter
+ Kontext
+ if active.exists(5) then
+ Active.SetPage TabGrid
+ endif
+ Kontext "TabGrid"
+ CharsGrid.Check
+ LinesPerPage.SetText sLinesPerPage
+ CharsPerLine.SetText sCharsPerLine
+ Sleep 1
+ TabGrid.OK
+ Sleep 1
+
+ '/// Active navigator dialogue , set page to '2' and wait for a while
+ Kontext
+ ViewNavigator
+ Kontext "NavigatorWriter"
+
+ Seitennummer.SetText "2"
+ Sleep 5
+ fCloseNavigator
+
+ Kontext "DocumentWriter"
+ Call DocumentWriter.TypeKeys "<End>"
+ Sleep 1
+ Call DocumentWriter.TypeKeys "<Shift Left>"
+ Editcopy
+
+ if GetClipboardText <> sCorrectResult then Warnlog "Something wrong when choosing Grid(lines and characters) option!"
+
+ Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tGridDisplay_1
+'/// Print grid: The grid lines will be printed. Inactive if "Display grid" is inactive.
+ Call hNewDocument
+
+ '/// format / page / tabpage Text grid
+ '/// + check "display grid" and check "print grid"
+ FormatPageWriter
+ Kontext
+ if active.exists(5) then
+ Active.SetPage TabGrid
+ endif
+ Kontext "TabGrid"
+ CharsGrid.Check
+ Display.Check
+ Sleep 1
+ PrintGrid.Check
+ Sleep 1
+ TabGrid.OK
+ Sleep 1
+
+ '/// Print to printer
+ FilePrint
+ Kontext "Active"
+ if Active.Exists(5) then
+ if Active.GetRT = 304 then
+ Active.Ok
+ QAErrorLog "No Default-Printer!"
+ Kontext "DruckenDlg"
+ Sleep 1
+ DruckenDlg.Cancel
+ end if
+ else
+ Kontext "DruckenDlg"
+ Sleep 1
+ DruckenDlg.OK
+ Sleep 5
+ kontext
+ if active.exists(5) then
+ qaErrorLog active.getText
+ active.ok
+ end if
+ end if
+
+ '/// format / page / tabpage Text grid
+ '/// + check "display grid" and uncheck "print grid"
+ FormatPageWriter
+ Kontext
+ if active.exists(5) then
+ Active.SetPage TabGrid
+ endif
+ Kontext "TabGrid"
+ CharsGrid.Check
+ Display.Check
+ Sleep 1
+ PrintGrid.UnCheck
+ Sleep 1
+ TabGrid.OK
+ Sleep 1
+
+ '/// Print to printer
+ FilePrint
+ Kontext "Active"
+ if Active.Exists(5) then
+ if Active.GetRT = 304 then
+ Active.Ok
+ QAErrorLog "No Default-Printer!"
+ Kontext "DruckenDlg"
+ Sleep 1
+ DruckenDlg.Cancel
+ end if
+ else
+ Kontext "DruckenDlg"
+ Sleep 1
+ DruckenDlg.OK
+ Sleep 5
+ kontext
+ if active.exists(5) then
+ qaErrorLog active.getText
+ active.ok
+ end if
+ end if
+
+ Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tUserDefineLayout_1
+'/// Decrease characters per line will cause lines per page decrease accordingly
+ Dim sLinesPerPage , sCharsPerLine as String
+ Dim sExpectLinesPerPage , sExpectLinesPerPage1 as String
+
+ sLinesPerPage = "20"
+ sCharsPerLine = "2"
+ sExpectLinesPerPage = "2"
+ sExpectLinesPerPage1 = "3"
+
+ Call hNewDocument
+
+ '/// Format/page , set lines per page to 20, and set charsets per line to 2
+ '/// + wait for a moment , then check the the number of lines per page.
+ FormatPageWriter
+ Kontext
+ if active.exists(5) then
+ Active.SetPage TabGrid
+ endif
+ Kontext "TabGrid"
+ CharsGrid.Check
+
+ LinesPerPage.SetText sLinesPerPage
+ Sleep 2
+ CharsPerLine.SetText sCharsPerLine
+ Sleep 2
+
+ 'This step is no use, just let the LinesPerPage change the number
+ CharsGrid.Check
+
+ if LinesPerPage.GetText <> sExpectLinesPerPage AND LinesPerPage.GetText <> sExpectLinesPerPage1 then
+ Warnlog "The lines per page should be" + sExpectLinesPerPage + " OR " + sExpectLinesPerPage1 +" but get " +LinesPerPage.GetText
+ end if
+
+ TabGrid.Cancel
+
+ Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tFontSizeChanges_1
+'/// Change the font size to bigger enough will change the layout
+ Dim testFile , sCorrectResult as String
+ Dim sLinesPerPage , sCharsPerLine as String
+ dim sTemp as string
+
+ testFile = "FontSizeChanges_1.sxw"
+ sCorrectResult = "1"
+ sLinesPerPage = "2"
+ sCharsPerLine = "9"
+
+ '/// open a test file
+ Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile )
+ sMakeReadOnlyDocumentEditable
+ Kontext "DocumentWriter"
+ Call DocumentWriter.TypeKeys "<Shift Right>"
+
+ '/// set font size to 60
+ Kontext "FormatObjectbar"
+ Schriftgroesse.Select "60"
+ Schriftgroesse.TypeKeys "<Return>"
+ Sleep 1
+
+ '/// Check if lines per page and charsets per line is still right
+ Kontext "DocumentWriter"
+ FormatPageWriter
+ Kontext
+ if active.exists(5) then
+ Active.SetPage TabGrid
+ endif
+ Kontext "TabGrid"
+ if TabGrid.exists(5) then
+ sTemp = LinesPerPage.GetText
+ if sTemp <> sLinesPerPage then
+ Warnlog "The lines per page should be: '" + sLinesPerPage + "'; but get: '" + sTemp + "'"
+ endif
+ sTemp = CharsPerLine.GetText
+ if sTemp <> sCharsPerLine then
+ Warnlog "The chars per line should be: '" + sCharsPerLine + "'; but get: '" +sTemp + "'"
+ endif
+ TabGrid.Cancel
+ else
+ warnlog "TabGrid is not available."
+ endif
+
+ '/// Active navigator dialogue , set page to '2' and wait for a while
+ Kontext
+ ViewNavigator
+ Kontext "NavigatorWriter"
+ if NavigatorWriter.exists(5) then
+ Seitennummer.SetText "2"
+ Sleep 5
+ else
+ warnlog "Navigator not available"
+ endif
+ fCloseNavigator
+
+ Kontext "DocumentWriter"
+ sleep 3
+ Call DocumentWriter.TypeKeys "<Shift Right>"
+ sleep 3
+ Editcopy
+ sTemp = GetClipboardText
+ if sTemp <> sCorrectResult then
+ Warnlog "Don't get the expected result , hope to be: '" + sCorrectResult + "'; but get: '" + sTemp + "'"
+ endif
+
+ Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tRubyText_1
+'/// If Ruby Text is applied and longer than its Base Text it will stretch over more grid cells than the base text itself.
+ Dim testFile , sRubyText as String
+
+ testFile = "rubytest.sxw"
+ sRubyText = "Ruby Test Text ....................."
+
+ Call hNewDocument
+
+ '/// open a test file , and insert long ruby test text
+ Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile )
+ sMakeReadOnlyDocumentEditable
+ Kontext "DocumentWriter"
+ Call DocumentWriter.TypeKeys "<Shift Right>"
+ Sleep 1
+
+ FormatRuby
+ Kontext "RubyDialog"
+ Sleep 3
+ RubyText1.setText sRubyText
+ Sleep 2
+ RubyDialog.OK
+ Sleep 2
+ DialogClose.Click
+ Sleep 1
+
+ Kontext "DocumentWriter"
+ FormatAutoformatApply
+ Sleep 2
+ Call DocumentWriter.TypeKeys "<End>"
+ Sleep 2
+ Call DocumentWriter.TypeKeys "<Shift Left>"
+ Editcopy
+
+ if NOT(GetClipboardText = "5" OR GetClipboardText = "6") then
+ Warnlog "Don't get the correct result after inserting ruby text! Get " + GetClipboardText
+ end if
+
+ Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tIndentsTest_1
+ '/// Indents should work and always indenting as close as possible to their measurements by snapping to the appropriate grid cell. Tabs therefore will be ignored.
+ Dim testFile , sCorrectPage1 , sCorrectPage2 as String
+
+ testFile = "IndentsTest.sxw"
+ sCorrectPage1 = "1"
+ sCorrectPage2 = "2"
+
+ Call hNewDocument
+
+ '/// open a test file , and press TAB in second line
+ Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile )
+ sMakeReadOnlyDocumentEditable
+ Kontext "DocumentWriter"
+ Call DocumentWriter.TypeKeys "<Down>"
+ Sleep 1
+ Call DocumentWriter.TypeKeys "<Tab>"
+ Sleep 1
+ Call DocumentWriter.TypeKeys "<End>"
+ Sleep 1
+
+ '/// Active navigator dialogue , check if the page number is 1
+ Kontext
+ ViewNavigator
+ Kontext "NavigatorWriter"
+ if Seitennummer.GetText <> sCorrectPage1 then Warnlog "First test :Something wrong in indents test!"
+ fCloseNavigator
+
+ '/// press TAB in second line again
+ Kontext "DocumentWriter"
+ Call DocumentWriter.TypeKeys "<Home>"
+ Sleep 1
+ Call DocumentWriter.TypeKeys "<Tab>"
+ Sleep 1
+ Call DocumentWriter.TypeKeys "<End>"
+ Sleep 1
+
+ '/// Active navigator dialogue , check if the page number is 2
+ Kontext
+ ViewNavigator
+ Kontext "NavigatorWriter"
+ if Seitennummer.GetText <> sCorrectPage2 then Warnlog "Second test :Something wrong in indents test!"
+ fCloseNavigator
+
+ Call hCloseDocument
+endcase
+
+'-------------------------------------------------------------------------
+
+testcase tObjectsTest_1
+ '/// If objects are anchored to text they will "wander" with its surrounding text.
+ '/// If they are anchored as character they will snap to the appropriate grid cell (since they are a character).
+ Dim testFile , sCorrectPage1 , sCorrectPage2 as String
+
+ testFile = "objectsTest.sxw"
+ sCorrectPage1 = "1"
+ sCorrectPage2 = "2"
+
+ Call hNewDocument
+
+ '/// open a test file , and press TAB in second line
+ Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile )
+
+ '/// If object is anchored as Character , check if it will snap to the appropriate grid cell
+ fStartupNavigator( "OLEObject" , 1 )
+ Sleep 1
+ Auswahlliste.TypeKeys "<Return>"
+ Sleep 1
+ fCloseNavigator
+ Sleep 2
+
+ Kontext
+ FormatAnchorAsCharacter
+ Sleep 1
+
+ ViewNavigator
+ Kontext "NavigatorWriter"
+ Seitennummer.SetText sCorrectPage2
+ Sleep 5
+ if Seitennummer.GetText <> sCorrectPage2 then Warnlog "Something wrong when object is anchored as Character!"
+ fCloseNavigator
+
+ '/// If object is anchored to Character , check if it will NOT snap to the appropriate grid cell
+ fStartupNavigator( "OLEObject" , 1 )
+ Auswahlliste.TypeKeys "<Return>"
+ fCloseNavigator
+
+ Kontext
+ FormatAnchorToCharacter
+
+ ViewNavigator
+ Kontext "NavigatorWriter"
+ Seitennummer.SetText sCorrectPage2
+ Sleep 5
+ if Seitennummer.GetText <> sCorrectPage1 then Warnlog "Something wrong when object is anchored to Character!"
+ fCloseNavigator
+ Kontext
+
+ Call hCloseDocument
+endcase
+
diff --git a/testautomation/tools/hid/cons.txt b/testautomation/tools/hid/cons.txt
new file mode 100755
index 0000000..ad1b62d
--- /dev/null
+++ b/testautomation/tools/hid/cons.txt
@@ -0,0 +1,83 @@
+644j_HID_Eigen 01010100101010101010101010
+
+TB_SW_TEXT_TOOLBOX 23265
+TB_SW_TABLE_TOOLBOX 23266
+TB_SW_GRAFIK_TOOLBOX 23268
+TB_SW_DRAW_TEXTBOX_TOOLBOX 23269
+TB_SW_DRAW_TEXT_TOOLBOX 23270
+TB_SW_NUM_TOOLBOX 23271
+TB_SW_OLE_TOOLBOX 23272
+TB_SW_TOOLS_TOOLBOX 23273
+TB_SW_PREVIEW_TOOLBOX 20631
+HDE_OL_SW_FORMAT_GRAFIK 23267
+HDE_HID_LAB_LAB 54920
+HDE_PDF_EXPORT_DLG 33375
+TB_WEB_TOOLS_TOOLBOX 20402
+TB_WEB_TOOLBOX 20403
+
+TB_SC_TEXT_TOOLBOX 25001
+TB_SC_DRAW_Text_TOOLBOX 25005
+TB_SC_PREVIEW_TOOLBOX 25006
+TB_SC_TOOLS_TOOLBOX 25035
+TB_SC_OLE_TOOLBOX 26436
+
+TB_IM_TOOLS_TOOLBOX 23011
+TB_IM_DIA_TOOLBOX 23012
+TB_IM_TOOLBOX 23030
+TB_IM_SLIDE_OBJ_TOOLBOX 23014
+TB_SD_BEZIER_TOOLBOX 23015
+TB_IM_TEXT_TOOLBOX 23016
+TB_IM_OUTLINIG_TOOLBOX 23017
+TB_SD_GLUEPOINTS_TOOLBOX 23019
+TB_IM_OPTIONS_TOOLBOX 23020
+TB_IM_COMMONTASK_TOOLBOX 23021
+TB_SD_TOOLS_TOOLBOX 23025
+TB_SD_OPTION_TOOLBOX 23026
+TB_SD_TOOLBOX 23027
+TB_SD_TEXT_TOOLBOX 23028
+
+TB_Fullscreen_Toolbox 558
+
+TB_Basic_Controls 63543
+
+HDE_PRN_UNX_PAPER 602472448
+HDE_PRN_UNX_PAPERSIZE 602476034
+HDE_PRN_UNX_ORIENTATION 602476036
+HDE_PRN_UNX_DUPLEX 602476038
+HDE_PRN_UNX_INPUT_SLOT 602476040
+HDE_PRN_UNX_SCALE 602479114
+HDE_PRN_UNX_DEVICE 602456064
+HDE_PRN_UNX_OPTION 602459652
+HDE_PRN_UNX_VALUE 602459654
+HDE_PRN_UNX_POSTSCRIPT 602465288
+HDE_PRN_UNX_COLOR 602459658
+HDE_PRN_UNX_COLORDEPTH 602465292
+HDE_PRN_UNX_COMPRESS 602457101
+
+SID_VERB_OPEN 6103
+SID_VERB_START 6102
+
+TB_Macro 14850
+TB_Macro_Controls 14916
+TZ_Filter_Warning 34195
+
+MSC_Super_ID 123456
+MSC_Super_ID2 1234567
+MSC_Super_ID3 12345678
+
+sfx2:ListBox:TP_CONFIG_ACCEL:BOX_ACC_KEY 575016462
+
+HID_OPTIONS_JAVA_LIST 39997
+
+PDF1TBO 867876864
+PDF2TBO 867860480
+
+FontWork1TBO 40026
+FontWork2TBO 40027
+
+Eval1TBO 64360
+Eval2TBO 64361
+HTMLTBO 808846359
+
+
+
diff --git a/testautomation/tools/hid/hid.bat b/testautomation/tools/hid/hid.bat
new file mode 100755
index 0000000..b454bb3
--- /dev/null
+++ b/testautomation/tools/hid/hid.bat
@@ -0,0 +1,2 @@
+perl.exe hid.pl hid.lst hid.txt cons.txt
+
diff --git a/testautomation/tools/hid/hid.pl b/testautomation/tools/hid/hid.pl
new file mode 100755
index 0000000..b29aeea
--- /dev/null
+++ b/testautomation/tools/hid/hid.pl
@@ -0,0 +1,98 @@
+#**************************************************************************
+#* 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: hid.pl,v $
+#*
+#* $Revision: 1.4 $
+#*
+#* last change: $Author: tbo $ $Date: 2008/04/03 10:11:10 $
+#*
+#* 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 : thorsten.bosbach at sun.com
+#*
+#* short description : Generate a cleaned hid.lst
+#*
+#******************************************************************
+#
+# syntax : hid.pl Input Output ConstantEntries
+# usually: hid.pl hid.lst hid.txt const.txt
+#
+
+for (@ARGV){print $_."\n";}
+open (HID,"<". at ARGV[0]) || die "Can't find old HID-file (first argument)";
+ at ary=( <HID> );
+close HID;
+open (HID,">". at ARGV[1]) || die "Can't find new HID-file (second argument)";
+
+ at longnum = @longname = ();
+
+for (@ary) {
+ s/MN_VIEW 21//g; # remove slots that are wrong
+ s/MN_INSERT 24//g;
+ s/MN_SUB_TOOLBAR 92//g;
+ s/SID_OBJECT_MIRROR 27085//g;
+ s/UID_SQLERROR_BUTTONMORE 38844//g;
+ s/MN_EXTRA 22//g; # -------------------------------------------
+ s/RID_UNDO_DELETE_WARNING 20558//g;
+ s/.* 01010101010//g;
+ s/ +/ /g; # remove double blanks
+ @x = split(/\s+/) ; # seperate Longnames and HIDs
+# @x[0]=~ tr/a-z/A-Z/;
+# @x[1]=~ tr/a-z/A-Z/;
+ $longname[++$#longname] = @x[0];
+ $longnum[++$#longnum] = @x[1];
+ $_=@x[0]." ". at x[1]."\n";
+}
+
+ at ary = @ary[ sort{ # sort
+ @longnum[$a] <=> @longnum[$b] ||
+ @longname[$a] cmp @longname[$b]
+ }0..$#ary
+ ];
+
+# @ary = grep( !/^ *$/, @ary);
+
+#remove double entries
+
+$n="";
+for (@ary) {
+ if ($n eq $_ || $_>0 ){
+ $_="";
+ }
+ else{
+ $n=$_;
+ }
+ }
+
+ at ary = grep( !/^ *$/, @ary);
+
+# to insert the constant entries at the beginning, read it and write it out
+open (CON,"<". at ARGV[2]) || die "Can't find constant entries-file: const.txt (third argument)";
+ at const=( <CON> );
+close CON;
+print HID @const;
+
+print HID @ary;
+close HID;
diff --git a/testautomation/tools/hid/hid.sh b/testautomation/tools/hid/hid.sh
new file mode 100755
index 0000000..f7c6d27
--- /dev/null
+++ b/testautomation/tools/hid/hid.sh
@@ -0,0 +1,2 @@
+ perl hid.pl hid.lst hid.txt cons.txt
+ cp hid.txt ../../global/hid/hid.lst
diff --git a/testautomation/writer/optional/input/import/html/html.html b/testautomation/writer/optional/input/import/html/html.html
new file mode 100755
index 0000000..77569bd
--- /dev/null
+++ b/testautomation/writer/optional/input/import/html/html.html
@@ -0,0 +1,93 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
+<HTML>
+<HEAD>
+ <META HTTP-EQUIV="CONTENT-TYPE" CONTENT="text/html; charset=iso-8859-15">
+ <TITLE></TITLE>
+ <META NAME="GENERATOR" CONTENT="StarOffice 7 (Linux)">
+ <META NAME="CREATED" CONTENT="20030724;14042643">
+ <META NAME="CHANGEDBY" CONTENT="Helge Delfs">
+ <META NAME="CHANGED" CONTENT="20040108;8361100">
+ <STYLE>
+ <!--
+ TH P { font-style: italic }
+ -->
+ </STYLE>
+</HEAD>
+<BODY LANG="en-US" DIR="LTR">
+<P STYLE="margin-bottom: 0cm"><A NAME="DDE_LINK3"></A>Text
+<A HREF="http://www.sun.com/">www.sun.com</A> <B>Bold</B> <I>Italic</I>
+<FONT COLOR="#0000ff">Blue</FONT> Text <B>Bold</B> <I>Italic</I> <FONT COLOR="#0000ff">Blue</FONT></P>
+<P STYLE="margin-bottom: 0cm"><BR>
+</P>
+<P STYLE="margin-bottom: 0cm"><A NAME="DDE_LINK1"></A>Field: <SDFIELD TYPE=DATETIME SDNUM="1031;1033;MM/DD/YY">01/08/04</SDFIELD></P>
+<P STYLE="margin-bottom: 0cm"><BR>
+</P>
+<P STYLE="margin-bottom: 0cm">Tables</P>
+<TABLE WIDTH=100% BORDER=1 BORDERCOLOR="#000000" CELLPADDING=4 CELLSPACING=0>
+ <COL WIDTH=51*>
+ <COL WIDTH=51*>
+ <COL WIDTH=51*>
+ <COL WIDTH=51*>
+ <COL WIDTH=51*>
+ <THEAD>
+ <TR VALIGN=TOP>
+ <TH WIDTH=20%>
+ <P>Table with</P>
+ </TH>
+ <TH WIDTH=20%>
+ <P>colors</P>
+ </TH>
+ <TH WIDTH=20%>
+ <P>numbers</P>
+ </TH>
+ <TH WIDTH=20%>
+ <P>numbers</P>
+ </TH>
+ <TH WIDTH=20%>
+ <P>calculation</P>
+ </TH>
+ </TR>
+ </THEAD>
+ <TBODY>
+ <TR>
+ <TD WIDTH=20% VALIGN=TOP>
+ <P> </P>
+ </TD>
+ <TD WIDTH=20% VALIGN=TOP BGCOLOR="#00ff00">
+ <P> </P>
+ </TD>
+ <TD WIDTH=20% VALIGN=BOTTOM SDVAL="0,5" SDNUM="1031;">
+ <P ALIGN=RIGHT>0,5</P>
+ </TD>
+ <TD WIDTH=20% VALIGN=BOTTOM SDVAL="84,56" SDNUM="1031;">
+ <P ALIGN=RIGHT>84,56</P>
+ </TD>
+ <TD WIDTH=20% VALIGN=BOTTOM SDVAL="85,06" SDNUM="1031;">
+ <P ALIGN=RIGHT>85,06</P>
+ </TD>
+ </TR>
+ </TBODY>
+</TABLE>
+<P STYLE="margin-bottom: 0cm"><BR>
+</P>
+<P STYLE="margin-bottom: 0cm">Graphic linked</P>
+<P STYLE="margin-bottom: 0cm"><IMG SRC="flower.gif" NAME="Graphic1" ALIGN=BOTTOM WIDTH=100 HEIGHT=75 BORDER=0></P>
+<P STYLE="margin-bottom: 0cm"><BR>
+</P>
+<P STYLE="margin-bottom: 0cm">Button</P>
+<FORM NAME="Standard" ACTION="../../../../../../../qatesttool/writer/level1/input/clipboard">
+ <P STYLE="margin-bottom: 0cm"><INPUT TYPE=BUTTON NAME="PushButton1" VALUE="Button1" STYLE="width: 1.5cm; height: 0.64cm"></P>
+</FORM>
+<P STYLE="margin-bottom: 0cm"><BR>
+</P>
+<P STYLE="margin-bottom: 0cm">Floating Frame</P>
+<P STYLE="margin-bottom: 0cm"><BR>
+</P>
+<P STYLE="margin-bottom: 0cm"><IFRAME SRC="dummy.sxw" FRAMEBORDER=YES ALIGN=LEFT WIDTH=378 HEIGHT=189></IFRAME><BR CLEAR=LEFT><BR>
+</P>
+<P STYLE="margin-bottom: 0cm"><BR>
+</P>
+<P STYLE="margin-bottom: 0cm"><BR>
+</P>
+</BODY>
+</HTML>
\ No newline at end of file
More information about the ooo-build-commit
mailing list