diff options
Diffstat (limited to 'testautomation/writer/optional/includes/table/w_204_.inc')
| -rwxr-xr-x | testautomation/writer/optional/includes/table/w_204_.inc | 1163 |
1 files changed, 1163 insertions, 0 deletions
diff --git a/testautomation/writer/optional/includes/table/w_204_.inc b/testautomation/writer/optional/includes/table/w_204_.inc new file mode 100755 index 000000000000..9bc3f38498d5 --- /dev/null +++ b/testautomation/writer/optional/includes/table/w_204_.inc @@ -0,0 +1,1163 @@ +'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_204_.inc,v $ +'* +'* $Revision: 1.3 $ +'* +'* last change: $Author: vg $ $Date: 2008-08-18 12:36:50 $ +'* +'* 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 : helge.delfs@sun.com +'* +'* short description : Writer Table Test +'* +'************************************************************************* +'* +'* tTableOption +'* tTableInsert1 +'* tTableInsert2 +'* tTableInsert3 +'* tTableInsert4 +'* tTableInsert5 +'* tTableNumberFormat +'* tTableDelete +'* tTableText +'* tTableCalculate +'* tTableEdit +'* +'\*********************************************************************** + +sub w_204_ + Call tTableOption + Call tTableInsert1 + Call tTableInsert2 + Call tTableInsert3 + Call tTableInsert4 + Call tTableInsert5 + Call tTableNumberFormat + Call tTableDelete + Call tTableText + Call tTableCalculate + Call tTableEdit +end sub + +testcase tTableOption + '/// Check Tables' default Option /// + printlog "/// Check Tables' default Option ///" + + Call hNewDocument + + '/// TOOLS->OPTIONS->StarOffice Writer->Table ///" + '/// Number recognition should be OFF by default///" + '/// two boxes below are checked but disabled ///" + + ToolsOptions + Call hToolsOptions ("WRITER","Table") + if AutomatischeZahlenerkennung.IsChecked then + warnlog "The default for 'Number recognition' should be OFF => 114166 " + AutomatischeZahlenerkennung.UnCheck + else + if AutomatischeAusrichtung.IsChecked then + try + AutomatischeAusrichtung.UnCheck + warnlog "'Number format recognition' should be disabled => 114166 " + catch + endcatch + else + warnlog "'Number format recognition' should be checked => 114166 " + end if + if Zahlenformaterkennung.IsChecked then + try + Zahlenformaterkennung.UnCheck + warnlog "'Alignment' should be disabled => 114166 " + catch + endcatch + else + warnlog "'Alignment' should be checked => 114166 " + end if + end if + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.Cancel + + Call hCloseDocument + +endcase + +' -------------------------------------------------------------------- + +testcase tTableInsert1 + dim i as integer + + Call hNewDocument + Kontext "DocumentWriter" + + Printlog "'/// 1. Insert Toolbox -> Insert Table ///" + Call hToolbarSelect ( "Insert", True ) + Kontext "InsertBar" + Tabelle.Click + Kontext "TabelleEinfuegenWriter" + TabellenName.SetText "one" + Spalten.Settext "5" + TabelleEinfuegenWriter.OK + Call wTypeKeys "one<down>" + + Printlog "'///+ ... play with number recognition in TOOLS->OPTIONS->TextDoc->Table ///" + Printlog "'///+ ... Number recognition OFF ///" + ToolsOptions + Call hToolsOptions ("WRITER","Table") + AutomatischeZahlenerkennung.UnCheck + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK + + ' insert test row + Call hToolbarSelect ( "Table", true ) + ZeileEinfuegen.Click + Call wTypeKeys "<down>11111<Tab>1"+cSep+"116111<Tab>1"+cDecSep+"116111<Tab>abcd<shift tab><shift tab><shift tab>" + ' check format + for i=1 to 4 + FormatNumberFormat + Kontext "Zahlenformat" + if (Kategorie.GetSelText <> fLocaleString("LocaleText")) then + warnlog "wrong format; is: "+Kategorie.GetSelText+" should: "+fLocaleString("LocaleText") ' Text + end if + Zahlenformat.Cancel + FormatParagraph + Kontext + Active.SetPage tabAusrichtungAbsatz + Kontext "tabAusrichtungAbsatz" + if (links.isChecked <> true) then warnlog "wrong alignment of tablefield: "+i + TabAusrichtungAbsatz.Cancel + Call wTypeKeys "<Tab>" + next i + ' go back to start of table + Call wTypeKeys "<Mod1 Home><Down>" + + Printlog "'///+ ... Number recognition ON - ///" + ToolsOptions + Call hToolsOptions ("WRITER","Table") + AutomatischeZahlenerkennung.Check ' even with that, everything is a TEXT :-(???? + Zahlenformaterkennung.UnCheck ' much better with that! everything with numbers&decimalsep is number with 2 decimal places displayed, but all kept!!! + AutomatischeAusrichtung.UnCheck ' just the allignment does change too! + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK + + Call hToolbarSelect ( "Table", true ) + ZeileEinfuegen.Click + Call wTypeKeys "<down>11111<Tab>1"+cSep+"116111<Tab>1"+cDecSep+"116111<Tab>abcd<shift tab><shift tab><shift tab>" + for i=1 to 4 + FormatNumberFormat + Kontext "Zahlenformat" + if (Kategorie.GetSelText <> fLocaleString("LocaleText")) then + warnlog "wrong format; is: "+Kategorie.GetSelText+" should: "+fLocaleString("LocaleText") ' Text + end if + Zahlenformat.Cancel + FormatParagraph + Kontext + Active.SetPage tabAusrichtungAbsatz + Kontext "TabAusrichtungAbsatz" + if (Links.IsChecked = false) then warnlog "wrong alignment of tablefield: "+i + TabAusrichtungAbsatz.Cancel + Call wTypeKeys "<Tab>" + next i + Call wTypeKeys "<Mod1 Home><Down>" + + Printlog "'///+ ... Number recognition ON - Number format recognition ///" + ToolsOptions + Call hToolsOptions ("WRITER","Table") + AutomatischeZahlenerkennung.Check ' even with that, everything is a TEXT :-(???? + Zahlenformaterkennung.Check ' much better with that! everything with numbers&decimalsep is number with 2 decimal places displayed, but all kept!!! + AutomatischeAusrichtung.UnCheck ' just the allignment does change too! + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK + Call hToolbarSelect ( "Table", true ) + ZeileEinfuegen.Click + Call wTypeKeys "<down>11111<Tab>1"+cSep+"116111<Tab>1"+cDecSep+"116111<Tab>abcd<shift tab><shift tab><shift tab>" + ' number, text, number, text + for i=1 to 4 + FormatNumberFormat + Kontext "Zahlenformat" + Select Case i + Case 1,2,3 + if (Kategorie.GetSelText <> fLocaleString("LocaleNumber")) then + warnlog "wrong format; "+ i +"; is: "+Kategorie.GetSelText+" should: "+fLocaleString("LocaleNumber") ' Number + end if + Case 4 + if (Kategorie.GetSelText <> fLocaleString("LocaleText")) then + warnlog "wrong format; "+ i +"; is: "+Kategorie.GetSelText+" should: "+fLocaleString("LocaleText") ' Text + end if + end select + Zahlenformat.Cancel + Call wTypeKeys "<Tab>" + next i + Call wTypeKeys "<Mod1 Home><Down>" + + Printlog "'///+ ... Number recognition ON - Number format recognition - Alignment ///" + ToolsOptions + Call hToolsOptions ("WRITER","Table") + AutomatischeZahlenerkennung.Check ' even with that, everything is a TEXT :-(???? + Zahlenformaterkennung.Check ' much better with that! everything with numbers&decimalsep is number with 2 decimal places displayed, but all kept!!! + AutomatischeAusrichtung.Check ' just the allignment does change too! + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK + Call hToolbarSelect ( "Table", true ) + ZeileEinfuegen.Click + Call wTypeKeys "<down>11111<Tab>1"+cSep+"116111<Tab>1"+cDecSep+"116111<Tab>abcd<shift tab><shift tab><shift tab>" + ' number-right, text-left, number-right, text-left + for i=1 to 4 + Select Case i + Case 1,2,3 + FormatNumberFormat + Kontext "Zahlenformat" + if (Kategorie.GetSelText <> fLocaleString("LocaleNumber")) then + warnlog "wrong format; "+ i +"; is: "+Kategorie.GetSelText+" should: "+fLocaleString("LocaleNumber") ' number + end if + Zahlenformat.Cancel + formatparagraph + Kontext + Active.SetPage tabAusrichtungAbsatz + Kontext "tabAusrichtungAbsatz" + if (rechts.isChecked <> true) then warnlog "wrong alignment of tablefield: "+i +"; should: right" + tabausrichtungabsatz.Cancel + Case 4 + FormatNumberFormat + Kontext "Zahlenformat" + if (Kategorie.GetSelText <> fLocaleString("LocaleText")) then + warnlog "wrong format; is: "+ i +"; "+Kategorie.GetSelText+" should: "+fLocaleString("LocaleText") ' Text + end if + Zahlenformat.Cancel + formatparagraph + Kontext + Active.SetPage TabAusrichtungAbsatz + Kontext "TabAusrichtungAbsatz" + if (links.isChecked <> true) then warnlog "wrong alignment of tablefield: "+i+"; should: left" + TabAusrichtungAbsatz.Cancel + end select + Call wTypeKeys "<Tab>" + next i + + Call hCloseDocument + +endcase + +' -------------------------------------------------------------------- + +testcase tTableInsert2 + + Call hNewDocument + Printlog "'/// 2. Insert Toolbox -> Insert Table -> Autoformat ///" + ' using autoformat + Call hToolbarSelect ( "Insert", True ) + Kontext "InsertBar" + Tabelle.Click + Kontext "TabelleEinfuegenWriter" + Spalten.Settext "5" + Zeilen.SetText "20" + Autoformat.Click + Kontext "AutoformatTabelle" + AutoFormatTabelle.OK + Kontext "TabelleEinfuegenWriter" + TabellenName.SetText "two" + TabelleEinfuegenWriter.OK + Call wTypeKeys "two" + + Call hCloseDocument + +endcase + +' -------------------------------------------------------------------- +testcase tTableInsert3 + dim i as integer + dim sTemp as string + dim itemp(3) as integer + + Call hNewDocument + Printlog "'/// 3. Menu: Insert -> Table (Shortcut): {strg} + {F12} ///" + Printlog "'///+ Test Options on 'Insert Table' ///" + Printlog "'///+ Header ON ///" + ' table heading active + ' Don't split table INactive + ' table border unchecked + Call wTypeKeys "<Mod1 F12>" + Kontext "TabelleEinfuegenWriter" + + TabellenName.SetText "three" + Spalten.Settext "5" + Ueberschrift.Check + Umrandung.Uncheck + TabelleEinfuegenWriter.OK + Call wTypeKeys "three" + + ' -------------check if heading 1 + ' if checked: heading; else: contents !! SystemLanguage dependent !! :-( + Printlog "'///+ check if Header ON ///" + Kontext "TextObjectbar" + sleep (1) + sTemp = Vorlage.GetSelText + if (sTemp <> fLocaleString("LocaleTableHeading")) then + Warnlog "--- table heading did not work!" + warnlog "--- is:" + sTemp + ", should :" + fLocaleString("LocaleTableHeading") + end if + '---------------------------------- + Call wTypeKeys "<down>" + ' -------------check if splitting; it HAS TO split + Printlog "'///+ check if Table gets splitted - it HAS TO split ///" + + InsertFieldsPagenumbers ' get pagenumber & leave it for next calculation + Call wTypeKeys "<Mod1 A>" + ToolsCalculate + itemp(1) = val(GetClipboardText) + Call hToolbarSelect ( "Table", true ) + for i=1 to 60 + ZeileEinfuegen.Click ' inserted below the current row + wait 200 + next i + ToolsUpdateUpdateAll ' update field & get pagenumber & clear + Call wTypeKeys "<Left><Right>" ' Seems there are focus problems on Solaris...workaround + Call wTypeKeys "<Mod1 A>" + ToolsCalculate + itemp(2) = val(GetClipboardText) + if (itemp(1)+1 = itemp(2)) then warnlog "--- Table moved to seconde page" + EditCut + Call wTypeKeys "got start3" + + Call wTypeKeys "<Mod1 end>" ' move to last cell in table + InsertFieldsPagenumbers ' get pagenumber & clear + Call wTypeKeys "<Mod1 A>" + ToolsCalculate + itemp(3) = val(GetClipboardText) + if (itemp(2) <> itemp(3)) then + printlog "--- Table splitted" + itemp(3) + else + warnlog "put some more rows in!!!" + end if + + Call hCloseDocument +endcase + +' -------------------------------------------------------------------- +testcase tTableInsert4 + dim i as integer + dim stemp as string + + '/// Open a new writer document + Call hNewDocument + '/// Insert some dummy text + if wBlindTextEinfuegen() = false then + Call hCloseDocument + goto endsub + end if + '/// Insert a table with parameters: + InsertTableWriter + Kontext "TabelleEinfuegenWriter" + + '/// - Set table name: four + TabellenName.SetText "four" + '/// - number of columns: 5 + Spalten.Settext "5" + '/// - number of rows: 16 + Zeilen.Settext "16" + '/// - Header: uncheck + Ueberschrift.UnCheck + '/// - Don't split table: check + TabelleNichtTrennen.Check + '/// - Border: check + Umrandung.check + TabelleEinfuegenWriter.OK + + '/// check if table has no header + Printlog "check if Header OFF" + Kontext "TextObjectbar" + sleep (1) + if wStyleGet(fLocaleString("LocaleTableHeading")) = true then + Warnlog "Seems tableheader is activated though header is off" + end if + + '/// Cursor leaves table with <Up> and <End> + Printlog "check if Table gets splitted" + Call wTypeKeys "<Up><End><SPACE>" + '/// Insert dummy text again 3 times + Call wBlindtextEinfuegen +' wait 500 + Call wBlindtextEinfuegen +' wait 500 + Call wBlindtextEinfuegen + '/// check if table has been moved to Page 2 + + Call wTypeKeys "<Mod1 End>" ' jump to documents end + Call wTypeKeys "<Up>" ' move cursor into table + Call wTypeKeys "<Mod1 Home>" ' move cursor to first cell + + '/// Insert / Fields / Pagenumbers to check on which page table is + InsertFieldsPagenumbers + Call wTypeKeys "<shift home>" + ToolsCalculate + + if (GetClipboardText = "2") or (GetClipboardText = "3") then + printlog "Table has been moved correctly" + else + warnlog " It seems table has been splitted" + end if + + '/// <B>Table should split if table is bigger than one page</B> + Call wTypeKeys "<Up>" + Call wTypeKeys "<shift mod1 home>" + Call wTypeKeys "<delete>" + Call wBlindtextEinfuegen + Call wTypeKeys "<mod1 End>" + Call wTypeKeys "<up>" + Call wTypeKeys "<mod1 Home>" + + Printlog "Table should split" + Call hToolbarSelect ( "Table", true ) + for i=1 to 25 + ZeileEinfuegen.Click ' inserted below the current row + next i + Call wTypeKeys "<shift end>" + ToolsCalculate + stemp = GetClipboardText + Call wTypeKeys "<ESCAPE>" + Call wTypeKeys "<mod1 End>" + InsertFieldsPagenumbers + Call wTypeKeys "<shift home>" + ToolsCalculate + if (GetClipboardText <> stemp) then + printlog "Table has been splitted" + else + warnlog " It seems table has not been splitted" + end if + + Call hCloseDocument +endcase + +' -------------------------------------------------------------------- +testcase tTableInsert5 + + Call hNewDocument + '/// Insert Text with delimeter & call Tools -> Text<->Table + Printlog "'/// Insert Text with delimeter & call Tools -> Text<->Table ///" + Call wTypeKeys "five;2;3;4;5;<return>" + Call wTypeKeys "a;b;c;d;e;<return>" + Call wTypeKeys "A;B;C;D;E;" + Call wTypeKeys "<shift home>" + Call wTypeKeys "<shift up>" + Call wTypeKeys "<shift up>" + + ToolsTextInTable + Kontext "TextInTabelleUmwandeln" + Semikolon.Check + + TextInTabelleUmwandeln.OK + Call wTypeKeys "<end><Mod1 end><down><return>" + + Call hCloseDocument +endcase + +' -------------------------------------------------------------------- + +testcase tTableNumberFormat + + Call hNewDocument + Printlog "'/// Fill table with content: Tools->Options->TextDoc->Number formating/recognition check ALL ///" + '/// use table 5x10; and try to get every entry from format->numberFormat->Categorie ///' + + Call TBOhTabelleEinfuegen ("six",0, 0, 0, 1,"5", "10" ) + Call wTypeKeys "six<down>" + + ToolsOptions ' set options for this test + Call hToolsOptions ("WRITER","Table") + AutomatischeZahlenerkennung.Check + Zahlenformaterkennung.Check + AutomatischeAusrichtung.Check + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK + + printlog "Checking numberformater" + '///+ - Currency + printlog " - Currency" + call wTypeKeys(fLocaleString("LocaleCurrencyValue")) + call wTypeKeys "<Tab><shift tab>" + FormatNumberFormat + Kontext "Zahlenformat" + if (Kategorie.GetSelIndex <> 5) then + warnlog "The value is not recognized as currency, it is " & Kategorie.GetSelText + else + printlog " - Value is correctly recognized as currency" + end if + Zahlenformat.Cancel + formatparagraph + Kontext + Active.SetPage tabAusrichtungAbsatz + Kontext "tabAusrichtungAbsatz" + if (rechts.isChecked <> true) then + warnlog "wrong alignment of number" + else + printlog " - Currencyvalue is correctly alligned" + end if + TabAusrichtungAbsatz.Cancel + Call wTypeKeys "<home><shift end>" + EditCopy + if (GetClipboardText <> fLocaleString("LocaleCurrencyValue")) then + warnlog "The number is not correctly formated. It is: " & GetClipboardText & " but should be: " & fLocaleString("LocaleCurrencyValue") + else + printlog " - Currencyvalue is correctly formated" + end if + + '///+ - Unknown currency + printlog " - Unknown currency" + call wTypeKeys("10.78 §") + call wTypeKeys "<Tab><shift tab>" + FormatNumberFormat + + Kontext "Zahlenformat" + if (Kategorie.GetSelIndex <> 11) then + warnlog "The value is not recognized as string, it is " & Kategorie.GetSelText + else + printlog " - Value is correctly recognized as string" + end if + Zahlenformat.Cancel + formatparagraph + Kontext + Active.SetPage tabAusrichtungAbsatz + Kontext "tabAusrichtungAbsatz" + if (links.isChecked <> true) then + warnlog "wrong alignment of number" + else + printlog " - Value is correctly alligned" + end if + TabAusrichtungAbsatz.Cancel + Call wTypeKeys "<home><shift end>" + EditCopy + if (GetClipboardText <> "10.78 §") then + warnlog "The number is not correctly formated: should be 10.78 §, but is " & GetClipboardText + else + printlog " - Value is correctly formated" + end if + + '///+ - Date + printlog " - Date" + call wTypeKeys(fLocaleString("LocaleDateValue")) + call wTypeKeys "<Tab><shift tab>" + FormatNumberFormat + + Kontext "Zahlenformat" + if (Kategorie.GetSelIndex <> 6) then + warnlog "The value is not recognized as date, it is " & Kategorie.GetSelText + else + printlog " - Value is correctly recognized as date" + end if + Zahlenformat.Cancel + Formatparagraph + Kontext + Active.SetPage tabAusrichtungAbsatz + Kontext "tabAusrichtungAbsatz" + if (rechts.isChecked <> true) then + warnlog "wrong alignment of number" + else + printlog " - Datevalue is correctly alligned" + end if + TabAusrichtungAbsatz.Cancel + Call wTypeKeys "<home><shift end>" + EditCopy + if (GetClipboardText <> fLocaleString("LocaleDateOutput")) then + warnlog "The number is not correctly formated: should be " & fLocaleString("LocaleDateOutput") & ", but is " & GetClipboardText + else + printlog " - Datevalue is correctly formated" + end if + + '///+ - Time + printlog " - Time" + call wTypeKeys(fLocaleString("LocaleTimeInput")) + call wTypeKeys "<Tab><shift tab>" + FormatNumberFormat + + Kontext "Zahlenformat" + if (Kategorie.GetSelIndex <> 7) then + warnlog "The value is not recognized as time, it is " & Kategorie.GetSelText + else + printlog " - Value is correctly recognized as date" + end if + Zahlenformat.Cancel + Formatparagraph + Kontext + Active.SetPage tabAusrichtungAbsatz + Kontext "tabAusrichtungAbsatz" + if (rechts.isChecked <> true) then + warnlog "wrong alignment of number" + else + printlog " - Timevalue is correctly alligned" + end if + TabAusrichtungAbsatz.Cancel + Call wTypeKeys "<home><shift end>" + EditCopy + if (GetClipboardText <> fLocaleString("LocaleTimeValue")) then + warnlog "The number is not correctly formated: should be " & fLocaleString("LocaleTimeValue") & ", but is " & GetClipboardText + else + printlog " - Timevalue is correctly formated" + end if + + '///+ - Percent + printlog " - Percent" + call wTypeKeys(fLocaleString("LocalePercentValue")) + call wTypeKeys "<Tab><shift tab>" + FormatNumberFormat + + Kontext "Zahlenformat" + if (Kategorie.GetSelIndex <> 4) then + warnlog "The value is not recognized as percent, it is " & Kategorie.GetSelText + else + printlog " - Value is correctly recognized as percent" + end if + Zahlenformat.Cancel + Formatparagraph + Kontext + Active.SetPage tabAusrichtungAbsatz + Kontext "tabAusrichtungAbsatz" + if (rechts.isChecked <> true) then + warnlog "wrong alignment of number" + else + printlog " - Percentvalue is correctly alligned" + end if + TabAusrichtungAbsatz.Cancel + Call wTypeKeys "<home><shift end>" + EditCopy + if (GetClipboardText <> fLocaleString("LocalePercentValue")) then + warnlog "The number is not correctly formated: should be " & fLocaleString("LocalePercentValue") & ", but is " & GetClipboardText + else + printlog " - Percentvalue is correctly formated" + end if + + '///+ - Scientific + printlog " - Scientific" + call wTypeKeys(fLocaleString("LocaleScientificValue")) + call wTypeKeys "<Tab><shift tab>" + FormatNumberFormat + + Kontext "Zahlenformat" + if (Kategorie.GetSelIndex <> 8) then + warnlog "The value is not recognized as scientific, it is " & Kategorie.GetSelText + else + printlog " - Value is correctly recognized as scientific" + end if + Zahlenformat.Cancel + Formatparagraph + Kontext + Active.SetPage tabAusrichtungAbsatz + Kontext "tabAusrichtungAbsatz" + if (rechts.isChecked <> true) then + warnlog "wrong alignment of number" + else + printlog " - Scientificvalue is correctly alligned" + end if + TabAusrichtungAbsatz.Cancel + Call wTypeKeys "<home><shift end>" + EditCopy + if (GetClipboardText <> fLocaleString("LocaleScientificValue")) then + warnlog "The number is not correctly formated: should be " & fLocaleString("LocaleScientificValue") & ", but is " & GetClipboardText + else + printlog " - Scientificvalue is correctly formated" + end if + + '///+ - Fraction + printlog " - Fraction" + call wTypeKeys("58 11/4") + call wTypeKeys "<Tab><shift tab>" + FormatNumberFormat + + Kontext "Zahlenformat" + if (Kategorie.GetSelIndex <> 9) then + warnlog "The value is not recognized as fraction, it is " & Kategorie.GetSelText + else + printlog " - Value is correctly recognized as fraction" + end if + Zahlenformat.Cancel + Formatparagraph + Kontext + Active.SetPage tabAusrichtungAbsatz + Kontext "tabAusrichtungAbsatz" + if (rechts.isChecked <> true) then + warnlog "wrong alignment of number" + else + printlog " - Fractionvalue is correctly alligned" + end if + TabAusrichtungAbsatz.Cancel + Call wTypeKeys "<home><shift end>" + EditCopy + if (GetClipboardText <> "60 3/4") then + warnlog "The number is not correctly formated: should be 60 3/4, but is " & GetClipboardText + else + printlog " - Fractionvalue is correctly formated" + end if + + '///+ - Boolean + printlog " - Boolean" + call wTypeKeys(fLocaleString("LocaleBooleanValue")) + call wTypeKeys "<Tab><shift tab>" + FormatNumberFormat + + Kontext "Zahlenformat" + + if (Kategorie.GetSelIndex = 10) then + printlog " - Value is correctly recognized as boolean" + elseif iSprache = 86 or iSprache = 82 or iSprache =88 then + warnlog "Boolean value in chinese and korean not recognized" + else + warnlog "The value " & fLocaleString("LocaleBooleanValue") & "is not recognized as boolean, it is " & Kategorie.GetSelText + end if + + Zahlenformat.Cancel + Formatparagraph + Kontext + Active.SetPage tabAusrichtungAbsatz + Kontext "tabAusrichtungAbsatz" + if (rechts.isChecked = true) then + printlog " - Booleanvalue is correctly alligned" + elseif iSprache = 86 or iSprache = 82 or iSprache = 88 then + warnlog "Boolean value in chinese and korean not recognized" + else + warnlog "wrong alignment of number" + end if + + TabAusrichtungAbsatz.Cancel + Call wTypeKeys "<home><shift end>" + EditCopy + if (GetClipboardText <> fLocaleString("LocaleBooleanValue")) then + warnlog "The number is not correctly formated: should be " & fLocaleString("LocaleBooleanValue") & ", but is " & GetClipboardText + else + printlog " - Booleanvalue is correctly formated" + end if + + '///+ - String + printlog " - String" + call wTypeKeys("testtext") + call wTypeKeys "<Tab><shift tab>" + FormatNumberFormat + + Kontext "Zahlenformat" + if (Kategorie.GetSelIndex <> 11) then + warnlog "The value is not recognized as string, it is " & Kategorie.GetSelText + else + printlog " - Value is correctly recognized as string" + end if + Zahlenformat.Cancel + Formatparagraph + Kontext + Active.SetPage tabAusrichtungAbsatz + Kontext "tabAusrichtungAbsatz" + if (links.isChecked <> true) then + warnlog "wrong alignment of string" + else + printlog " - String is correctly alligned" + end if + TabAusrichtungAbsatz.Cancel + Call wTypeKeys "<home><shift end>" + EditCopy + if (GetClipboardText <> "Testtext") then + warnlog "The string is not correctly formated: should be Testtext, but is " & GetClipboardText + else + printlog " - String is correctly formated" + end if + + '/// finished the file, now some hardwired tests ///' + '///+ check, if all decimals are saved, even if not displayed ///' + Call wTypeKeys "123" & cDecSep & "123456789" + Call wTypeKeys "<Tab><shift tab>" + Call wTypeKeys "<home><shift end>" + wait 500 + EditCopy + if (GetClipboardText <> "123" & cDecSep & "12") then warnlog "wrong reformating of text tablefield 1; should: " & "123" & cDecSep & "12 is: "+GetClipboardText + EditUndo + Call wTypeKeys "<home><shift end>" + EditCopy + if (GetClipboardText <> "123" & cDecSep & "123456789") then warnlog "wrong reformating of text tablefield 2; should: 123" & cDecSep & "123456789 is: "+GetClipboardText + + Call hCloseDocument () +endcase + +' -------------------------------------------------------------------- + +testcase tTableDelete + dim i as integer + + Call hNewDocument + Printlog "'/// delete rows/columns in a table ///" + + Call TBOhTabelleEinfuegen ("seven",0, 0, 0, 1,"20", "20" ) + ' Point cursor to upper left cell + Call wTypeKeys "<Mod1 Home>", 2 + Call wTypeKeys "1" + For i = 2 to 20 + Call wTypeKeys "<down><right>" + Call wTypeKeys CStr(i) + next i + Call wTypeKeys "<Mod1 Home>", 2 + + Printlog "'/// via keys {alt delete} {cursor} -> delete row/column ///" + ' delete some rows/columns using shortcuts del 2rows 2cols + Call wTypeKeys "<mod2 delete><right>" + Call wTypeKeys "<right>" + Call wTypeKeys "<mod2 delete><left>" + Call wTypeKeys "<left>" + Call wTypeKeys "<mod2 delete><down>" + Call wTypeKeys "<down>" + Call wTypeKeys "<mod2 delete><up>" + Call wTypeKeys "<up>" + Call SpaltenTesten ( 18 ) + Call wTypeKeys "<Mod1 Home>", 2 + Call wTypeKeys "<Mod1 A>" + EditCopy + if GetClipboardtext <> "2" then + Warnlog "Deleting rows/columns via keys has not been worked as accepted! -> Test failed!" + Call hCloseDocument + exit sub + end if + + Printlog "'/// via menue Format[Zeile|Spalte]Loeschen ///" + for i = 1 to 17 ' delete some rows/columns + FormatZeileLoeschen + wait 500 + FormatSpalteLoeschen + wait 500 + next i + Call wTypeKeys "<Mod1 A>" + EditCopy + if GetClipboardtext <> "20" then + Warnlog "Deleting rows/columns via keys has not been worked as accepted! -> Test failed!" + Call hCloseDocument + exit sub + end if + + Printlog "'/// via keys {alt insert} {cursor} -> insert row/column ///" + Call wTypeKeys "<ESCAPE>" + Call wTypeKeys "<mod2 insert><left>" + Call wTypeKeys "<mod2 insert><right>" + Call wTypeKeys "<mod2 insert><down>" + Call wTypeKeys "<mod2 insert><up>" + Call SpaltenTesten ( 3 ) + Call wTypeKeys "<Mod1 Home>", 2 + Call wTypeKeys "<Shift End>" + try + EditCopy + Warnlog "Maybe no columns have been inserted!" + catch + Call wTypeKeys "<Right>", 2 + Call wTypeKeys "<Shift End>" + try + EditCopy + if GetClipboardtext <> "20" then + Warnlog "Maybe no columns have been inserted!" + end if + catch + Warnlog "Maybe no columns have been inserted!" + endcatch + endcatch + + Printlog "'/// delete whole table ///" + Call wTypeKeys "<mod1 home>", 2 ' delete hole table + Call wTypeKeys "<Mod1 A>" + try + Call wTypeKeys "<MOD1 SHIFT DELETE>" 'EditCut + Call wTypeKeys "<return>" + catch + Warnlog "Unable to delete table!" + endcatch + Call hCloseDocument +endcase + +'-------------------------------------------------------------------------------------------------------- + +testcase tTableText + dim i as integer + + Call hNewDocument + Printlog "'/// +++ table to text ///" + + Call TBOhTabelleEinfuegen ("seven",0, 0, 0, 1,"10", "10" ) + + for i = 1 to 99 ' fill every cell + Call wTypeKeys CStr(i) + Call wTypeKeys "<Tab>" + next i + + ToolsTextInTable ' convert with '+' seperator + Kontext "TextInTabelleUmwandeln" + Andere.Check + AndereText.settext "+" + TextInTabelleUmwandeln.OK + + Call wTypeKeys "<home>" ' calculate every row + for i = 1 to 10 + Call wTypeKeys "<shift end>" + ToolsCalculate + Call wTypeKeys "<shift insert>" + Call wTypeKeys "+<delete>" + next i + Call wTypeKeys "<backspace>0<shift home>" + ToolsCalculate + if (GetClipboardText <> "12645") then warnlog "wrong table converting table<->text " + Call wTypeKeys "<shift insert><return>" + + Call hCloseDocument () +endcase + +'------------------------------------------------------------------------------------------- + +testcase tTableCalculate + Printlog "'/// calculating in table ///" + Call hNewDocument + + Call TBOhTabelleEinfuegen () + Call wTypeKeys "1<Tab>2<Tab>3<Tab>4<Tab>5<Tab>6<Tab>7<Tab>8<Tab>" + Call wTypeKeys "<end><Mod1 end><down><return>" + Call TBOhTabelleEinfuegen ("eight",0, 0, 0, 1,"5", "5" ) + + '///' should look like: <pre> /// + '///+ a b c d e /// + '///+1 1,.1 2,.2 =3,.3 4,.4 =summe<:4,.4 /// + '///+2 1 2 =3 4 =summe<:4 /// + '///+3 =2,.1 =18,.9 =2 =-0,31 =32,.6926671... <1.check> /// + '///+4 =14 =16 gone =<2.check> = ...table1 ?? /// + '///+5 </pre> /// + + '/// this table gets generated one by one ///' + + Call wTypeKeys "1"+cDecSep+"1<Tab>" ' insert input A1 + Call wTypeKeys "2"+cDecSep+"2<Tab>" + Call wTypeKeys "=" ' + Kontext "OL_SW_Rechenleiste" ' C1 + Eingabefeld.SetText "<A1>+<B1>" + Uebernehmen.click + Call wTypeKeys "<Tab>" + Call wTypeKeys "4"+cDecSep+"4<Tab>" + Call wTypeKeys "<Tab>" + + Call wTypeKeys "1<Tab>" ' A2 + Call wTypeKeys "2<Tab>" + Call wTypeKeys "<Tab>" + Call wTypeKeys "4<shift tab>" + Call wTypeKeys "=" ' + Kontext "OL_SW_Rechenleiste" ' C2 + Eingabefeld.SetText "<D2>-<A2>" + Uebernehmen.click + Call wTypeKeys "<Tab>" + Call wTypeKeys "<Tab>" + + ' automatic sum works only to next formula :-< ///' + Call hToolbarSelect ( "Table", true ) + formeleingeben.click + Kontext "OL_SW_Rechenleiste" + Uebernehmen.click + Call wTypeKeys "<up>" + + Call hToolbarSelect ( "Table", true ) + formeleingeben.click + Kontext "OL_SW_Rechenleiste" + Uebernehmen.click + Call wTypeKeys "<down><Tab>" + + Call wTypeKeys "=" ' slip into calculation area + Kontext "OL_SW_Rechenleiste" ' A3 + Eingabefeld.SetText "sum <A1:A2>" + Uebernehmen.click + Call wTypeKeys "<Tab>" + Call wTypeKeys "<F2>" ' + Kontext "OL_SW_Rechenleiste" + Eingabefeld.SetText "sum <D2:B1>" + Uebernehmen.click + Call wTypeKeys "<Tab>" + Call wTypeKeys "<F2>" ' + Kontext "OL_SW_Rechenleiste" + Eingabefeld.SetText "sqrt <E2>" + Uebernehmen.click + Call wTypeKeys "<Tab>" + Call wTypeKeys "<F2>" ' + Kontext "OL_SW_Rechenleiste" + Eingabefeld.SetText "cos <E1>" + Uebernehmen.click + Call wTypeKeys "<Tab>" + + Call wTypeKeys "<F2>" ' E3 check this out :-) + Kontext "OL_SW_Rechenleiste" + Eingabefeld.SetText "sum <A2:D3>" + Uebernehmen.click + Call wTypeKeys "<shift home>" + EditCopy + if (GetClipboardText <> "32" & cDecSep & "69") then warnlog "wrong calculation should: 32" & cDecSep & "69 is: "+GetClipboardText + Call wTypeKeys "<end><Tab>" + + Call wTypeKeys "<F2>" ' A4 + Kontext "OL_SW_Rechenleiste" + Eingabefeld.SetText "2+3*4" + Uebernehmen.click + Call wTypeKeys "<shift home>" + EditCopy + if (GetClipboardText <> "14") then warnlog "wrong calculation should: "+"14"+" is: "+GetClipboardText + Call wTypeKeys "<end><Tab>" + + Call wTypeKeys "<F2>" ' B4 + Kontext "OL_SW_Rechenleiste" + Eingabefeld.SetText "2*2 pow 3" + Uebernehmen.click + Call wTypeKeys "<shift home>" + EditCopy + if (GetClipboardText <> "16") then warnlog "wrong calculation should: "+"16"+" is: "+GetClipboardText + Call wTypeKeys "<end><Tab>" + Call wTypeKeys "<shift tab>" + sleep (1) + Call wTypeKeys "<Tab>" + sleep (1) + + '/// one row gets deleted///' + FormatSpalteLoeschen ' grumel: have to find a cell :-( + Call wTypeKeys "<F2>" ' C4 + Kontext "OL_SW_Rechenleiste" + Eingabefeld.SetText "sum <A1:D3>" + Uebernehmen.click + Call wTypeKeys "<shift home>" + EditCopy + if (GetClipboardText <> "58" & cDecSep & "89") then warnlog "wrong calculation should: " & "58" & cDecSep & "89" & " is: " & GetClipboardText + Call wTypeKeys "<end><Tab>" + Call wTypeKeys "<F2>" ' C4 + Kontext "OL_SW_Rechenleiste" + Eingabefeld.SetText "sum <"+fLocaleString("LocaleTable")+"1.B1:E1> / <A2:D2>" + sleep (2) + Uebernehmen.click + Call wTypeKeys "<shift home>" + EditCopy + if (GetClipboardText <> "1" & cDecSep & "27") then warnlog "wrong calculation should: 1" & cDecSep & "27 is: " & GetClipboardText + Call wTypeKeys "<end><Tab>" + + Call wTypeKeys "<end><Mod1 end><down><return>" + Call hCloseDocument () +endcase + +'------------------------------------------------------------------------------------------- + +testcase tTableEdit + dim itemp(5) as integer + + Call hNewDocument + Printlog "'/// edit table ///" + + Call TBOhTabelleEinfuegen ("nine-dumy",0, 0, 0, 1,"5", "3" ) + Call wTypeKeys "<end><Mod1 end><Mod1 end><return>" + Call TBOhTabelleEinfuegen ("nine",0, 0, 0, 1,"5", "3" ) + Call wTypeKeys "nine<Tab>" + + Printlog "'/// insert Frame & Graphic in heading ///" + InsertFrame + sleep (5) + Kontext "tabtype" + sleep (5) + TabType.ok + sleep (5) + Call wTypeKeys "<escape>" + sleep (5) + Call hGrafikEinfuegen (gTesttoolPath +"writer\optional\input\options\ga000907.gif") + sleep (5) + Call wTypeKeys "<escape>" + sleep (5) + Call wTypeKeys "<mod1 end><up><up>" + sleep (5) + + Printlog "'/// insert Frame & Graphic in body ///" + InsertFrame + sleep (5) + Kontext "tabtype" + sleep (5) + TabType.ok + sleep (5) + Call wTypeKeys "<escape>" + sleep (5) + Call hGrafikEinfuegen (gTesttoolPath +"writer\optional\input\options\ga000907.gif") + sleep (5) + Call wTypeKeys "<escape>" + sleep (5) + Call wTypeKeys "<mod1 end><up><up><Tab>" + + Printlog "'/// insert Frame & Table in body ///" + InsertFrame + sleep (5) + Kontext "tabtype" + sleep (5) + TabType.ok + sleep (5) + Call wTypeKeys "<return>" + sleep (5) + try + Call hTabelleEinfuegen () + Call wTypeKeys "<mod1 end><mod1 end><up><up><Tab><Tab>" + catch + Warnlog "Hit <Enter>-Key should enable edit mode for selected frames! (srx642z or greater)" + Call wTypeKeys "<escape>" + Call wTypeKeys "<down>" + endcatch + sleep (5) + + Printlog "'/// insert PageBreak ///" + '/// TBO: check test / insert dummy table ' doesn't work, if the first 'stuff' in a document is the table ///' + InsertFieldsPagenumbers + Call wTypeKeys "<shift home>" + EditCopy + ToolsCalculate + sleep (5) + itemp(1) = val(GetClipboardText) + EditCut + InsertManualBreak + sleep (5) + Kontext "UmbruchEinfuegen" + Seitenumbruch.check + UmbruchEinfuegen.OK + sleep (5) + InsertFieldsPagenumbers + Call wTypeKeys "<shift home>" + EditCopy + ToolsCalculate + sleep (5) + itemp(3) = val(GetClipboardText) + if (itemp(1) <> itemp(3)) then + printlog "--- Pagebreak works in Table, that's good :-)" + else + warnlog " Pagebreak doesn't work in Table, that's not good :-("+itemp(1) +" "+ itemp(3) + end if + + sleep (5) + Call wTypeKeys "<end><Mod1 end><down><return>" + + Printlog "'/// the following may not be possible ///" + Printlog "'///+ Insert table in footnote ///" + InsertFootnote + Kontext "FussnoteEinfuegen" + FussnoteEinfuegen.OK + try + InsertTableWriter + warnlog " Table in Footnote is possible, that's not good :-(" + catch + endcatch + + Call wTypeKeys "<end><Mod1 end><return>" + Call hCloseDocument +endcase |