automationooo330m4#i113928#adding SL language (50) to writer testscripts
This commit is contained in:
Helge Delfs [hde]
parent
6ddad15084
commit
a126f35743
1 changed files with 59 additions and 47 deletions
106
testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc
Executable file → Normal file
106
testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc
Executable file → Normal file
|
|
@ -57,7 +57,7 @@ testcase tToolsSpellcheckWithShortcut
|
|||
Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer."
|
||||
exit sub
|
||||
end if
|
||||
|
||||
|
||||
call hFileOpen (TheFile,false)
|
||||
Call sMakeReadOnlyDocumentEditable
|
||||
|
||||
|
|
@ -69,12 +69,13 @@ testcase tToolsSpellcheckWithShortcut
|
|||
case 39 : Call wTypeKeys ("Don Cara Mio, capitoliooo?<Home>")
|
||||
case 49 : Call wTypeKeys ("Dies ist ein Rechtschreibtexxxxt<Home>")
|
||||
case 46 : Call wTypeKeys ("Det här är en rättstavningstexxxxt<Home>")
|
||||
case 50 : Call wTypeKeys ("To je test črkvana<Home>")
|
||||
case 07 : Printlog "- No Spellcheck in Russian!"
|
||||
goto endsub
|
||||
case 48 : Printlog "- No Spellcheck in Polish!"
|
||||
goto endsub
|
||||
case 55 : Printlog "- No Spellcheck in Brazilian!"
|
||||
goto endsub
|
||||
goto endsub
|
||||
case 81 : Printlog "- No Spellcheck in Japanese!"
|
||||
goto endsub
|
||||
case 82 : Printlog "- No Spellcheck in Korean!"
|
||||
|
|
@ -92,10 +93,10 @@ testcase tToolsSpellcheckWithShortcut
|
|||
Call wTypeKeys "<HOME>" 'Setting cursor to beginning
|
||||
Call wTypeKeys "<F7>" 'Calling spellchecker with shortcut
|
||||
sleep (1)
|
||||
|
||||
|
||||
Kontext "Active"
|
||||
if Active.Exists(1) then 'checking if messagebox comes up
|
||||
if Active.getRT = 304 then 'checking ressource type
|
||||
if Active.getRT = 304 then 'checking ressource type
|
||||
Active.OK
|
||||
else
|
||||
printlog "No message Box!"
|
||||
|
|
@ -178,6 +179,7 @@ testcase tToolsSpellcheckCorrect
|
|||
case 46 : FFText = "Den här filen innehåller viktig programinformation.<Return>"
|
||||
case 48 : FFText = "Nie wolno w zadnim wypadku przerywa uruchomionego serwisu !<Return>"
|
||||
case 49 : FFText = "Dies ist ein Text ohne Fehler.<Return>"
|
||||
case 50 : FFText = "To je besedilo brez napake.<Return>"
|
||||
case 55 : FFText = "Ele ouviu passos silenciosos atrás dele. Isso não estava certo.<Return>"
|
||||
case else : QAErrorLog " - The language " + iSprache +" has no defined language text. No Test !"
|
||||
exit Sub
|
||||
|
|
@ -263,6 +265,9 @@ testcase tToolsSpellcheck1Mistake
|
|||
case 49 : sErrorSampleText = "Diees ist ein Fehler."
|
||||
sWordToBeChecked = "Diees"
|
||||
sLanguageName = "Deutsch (Deutschland)"
|
||||
case 50 : sErrorSampleText = "Tuki je nekaj narobe."
|
||||
sWordToBeChecked = "Tuki"
|
||||
sLanguageName = "Slovenščina"
|
||||
case 55 : sErrorSampleText = "Esta poderia ser a respista para suas preces?"
|
||||
sWordToBeChecked = "respista"
|
||||
sLanguageName = "Português (Brasil)"
|
||||
|
|
@ -305,13 +310,13 @@ testcase tToolsSpellcheck1Mistake
|
|||
Call hCloseDocument
|
||||
goto endsub
|
||||
end if
|
||||
printlog "Current selected dictionary language is: " & DictionaryLanguage.GetSelText
|
||||
printlog "Current selected dictionary language is: " & DictionaryLanguage.GetSelText
|
||||
' Dictionary Language is language dependend. Function to be created
|
||||
printlog " - check language"
|
||||
'if DictionaryLanguage.GetSelText <> gLanguage then Warnlog "Dictionary language " + DictionaryLanguage.GetSelText +" selected"
|
||||
printlog " - replace wrong word with a suggestion"
|
||||
'/// replace wrong word with a suggestion ///
|
||||
|
||||
|
||||
if trim$(NotInDictionary.GetText) <> trim(sErrorSampleText) then
|
||||
warnlog " " & sErrorSampleText & " has not been detected as mistake. Detected mistake is:" & NotInDictionary.GetText
|
||||
end if
|
||||
|
|
@ -343,7 +348,7 @@ testcase tToolsSpellcheck1Mistake
|
|||
Active.No
|
||||
endcatch
|
||||
end if
|
||||
|
||||
|
||||
Kontext "Spellcheck"
|
||||
if Spellcheck.Exists then SpellcheckClose.Click
|
||||
|
||||
|
|
@ -377,7 +382,7 @@ testcase tToolsSpellcheckForward
|
|||
QAErrorLog "The language " + iSprache +" has no defined Errortext. No test!" 'iSystemSprache
|
||||
goto endsub
|
||||
end select
|
||||
|
||||
|
||||
if gApplication = "MASTERDOCUMENT" then
|
||||
if wInsertDocumentinMasterDoc(InsFile) = False then goto endsub
|
||||
EditPaste
|
||||
|
|
@ -387,7 +392,7 @@ testcase tToolsSpellcheckForward
|
|||
end if
|
||||
'/// point cursor to beginning of document and execute spellcheck ///
|
||||
Call wTypeKeys "<Mod1 Home>"
|
||||
|
||||
|
||||
select case iSprache
|
||||
case 01 : sDummy = "exprass" : sWordToBeAdded = "pablischer"
|
||||
case 07 : sDummy = "решаaт" : sWordToBeAdded = "кaнкретных"
|
||||
|
|
@ -401,6 +406,7 @@ testcase tToolsSpellcheckForward
|
|||
case 46 : sDummy = "handbroken" : sWordToBeAdded = "viktikt"
|
||||
case 48 : sDummy = "znajdujacej" : sWordToBeAdded = "usuniete"
|
||||
case 49 : sDummy = "reichtt" : sWordToBeAdded = "viierter"
|
||||
case 50 : sDummy = "Paglejmo" : sWordToBeAdded = "čtrto"
|
||||
case 55 : sDummy = "horat" : sWordToBeAdded = "dpa"
|
||||
end select
|
||||
|
||||
|
|
@ -537,7 +543,7 @@ testcase tToolsSpellcheckOnlyOneWord
|
|||
Dim InsFile as string
|
||||
Dim ReplacedWith as String
|
||||
Dim i as integer
|
||||
|
||||
|
||||
'/// Open specified document depending on language to check spellcheck ///
|
||||
'/// document has 1 defined wrong word ///
|
||||
PrintLog "- Tools / Spellchecking / Check only one word"
|
||||
|
|
@ -550,7 +556,7 @@ testcase tToolsSpellcheckOnlyOneWord
|
|||
QAErrorLog "The language " + iSprache +" has no defined Errortext. No test!"
|
||||
goto endsub
|
||||
end select
|
||||
|
||||
|
||||
if gApplication = "MASTERDOCUMENT" then
|
||||
if wInsertDocumentinMasterDoc(InsFile) = False then goto endsub
|
||||
EditPaste
|
||||
|
|
@ -559,7 +565,7 @@ testcase tToolsSpellcheckOnlyOneWord
|
|||
Call sMakeReadOnlyDocumentEditable
|
||||
end if
|
||||
Call wTypeKeys "<Mod1 Home>"
|
||||
|
||||
|
||||
select case iSprache
|
||||
case 01 : sWordToBeChecked = "excetionally" ' this word is wrong
|
||||
case 07 : sWordToBeChecked = "Кaнституции"
|
||||
|
|
@ -573,6 +579,7 @@ testcase tToolsSpellcheckOnlyOneWord
|
|||
case 46 : sWordToBeChecked = "avrttades" ' this word is wrong
|
||||
case 48 : sWordToBeChecked = "stosowanei" ' this word is wrong
|
||||
case 49 : sWordToBeChecked = "georaphischen" ' this word is wrong
|
||||
case 50 : sWordToBeChecked = "ssmo" ' this word is wrong
|
||||
case 55 : sWordToBeChecked = "Veigo" ' this word is wrong
|
||||
end select
|
||||
|
||||
|
|
@ -613,7 +620,7 @@ testcase tToolsSpellcheckOnlyOneWord
|
|||
ToolsSpellcheckWriter
|
||||
Kontext "Active"
|
||||
if Active.Exists then
|
||||
if Active.GetRT = 304 then
|
||||
if Active.GetRT = 304 then
|
||||
Warnlog "Spellcheck doesn't work correctly:" & Active.Gettext
|
||||
try
|
||||
Active.Ok
|
||||
|
|
@ -659,11 +666,11 @@ testcase tToolsSpellcheckOnlyOneWord
|
|||
Warnlog Active.Gettext
|
||||
endcatch
|
||||
end if
|
||||
end if
|
||||
|
||||
end if
|
||||
|
||||
Kontext "Spellcheck"
|
||||
if Spellcheck.Exists then SpellcheckClose.Click
|
||||
|
||||
|
||||
Call wTypeKeys "<Mod1 Shift Left>"
|
||||
try
|
||||
EditCopy
|
||||
|
|
@ -705,10 +712,10 @@ testcase tToolsSpellcheckOnlyOneWord
|
|||
Spellcheck.Close
|
||||
end if
|
||||
end if
|
||||
|
||||
|
||||
Kontext "Spellcheck"
|
||||
if Spellcheck.Exists then Spellcheck.Close
|
||||
|
||||
|
||||
'/// Close document ///
|
||||
Call hCloseDocument
|
||||
endcase
|
||||
|
|
@ -738,8 +745,8 @@ testcase tToolsSpellcheckAutomatic
|
|||
Call sMakeReadOnlyDocumentEditable
|
||||
|
||||
'/// Enable Auto-Spellcheck in options
|
||||
Call wEnableAutoSpellcheck ( true )
|
||||
|
||||
Call wEnableAutoSpellcheck ( true )
|
||||
|
||||
'/// Check Auto-Spellcheck and insert a sentence with 2 mistakes ///
|
||||
printlog " - write text"
|
||||
select case iSprache
|
||||
|
|
@ -766,7 +773,7 @@ testcase tToolsSpellcheckAutomatic
|
|||
case 36 : wTypeKeys "A hétezres koszovói amerikai kontingens jelentos részét is a magyarországi bázison helyezi majd el."
|
||||
iError1 = 1 : iError2 = 4
|
||||
sError1 = "hétezres" : sError1 = "jelentos"
|
||||
sDefaultFormat = "Alapértelmezett"
|
||||
sDefaultFormat = "Alapértelmezett"
|
||||
case 39 : wTypeKeys "La sfumaturar è statsi modificata senza salvare "
|
||||
iError1 = 1 : iError2 = 2
|
||||
sError1 = "sfumaturar" : sError1 = "statsi"
|
||||
|
|
@ -787,10 +794,14 @@ testcase tToolsSpellcheckAutomatic
|
|||
iError1 = 1 : iError2 = 2
|
||||
sError1 = "hiaer" : sError1 = "swei"
|
||||
sDefaultFormat = "Standard"
|
||||
case 50 : wTypeKeys "Tuki sta dve napki"
|
||||
iError1 = 1 : iError2 = 2
|
||||
sError1 = "Tuki" : sError1 = "napki"
|
||||
sDefaultFormat = "Standard"
|
||||
case 55 : wTypeKeys "Aqui poderá elimitnar componentes já instalados ou instalar novos compotentes numa "
|
||||
iError1 = 2 : iError2 = 7
|
||||
sError1 = "elimitnar" : sError1 = "compotentes"
|
||||
sDefaultFormat = "Padrão"
|
||||
sDefaultFormat = "Padrão"
|
||||
case 81 : Printlog "- No Spellcheck in Japanese!"
|
||||
Call hCloseDocument
|
||||
goto endsub
|
||||
|
|
@ -809,7 +820,7 @@ testcase tToolsSpellcheckAutomatic
|
|||
end select
|
||||
|
||||
Call wTypeKeys "<Space><Return>"
|
||||
|
||||
|
||||
printlog " - relieve mistake"
|
||||
Call wTypeKeys "<Up><Home>"
|
||||
Call wTypeKeys "<Mod1 Right>", iError1
|
||||
|
|
@ -921,7 +932,7 @@ testcase tToolsSpellcheckChangeLanguageAttribute
|
|||
QAErrorLog "The language " + iSprache +" has no defined Errortext. No test!" 'iSystemSprache
|
||||
goto endsub
|
||||
end select
|
||||
|
||||
|
||||
if gApplication = "MASTERDOCUMENT" then
|
||||
if wInsertDocumentinMasterDoc(InsFile) = False then goto endsub
|
||||
EditPaste
|
||||
|
|
@ -930,7 +941,7 @@ testcase tToolsSpellcheckChangeLanguageAttribute
|
|||
Call sMakeReadOnlyDocumentEditable
|
||||
end if
|
||||
Call wTypeKeys "<Mod1 Home>"
|
||||
|
||||
|
||||
select case iSprache
|
||||
case 01 : sWordToBeChecked = "excetionally" ' this word is wrong
|
||||
case 03 : sWordToBeChecked = "semstre" ' this word is wrong
|
||||
|
|
@ -944,6 +955,7 @@ testcase tToolsSpellcheckChangeLanguageAttribute
|
|||
case 46 : sWordToBeChecked = "avrttades" ' this word is wrong
|
||||
case 48 : sWordToBeChecked = "stosowanei" ' this word is wrong
|
||||
case 49 : sWordToBeChecked = "georaphischen" ' this word is wrong
|
||||
case 50 : sWordToBeChecked = "ssmo" ' this word is wrong
|
||||
case 55 : sWordToBeChecked = "Veigo" ' this word is wrong
|
||||
end select
|
||||
|
||||
|
|
@ -1011,7 +1023,7 @@ testcase tToolsSpellcheckChangeLanguageAttribute
|
|||
Suggestions.Select 1
|
||||
ReplacedWith = Suggestions.GetSelText
|
||||
printlog "- replace with word: " & ReplacedWith
|
||||
i = DictionaryLanguage.GetItemCount + 1
|
||||
i = DictionaryLanguage.GetItemCount + 1
|
||||
end if
|
||||
end if
|
||||
next i
|
||||
|
|
@ -1045,7 +1057,7 @@ testcase tToolsSpellcheckChangeLanguageAttribute
|
|||
wait 500
|
||||
Call wTypeKeys "<Mod1 Home>"
|
||||
printlog "- find replaced word"
|
||||
|
||||
|
||||
EditSearchAndReplace
|
||||
Kontext "FindAndReplace"
|
||||
try
|
||||
|
|
@ -1073,7 +1085,7 @@ testcase tToolsSpellcheckChangeLanguageAttribute
|
|||
Kontext
|
||||
Active.Setpage TabFont
|
||||
Kontext "TabFont"
|
||||
try
|
||||
try
|
||||
if Language.GetSelText <> CurrentLanguage then
|
||||
if Language.GetSelText = PriorLanguage then
|
||||
Warnlog "Language Attributes has not been set to" & CurrentLanguage
|
||||
|
|
@ -1118,7 +1130,7 @@ testcase tToolsSpellcheckButtonChange
|
|||
QAErrorLog "The language " + iSprache +" has no defined Errortext. No test!" 'iSystemSprache
|
||||
goto endsub
|
||||
end select
|
||||
|
||||
|
||||
if gApplication = "MASTERDOCUMENT" then
|
||||
if wInsertDocumentinMasterDoc(InsFile) = False then goto endsub
|
||||
EditPaste
|
||||
|
|
@ -1185,7 +1197,7 @@ testcase tToolsSpellcheckButtonChangeAll
|
|||
QAErrorLog "The language " + iSprache +" has no defined Errortext. No test!" 'iSystemSprache
|
||||
goto endsub
|
||||
end select
|
||||
|
||||
|
||||
if gApplication = "MASTERDOCUMENT" then
|
||||
if wInsertDocumentinMasterDoc(InsFile) = False then goto endsub
|
||||
EditPaste
|
||||
|
|
@ -1222,7 +1234,7 @@ testcase tToolsSpellcheckButtonChangeAll
|
|||
end if
|
||||
'/// Close document
|
||||
Call hCloseDocument
|
||||
|
||||
|
||||
endcase
|
||||
|
||||
' *******************************************************************
|
||||
|
|
@ -1257,6 +1269,7 @@ testcase tToolsThesaurus
|
|||
case 46 : sWordInitial = "Däng"
|
||||
case 48 : sWordInitial = "wypowiedź"
|
||||
case 49 : sWordInitial = "Mann"
|
||||
case 50 : sWordInitial = "smisel"
|
||||
case 55 : Printlog "- No Thesaurus in Portuguese (Brazil) !"
|
||||
goto endsub
|
||||
case 81 : Printlog "- No Thesaurus in Japanese!"
|
||||
|
|
@ -1282,7 +1295,7 @@ testcase tToolsThesaurus
|
|||
'/// Call Thesaurus without a written word ///
|
||||
ToolsLanguageThesaurus
|
||||
Kontext "Thesaurus"
|
||||
if CurrentWord.GetSelText <> "" then Warnlog "- Though no word has been selected Current Word textfield is filled !"
|
||||
if CurrentWord.GetSelText <> "" then Warnlog "- Though no word has been selected Current Word textfield is filled !"
|
||||
if ReplaceWith.GetText <> "" then Warnlog "- Though no word has been selected there is a replacetext in the textfield!"
|
||||
printlog "Set language dependent word in textfield Current Word"
|
||||
CurrentWord.Settext sWordInitial
|
||||
|
|
@ -1307,11 +1320,11 @@ testcase tToolsThesaurus
|
|||
end if
|
||||
Call hCloseDocument
|
||||
wait 500
|
||||
|
||||
|
||||
printlog " Open new preformatted-document where the formatting is set to the language we wish to test."
|
||||
call hFileOpen (TheFile,false)
|
||||
Call sMakeReadOnlyDocumentEditable
|
||||
|
||||
Call sMakeReadOnlyDocumentEditable
|
||||
|
||||
Call wTypeKeys sWordInitial
|
||||
Call wTypeKeys "<Home><Right><Right>"
|
||||
|
||||
|
|
@ -1320,12 +1333,12 @@ testcase tToolsThesaurus
|
|||
Kontext "Thesaurus"
|
||||
wait 500
|
||||
if CurrentWord.GetSeltext = sWordInitial then
|
||||
sWordToBeFound = ReplaceWith.Gettext
|
||||
sWordToBeFound = ReplaceWith.Gettext
|
||||
if Alternatives.GetItemCount > 0 then
|
||||
printlog "Select last entry in alternatives list"
|
||||
Alternatives.Select Alternatives.GetItemCount
|
||||
Alternatives.TypeKeys "<Space>"
|
||||
if ReplaceWith.Gettext = sWordToBeFound then
|
||||
if ReplaceWith.Gettext = sWordToBeFound then
|
||||
Warnlog "Though alternative was selected replace with was not changed"
|
||||
else
|
||||
sWordToBeFound = ReplaceWith.Gettext
|
||||
|
|
@ -1344,21 +1357,22 @@ testcase tToolsThesaurus
|
|||
end if
|
||||
|
||||
Call wTypeKeys "<Home><Shift End><Delete>"
|
||||
Call wTypeKeys sWordInitial
|
||||
|
||||
Call wTypeKeys sWordInitial
|
||||
|
||||
printlog "- Replace unchecked ( Cursor at words end )"
|
||||
ToolsLanguageThesaurus
|
||||
Kontext "Thesaurus"
|
||||
wait 500
|
||||
if CurrentWord.GetSeltext = sWordInitial then
|
||||
sWordToBeFound = ReplaceWith.Gettext
|
||||
if Alternatives.GetItemCount > 0 then
|
||||
sWordToBeFound = ReplaceWith.Gettext
|
||||
if Alternatives.GetItemCount > 0 then
|
||||
printlog "Select last entry in alternatives list"
|
||||
Alternatives.Select Alternatives.GetItemCount
|
||||
Alternatives.TypeKeys "<Space>"
|
||||
if ReplaceWith.Gettext = sWordToBeFound then
|
||||
|
||||
if ReplaceWith.Gettext = sWordToBeFound then
|
||||
Warnlog "Though alternative was selected replace with was not changed"
|
||||
else
|
||||
Alternatives.TypeKeys "<Space>"
|
||||
sWordToBeFound = ReplaceWith.Gettext
|
||||
end if
|
||||
Thesaurus.OK
|
||||
|
|
@ -1373,7 +1387,7 @@ testcase tToolsThesaurus
|
|||
else
|
||||
Warnlog "Current word is not selected word !"
|
||||
end if
|
||||
|
||||
|
||||
'/// Close thesaurus and writerdocument ///
|
||||
Call hCloseDocument
|
||||
endcase
|
||||
|
|
@ -1411,6 +1425,7 @@ testcase tToolsThesaurusSynonyms
|
|||
case 46 : sWordInitial = "Däng"
|
||||
case 48 : sWordInitial = "wypowiedź"
|
||||
case 49 : sWordInitial = "Mann"
|
||||
case 50 : sWordInitial = "smisel"
|
||||
case 55 : Printlog "- No Thesaurus in Portuguese (Brazil) !"
|
||||
goto endsub
|
||||
case 81 : Printlog "- No Thesaurus in Japanese!"
|
||||
|
|
@ -1460,6 +1475,3 @@ testcase tToolsThesaurusSynonyms
|
|||
Call hCloseDocument
|
||||
|
||||
endcase
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Reference in a new issue