diff options
Diffstat (limited to 'testautomation')
-rwxr-xr-x | testautomation/framework/optional/includes/w_grid_layout1.inc | 579 | ||||
-rwxr-xr-x | testautomation/tools/hid/cons.txt | 83 | ||||
-rwxr-xr-x | testautomation/tools/hid/hid.bat | 2 | ||||
-rwxr-xr-x | testautomation/tools/hid/hid.pl | 98 | ||||
-rwxr-xr-x | testautomation/tools/hid/hid.sh | 2 | ||||
-rwxr-xr-x | testautomation/writer/optional/input/import/html/html.html | 93 |
6 files changed, 857 insertions, 0 deletions
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 000000000000..02f78ed3027d --- /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@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 000000000000..ad1b62d7671f --- /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 000000000000..b454bb366012 --- /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 000000000000..6ed824933cce --- /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@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,"<".@ARGV[0]) || die "Can't find old HID-file (first argument)"; +@ary=( <HID> ); +close HID; +open (HID,">".@ARGV[1]) || die "Can't find new HID-file (second argument)"; + +@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]." ".@x[1]."\n"; +} + +@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=$_; + } + } + +@ary = grep( !/^ *$/, @ary); + +# to insert the constant entries at the beginning, read it and write it out +open (CON,"<".@ARGV[2]) || die "Can't find constant entries-file: const.txt (third argument)"; +@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 000000000000..f7c6d27a5f98 --- /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 000000000000..77569bd90be6 --- /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 |