summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHelge Delfs [hde] <hde@openoffice.org>2010-10-25 08:19:52 +0200
committerHelge Delfs [hde] <hde@openoffice.org>2010-10-25 08:19:52 +0200
commit1413c0e81cc52fe4cfd9da8acbd9e8595487647c (patch)
tree59b6fa7e8602b771f21da9cae94a0fd364405159
parentef99c73b8857a7283755ff1511c78f533f4fd65e (diff)
parent3c21f1f301e9a37798ed0103ae50af5ab0b3e661 (diff)
automationdev300m87#i115106#fixed loading local file
Diffstat
-rw-r--r--testautomation/extensions/optional/input/dependencies/version34.oxtbin1494 -> 1441 bytes
-rw-r--r--testautomation/graphics/optional/includes/global/export_graphic.inc112
-rw-r--r--testautomation/graphics/optional/includes/global/g_clipboard.inc52
-rw-r--r--testautomation/graphics/optional/includes/global/g_demoguide.inc26
-rw-r--r--testautomation/graphics/optional/includes/global/g_find_replace.inc2
-rw-r--r--testautomation/graphics/optional/includes/global/g_paneview.inc4
-rw-r--r--testautomation/graphics/optional/includes/global/g_spellcheck.inc64
-rw-r--r--testautomation/graphics/optional/includes/global/g_stylist.inc38
-rw-r--r--testautomation/graphics/optional/includes/impress/i_slideshow.inc35
-rw-r--r--testautomation/graphics/optional/includes/impress/i_slideshow3.inc42
-rw-r--r--testautomation/graphics/optional/includes/impress/i_view.inc8
-rwxr-xr-xtestautomation/graphics/required/input/recht_1.odpbin15116 -> 13365 bytes
-rw-r--r--testautomation/spreadsheet/optional/includes/arrayconstants/c_arrayconstants.inc8
-rw-r--r--testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_iz.inc156
-rw-r--r--testautomation/spreadsheet/optional/includes/validity/c_validity.inc574
-rw-r--r--testautomation/spreadsheet/required/includes/c_upd_formatmenu2.inc19
-rw-r--r--testautomation/spreadsheet/required/includes/c_upd_formatmenu3.inc13
-rw-r--r--testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc3
-rw-r--r--testautomation/spreadsheet/tools/includes/c_l10n_tools.inc208
-rw-r--r--testautomation/writer/required/includes/w_001b_.inc2
20 files changed, 691 insertions, 675 deletions
diff --git a/testautomation/extensions/optional/input/dependencies/version34.oxt b/testautomation/extensions/optional/input/dependencies/version34.oxt
index e14671c77e92..772645635446 100644
--- a/testautomation/extensions/optional/input/dependencies/version34.oxt
+++ b/testautomation/extensions/optional/input/dependencies/version34.oxt
Binary files differ
diff --git a/testautomation/graphics/optional/includes/global/export_graphic.inc b/testautomation/graphics/optional/includes/global/export_graphic.inc
index f4c34ec36795..a5ab31c82cdc 100644
--- a/testautomation/graphics/optional/includes/global/export_graphic.inc
+++ b/testautomation/graphics/optional/includes/global/export_graphic.inc
@@ -33,6 +33,9 @@
testcase tEPS
+ warnlog( "#i115138# - Test document freezes draw" )
+ goto endsub
+
dim x as integer
dim i as integer
@@ -96,6 +99,11 @@ endcase 'tEPS
'-------------------------------------------------------------------------
testcase tPCT
+ warnlog( "#i115138# - Test document freezes draw" )
+ goto endsub
+
+
+
dim x as integer
dim i as integer
dim iWaitIndex as integer
@@ -167,83 +175,15 @@ testcase tPCT
endif
endif
- printlog "----------3rd: exporting part of the picture and inserting into new file."
- hTypeKeys ("<escape><tab>")
- fGetSizeXY sx1, sY, TRUE
-
- if ( hCallExport( OutputGrafikTBO + "1", sFilter, TRUE ) ) then
-
- Kontext "PCTOptions"
- printlog( "Export options dialog" )
- if ( PCTOptions.Exists( 2 ) ) then
- hCloseDialog( PCTOptions, "ok" )
- else
- warnlog( "No export options dialog was displayed" )
- endif
-
- sOutputFile = OutputGrafikTBO + "1" + sExt
- if ( hWaitForOutputFile( sOutputFile ) ) then
- printlog( "Close file and re-insert graphics into new document" )
- hInsertGraphicsToNewFile( sOutputFile ) ' local helper function, see bottom of this file
- else
- warnlog( "File was not saved: " & sOutputFile )
- endif
-
- bTemp = fGetSizeXY( sx1, sY, bTemp )
- if (bTemp = FALSE) then
- warnlog "Selected original size NOT OK :-("
- endif
- endif
-
- hFileReOpen( "" )
- printlog "----------4th: exporting rectangle and reload file."
- hRechteckErstellen ( 10, 10, 30, 40 )
-
- if ( hCallExport( OutputGrafikTBO + "2" , sFilter, TRUE ) ) then
-
- Kontext "PCTOptions"
- printlog( "Export options dialog" )
- if ( PCTOptions.Exists( 2 ) ) then
- Exportwidth.SetText "9"
- if Exportmeasurement.GetSelText = "inches" then
- sx1 = (Exportwidth.GetText)+ """"
- printlog "sx1= " & sx1
- else
- sx1 = (Exportwidth.GetText)+ "cm"
- endif
-
- if Exportmeasurement.GetSelText = "inches" then
- sY = (Exportheight.GetText)+ """"
- printlog "sY= " & sY
- else
- sY = (Exportheight.GetText)+ "cm"
- endif
- hCloseDialog( PCTOptions, "ok" )
- else
- warnlog( "No export options dialog was displayed" )
- endif
-
- sOutputFile = OutputGrafikTBO + "2" + sExt
-
- if ( not hWaitForOutputFile( sOutputFile ) ) then
- warnlog( "File was not saved: " & sOutputFile )
- endif
-
- printlog( "Reload file if it exists. Warn if not" )
- hFileReOpen( sOutputFile )
-
- kontext "DocumentDraw"
- DocumentDraw.TypeKeys ("<escape><tab>")
- ContextOriginalSize
- bTemp = fGetSizeXY( sx1, sY, bTemp )
- if ( not bTemp ) then warnlog "Selected original size NOT OK :-("
- endif
-
call hCloseDocument
endcase 'tPCT
'-------------------------------------------------------------------------------
testcase tPBM
+ warnlog( "#i115138# - Test document freezes draw" )
+ goto endsub
+
+
const sFilter = "PBM - Portable Bitmap (.pbm)"
const sExt = ".pbm"
@@ -274,6 +214,10 @@ testcase tPBM
endcase 'tPBM
'-------------------------------------------------------------------------------
testcase tPGM
+ warnlog( "#i115138# - Test document freezes draw" )
+ goto endsub
+
+
const sFilter = "PGM - Portable Graymap (.pgm)"
const sExt = ".pgm"
@@ -303,6 +247,10 @@ testcase tPGM
endcase 'tPGM
'-------------------------------------------------------------------------------
testcase tPPM
+ warnlog( "#i115138# - Test document freezes draw" )
+ goto endsub
+
+
const sFilter = "PPM - Portable Pixelmap (.ppm)"
const sExt = ".ppm"
@@ -332,6 +280,10 @@ testcase tPPM
endcase 'tPPM
'------------------------------------------------------------------------------
testcase tRAS
+ warnlog( "#i115138# - Test document freezes draw" )
+ goto endsub
+
+
const sFilter = "RAS - Sun Raster Image (.ras)"
const sExt = ".ras"
@@ -352,6 +304,10 @@ testcase tRAS
endcase 'tRAS
'------------------------------------------------------------------------------
testcase tTIFF
+ warnlog( "#i115138# - Test document freezes draw" )
+ goto endsub
+
+
dim x as integer
dim i as integer
@@ -375,6 +331,10 @@ testcase tTIFF
endcase 'tTIFF
'------------------------------------------------------------------------------
testcase tXPM
+ warnlog( "#i115138# - Test document freezes draw" )
+ goto endsub
+
+
const sFilter = "XPM - X PixMap (.xpm)"
const sExt = ".xpm"
@@ -395,6 +355,10 @@ testcase tXPM
endcase 'tXPM
'-------------------------------------------------------------------------------
testcase tGIF
+ warnlog( "#i115138# - Test document freezes draw" )
+ goto endsub
+
+
const sFilter = "GIF - Graphics Interchange Format (.gif)"
const sExt = ".gif"
@@ -425,6 +389,10 @@ testcase tGIF
endcase 'tGIF
'-------------------------------------------------------------------------------
testcase tJPEG
+ warnlog( "#i115138# - Test document freezes draw" )
+ goto endsub
+
+
const sFilter = "JPEG - Joint Photographic Experts Group (.jpg;.jpeg;.jfif;.jif;.jpe)"
const sExt = ".jpg"
diff --git a/testautomation/graphics/optional/includes/global/g_clipboard.inc b/testautomation/graphics/optional/includes/global/g_clipboard.inc
index 9d4629f3d262..e2ee473df88f 100644
--- a/testautomation/graphics/optional/includes/global/g_clipboard.inc
+++ b/testautomation/graphics/optional/includes/global/g_clipboard.inc
@@ -42,8 +42,9 @@
testcase tiEditUndo
- Dim sDatei as string
Dim Ueber_Text_1 as string
+ dim sTestfile as string
+ dim sLocaltestfile as string
if ( gApplication = "IMPRESS" ) then
ExtensionString = "odp"
@@ -51,69 +52,88 @@ testcase tiEditUndo
ExtensionString = "odg"
end if
- sDatei = gTesttoolPath + "graphics\required\input\leer."+ExtensionString
-
- hFileOpenLocally( sDatei )
-
+ sTestfile = gTesttoolPath + "graphics\required\input\leer."+ExtensionString
+ printlog "Loading test file.."
+ hFileOpenLocally( sTestfile )
+ sleep 3
+ printlog "Selecting grey rectangle.."
hTypeKeys "<TAB><TAB>"
sleep 3
+ printlog "Opening Position and size dialog."
ContextPositionAndSize
Kontext
if Messagebox.exists (5) then
- Messagebox.SetPage TabPositionAndSize
+ Messagebox.SetPage TabPositionAndSize
else
- print "what"
+ printlog "Not the expected Dialog came up. Please check."
endif
Kontext "TabPositionAndSize"
- Ueber_Text_1=PositionX.GetText '/// defining variable for original position of object ///'
+ printlog "defining variable for original position of object"
+ Ueber_Text_1=PositionX.GetText
+ printlog "Canceling dialog."
TabPositionAndSize.Cancel
sleep 2
Kontext "Toolbar"
Auswahl.Click
sleep 1
- ContextArrangeBringBackward '/// Bring Object backward ///'
+ printlog "Sending Rectangle backwards."
+ ContextArrangeBringBackward
sleep 1
+ printlog "Deselect."
gMouseClick 60,60
sleep 1
Kontext "Toolbar"
Auswahl.Click
sleep 1
+ printlog "trying to select blue rectangle in front"
hTypeKeys "<TAB><TAB>"
Kontext "Toolbar"
Auswahl.Click
sleep 1
- ContextPositionAndSize '/// Open Position and Size dialog, checking position ///'
+ printlog "Open Position and Size dialog, checking position"
+ ContextPositionAndSize
Kontext
Messagebox.SetPage TabPositionAndSize
Kontext "TabPositionAndSize"
- if PositionX=0 Then Warnlog " Command was not completely executed, and it could not be undone."
+ if PositionX=0 Then Warnlog "Command was not completely executed, and it could not be undone."
TabPositionAndSize.Cancel
sleep 2
gMouseClick 60,60
sleep 1
-
- EditUndo '/// Edit Undo for BringBackward ///'
+ printlog "Edit Undo for BringBackward"
+ EditUndo
Sleep 2
gMouseClick 60,60
sleep 1
Kontext "Toolbar"
Auswahl.Click
+ printlog "Trying to select grey rectangle again."
hTypeKeys "<TAB><TAB>"
sleep 1
Kontext "Toolbar"
Auswahl.Click
- ContextPositionAndSize '/// Again checking position using Position and Size dialog ///'
+ printlog "Again checking position using Position and Size dialog"
+ ContextPositionAndSize
kontext
Messagebox.SetPage TabPositionAndSize
kontext "TabPositionAndSize"
+ printlog "Checking if x Position is like ata the start again."
if PositionX.GetText = Ueber_Text_1 then
printlog "OK, last order could be redone"
else
warnlog "Last order could not be redone"
end if
TabPositionAndSize.Cancel
-
- Call hCloseDocument '/// Close document ///'
+ printlog "Close document"
+ sLocaltestfile = hFileGetLocalPath( gTesttoolPath + "leer."+ExtensionString )
+ printlog sLocaltestfile
+ if (FileExists (sLocaltestfile)) then
+ app.kill (sLocaltestfile)
+ printlog "Deleting used file."
+ else
+ warnlog "File is missing."
+ endif
+ Call hCloseDocument
endcase
diff --git a/testautomation/graphics/optional/includes/global/g_demoguide.inc b/testautomation/graphics/optional/includes/global/g_demoguide.inc
index 28774e24ea40..cb0a428d2f59 100644
--- a/testautomation/graphics/optional/includes/global/g_demoguide.inc
+++ b/testautomation/graphics/optional/includes/global/g_demoguide.inc
@@ -249,7 +249,7 @@ testcase t_Interoperability
wait(20000)
Kontext "AvailableForUsePreview"
AvailableForUsePreview.TypeKeys "<HOME> <RIGHT> <RETURN>"
- sleep (5)
+ sleep (10)
printlog " Verify that the background has changed"
Kontext "DocumentImpress"
printlog " Background is " & DocumentImpress.StatusGetText (6) 'Debugcode
@@ -263,7 +263,7 @@ testcase t_Interoperability
Kontext "Tasks"
Kontext "AvailableForUsePreview"
AvailableForUsePreview.TypeKeys "<HOME> <RETURN>"
- sleep (5)
+ sleep (10)
Kontext "DocumentImpress"
if DocumentImpress.StatusGetText (6) = sTemplatename then
printlog " The background has been set back to default"
@@ -275,20 +275,21 @@ testcase t_Interoperability
Kontext "DocumentImpress"
Kontext "Slides"
Kontext "SlidesControl"
- SlidesControl.TypeKeys "<Mod1 X>"
+ SlidesControl.OpenContextMenu
+ sleep 1
+ hMenuSelectNr (8)
Kontext "DocumentImpress"
- DocumentImpress.TypeKeys "<HOME>"
+ DocumentImpress.TypeKeys "<HOME>", true
Kontext "Slides"
Kontext "SlidesControl"
- SlidesControl.TypeKeys "<Mod1 V>"
- kontext "InsertPaste"
- if InsertPaste.Exists(1) then
- Before.Check
- InsertPaste.OK
- endif
+ SlidesControl.OpenContextMenu
+ sleep 1
+ hMenuSelectNr (10)
+
Printlog " Verify that the slide was moved correctly"
Kontext "Slides"
- SlidesControl.TypeKeys "<PAGEUP>"
+ sleep (5)
+
SlidesControl.TypeKeys "<SHIFT F10>"
if hMenuFindSelect(27268, true, 3) = false then
Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
@@ -311,10 +312,9 @@ testcase t_Interoperability
setclipboard("")
try
Kontext "DocumentImpressOutlineView"
- DocumentImpressOutlineView.TypeKeys "<MOD1 HOME><SHIFT END>"
DocumentImpressOutlineView.TypeKeys "<Mod1 C>"
sleep (5)
- if getclipboard() <> ".NET Enterprise" then
+ if getclipboard() <> ".NET Enterprise Federation" then
warnlog " Wrong selection in outlineview. Should be '.NET Enterprise', but is '" & getclipboard() +"'."
else printlog " Switching to Outlineview was successfull"
endif
diff --git a/testautomation/graphics/optional/includes/global/g_find_replace.inc b/testautomation/graphics/optional/includes/global/g_find_replace.inc
index 4f6a045578e0..b96099be71ab 100644
--- a/testautomation/graphics/optional/includes/global/g_find_replace.inc
+++ b/testautomation/graphics/optional/includes/global/g_find_replace.inc
@@ -36,6 +36,8 @@
'*
'\**********************************************************************************
testcase tiEditSearchAndReplace
+ qaerrorlog "#i115121# Find and replace: wrong replacement"
+ goto endsub
'/// This test tests the 'Search and Replace' -dialogue. ///'
Dim sFile 'as string
Dim sExpression(2) as string ' Expression to look for: ... Replace with
diff --git a/testautomation/graphics/optional/includes/global/g_paneview.inc b/testautomation/graphics/optional/includes/global/g_paneview.inc
index a2e7bdb87266..fb3620496759 100644
--- a/testautomation/graphics/optional/includes/global/g_paneview.inc
+++ b/testautomation/graphics/optional/includes/global/g_paneview.inc
@@ -78,7 +78,7 @@ testcase tiMinimize_Maximize_Docking_SlidePane
Sleep 1
Slides.Size 300, 400
Sleep 1
- Slides.Size 150, 250
+ Slides.Size 170, 250
Sleep 1
Slides.Size xSize%, ySize%
Sleep 1
@@ -451,7 +451,7 @@ testcase tdMinimize_Maximize_Docking_Pagepane
Sleep 1
Pagepane.Size 300, 400
Sleep 1
- Pagepane.Size 150, 250
+ Pagepane.Size 170, 250
Sleep 1
Pagepane.Size xSize%, ySize%
Sleep 1
diff --git a/testautomation/graphics/optional/includes/global/g_spellcheck.inc b/testautomation/graphics/optional/includes/global/g_spellcheck.inc
index f46c75f3e497..a514db14d783 100644
--- a/testautomation/graphics/optional/includes/global/g_spellcheck.inc
+++ b/testautomation/graphics/optional/includes/global/g_spellcheck.inc
@@ -136,7 +136,7 @@ endcase 'tiToolsSpellcheckCorrect
testcase tiToolsSpellcheckError
if iSprache = 48 then
qaerrorlog "This test is not adapted for polish, 48."
- got endsub
+ goto endsub
endif
Dim Fehler$
Dim Sprachenname$
@@ -155,7 +155,7 @@ testcase tiToolsSpellcheckError
case 39 : FehlerText$ = "Ringrarziamo per l'interessa mostrato a collaborare con la firma." : Fehler$ = "Ringrarziamo" : Sprachenname$ = "Italienisch"
case 46 : FehlerText$ = "Detd varierar vad som behandlas och ur vilket perspektiv." : Fehler$ = "Detd" : Sprachenname$ = "Schwedisch"
case 49 : FehlerText$ = "Diees ist ein Fehler." : Fehler$ = "Diees" : Sprachenname$ = "Deutsch"
- case 50 : FehlerText$ = "Toje napaka, ker manjka presledek." : Fehler$ = "Toje" : Sprachenname$ = "Slovenš?ina"
+ case 50 : FehlerText$ = "Toje napaka, ker manjka presledek." : Fehler$ = "Toje" : Sprachenname$ = "Slovenš�?ina"
case 55 : FehlerText$ = "Eesta poderia ser a resposta para suas preces?": Fehler$ = "Eesta" : Sprachenname$ = "Portugiesisch"
case else :
if bAsianLan then
@@ -328,7 +328,7 @@ testcase tiToolsSpellcheckCheck_Change
printlog "Close document"
Call hCloseDocument
-endcase
+endcase 'tiToolsSpellcheckCheck_Change
'-------------------------------------------------------------------------------
testcase tiToolsSpellcheckCheck_ChangeAll
@@ -374,8 +374,10 @@ testcase tiToolsSpellcheckCheck_ChangeAll
printlog "Close document"
Call hCloseDocument
-endcase
+endcase 'tiToolsSpellcheckCheck_ChangeAll
+
'-------------------------------------------------------------------------------
+
function delete_all_added_words(aWords)
'/// this function delete the words in sWords in all user dictionaries
@@ -384,44 +386,7 @@ function delete_all_added_words(aWords)
Dim iWordCounter as integer
Dim iBooks as integer
- Select Case Ucase(gApplication)
- case "DRAW" : sExt = ".odg"
- case "IMPRESS" : sExt = ".odp"
- end select
-
- printlog "Load prepared document containing 4 errors : graphics\\required\\input\\recht_" & iSprache & sExt
- if (not bAsianLan) then
- printlog "Check if the document is writable."
- Call hFileOpen (gTesttoolpath + "graphics\required\input\recht_"+iSprache+sExt)
- else
- Call hFileOpen (gTesttoolpath + "graphics\required\input\recht_1"+sExt)
- end if
- if fIsDocumentWritable = false then
- printlog "Make the document writable and check if it's succesfull."
- if fMakeDocumentWritable = false then
- warnlog "The document can't be make writeable. Test stopped."
- goto endsub
- end if
- end if
- select case iSprache ' sWord(1)=red : sWord(2)=turquoise
- case 01 : sWord(1) = "documente" : sWord(2) = "expriss"
- case 33 : sWord(1) = "intercu" : sWord(2) = "Lees"
- case 34 : sWord(1) = "afekto" : sWord(2) = "fratternal"
- case 36 : sWord(1) = "szeerint" : sWord(2) = "tervvezi"
- case 39 : sWord(1) = "Millano" : sWord(2) = "tarrget"
- case 46 : sWord(1) = "desa" : sWord(2) = "occh"
- case 49 : sWord(1) = "Texxt" : sWord(2) = "reichtt"
- case 50 : sWord(1) = "Bsedilo" : sWord(2) = "zados?a"
- case 55 : sWord(1) = "esktava" : sWord(2) = "noitee"
- case else :
- if bAsianLan then
- sWord(1) = "documente" : sWord(2) = "expriss"
- else
- Warnlog "For the language " + iSprache +" nothing is prepared yet: insert text here and create the file"
- end if
- end select
- sleep 2
-
+ Printlog "Delete the given words from dictionaries."
printlog "Call Tools->Options."
ToolsOptions
printlog "Select in category 'Languagesettings' entry 'Writing Aids.'"
@@ -436,7 +401,7 @@ function delete_all_added_words(aWords)
Kontext "BenutzerwoerterbuchBearbeiten"
sleep 1
printlog "Check every book, if it contains the words."
- iBooks = Buch.getItemCount
+ iBooks = Buch.getItemCount
for iBookCounter = 1 to iBooks
Buch.select(iBookCounter)
printlog "Items in Booklist: " & WordList.getItemCount
@@ -457,8 +422,10 @@ function delete_all_added_words(aWords)
printlog "Press button 'OK' on dialog 'Writing Aids'."
ExtrasOptionenDlg.OK
-end function
+end function 'delete_all_added_words
+
'-------------------------------------------------------------------------------
+
function delete_word_from_dictionary(sWord as String, sDictionary as String)
'/// this function delete the words in sWords in all user dictionaries
@@ -498,7 +465,9 @@ function delete_word_from_dictionary(sWord as String, sDictionary as String)
printlog "Press button 'OK' on dialog 'Writing Aids'."
ExtrasOptionenDlg.OK
-end function
+end function 'delete_word_from_dictionary
+
+'-------------------------------------------------------------------------------
function fSelectWithString(oControl as Object,sText as String)
@@ -513,8 +482,9 @@ function fSelectWithString(oControl as Object,sText as String)
endif
next
-end function
+end function 'fSelectWithString
+'-------------------------------------------------------------------------------
function getWordsForLanguage()
@@ -563,4 +533,4 @@ function getWordsForLanguage()
getWordsForLanguage = aWords
-end function
+end function 'getWordsForLanguage
diff --git a/testautomation/graphics/optional/includes/global/g_stylist.inc b/testautomation/graphics/optional/includes/global/g_stylist.inc
index fab547eb5d3b..f09e6c0fd433 100644
--- a/testautomation/graphics/optional/includes/global/g_stylist.inc
+++ b/testautomation/graphics/optional/includes/global/g_stylist.inc
@@ -518,8 +518,10 @@ testcase tiFormatStylist
goto endsub
end select
+ printlog "Open new doc"
Call hNewDocument
sleep 2
+ printlog "call the navigator"
Kontext "Gestalter"
if Gestalter.Exists Then
Warnlog "- Stylist exists, perhaps not closed last time a Impress doc was open"
@@ -529,11 +531,14 @@ testcase tiFormatStylist
FormatStylist
Kontext "Gestalter"
+ printlog "opening graphics styles"
Grafikvorlagen.Click
sleep 1
+ printlog "Select number 1"
Vorlagenliste.Select Num1 ' num1
sleep 1
Printlog "- open Grafic template Dialogs using the context menue , checking if all resources exist"
+ printlog "Opening context menu"
Vorlagenliste.OpenContextMenu
sleep 1
hMenuSelectNr (2)
@@ -543,6 +548,7 @@ testcase tiFormatStylist
Messagebox.SetPage TabText
Kontext "TabText"
sleep 1
+ printlog "Canceling dialog"
TabText.Cancel
sleep 1
@@ -550,18 +556,21 @@ testcase tiFormatStylist
Kontext "Gestalter"
Printlog "- presentation templates"
sleep 1
+ printlog "presentation styles"
Praesentationsvorlagen.Click
Vorlagenliste.Select Num2
sleep 1
+ printlog "opening context menu"
Vorlagenliste.OpenContextMenu
sleep 1
+ printlog "selecting modify"
hMenuSelectNr (1)
sleep 1
Kontext
if Messagebox.exists (5) then
try
- ' Messagebox.SetPage TabArea
+ printlog "Messagebox.SetPage TabArea"
Kontext "TabArea"
if TabArea.Exists = false then
warnlog "Where is TabArea?"
@@ -578,86 +587,111 @@ testcase tiFormatStylist
Kontext "Gestalter"
sleep 1
+ printlog "Select number 3"
Vorlagenliste.Select Num3
sleep 1
+ printlog "opening context menu of number 3"
Vorlagenliste.OpenContextMenu
sleep 1
hMenuSelectNr (1)
sleep 1
+ printlog "Check the styles..."
call hWalkTheStyles (1,1)
Kontext
+ printlog "setting tabpage indents and spacing"
Messagebox.SetPage TabEinzuegeUndAbstaende
Kontext "TabEinzuegeUndAbstaende"
sleep 1
+ printlog "Canceling tabpage"
TabEinzuegeUndAbstaende.Cancel
sleep 1
Kontext "Gestalter"
sleep 1
+ printlog "Select number 4"
Vorlagenliste.Select Num4
sleep 1
+ printlog "opening context menu of number 4"
Vorlagenliste.OpenContextMenu
sleep 1
hMenuSelectNr (1)
sleep 1
Kontext
+ printlog "setting tabpage TabFont"
Messagebox.SetPage TabFont
kontext "TabFont"
Kontext
+ printlog "setting tabpage TabFontEffects"
Messagebox.SetPage TabFontEffects
kontext "TabFontEffects"
Kontext
+ printlog "setting tabpage TabIndents and Spacing"
Messagebox.SetPage TabEinzuegeUndAbstaende
kontext "TabEinzuegeUndAbstaende"
sleep 1
+ printlog "canceling TabIndents and Spacing"
TabEinzuegeUndAbstaende.Cancel
sleep 1
Kontext "Gestalter"
sleep 1
+ printlog "opening context menu of number 5"
Vorlagenliste.Select Num5
sleep 1
+ printlog "opening context menu of number 5"
Vorlagenliste.OpenContextMenu
sleep 1
hMenuSelectNr (1)
sleep 1
Kontext
+ printlog "setting tabpage Tab Font"
Messagebox.SetPage TabFont
kontext "TabFont"
Kontext
+ printlog "setting tabpage Tab FontEffects"
Messagebox.SetPage TabFontEffects
kontext "TabFontEffects"
Kontext
+ printlog "setting tabpage TabIndents and Spacing"
Messagebox.SetPage TabEinzuegeUndAbstaende
kontext "TabEinzuegeUndAbstaende"
sleep 1
Kontext
+ printlog "setting tabpage Tab Bullets"
Messagebox.SetPage TabBullet
Kontext "TabBullet"
sleep 1
Kontext
+ printlog "setting tabpage Tab Numbering Type"
Messagebox.SetPage TabNumerierungsart
Kontext "TabNumerierungsart"
sleep 1
Kontext
+ printlog "setting tabpage Tab Graphics"
Messagebox.SetPage TabGrafiken
Kontext "TabGrafiken"
sleep 1
Kontext
+ printlog "setting tabpage Tab Numbering options"
Messagebox.SetPage TabOptionenNumerierung
Kontext "TabOptionenNumerierung"
sleep 1
+ printlog "Canceling..."
TabOptionenNumerierung.Cancel
sleep 1
endif
+ kontext "DocumentImpress"
+ printlog "Closing Stylist"
if lcase(gPlatform) = "osx" then
hTypekeys "<mod1 t>"
else
- hTypeKeys "<F11>"
+ Kontext "Gestalter"
+ Gestalter.Close
end if
sleep 1
Kontext "Gestalter"
if Gestalter.Exists Then Warnlog "- Stylist could not be closed pressing F11"
+ printlog "Closing doc."
Call hCloseDocument
endcase 'tiFormatStylist
diff --git a/testautomation/graphics/optional/includes/impress/i_slideshow.inc b/testautomation/graphics/optional/includes/impress/i_slideshow.inc
index c9fec2c44ea8..cfcc0fbd2e2f 100644
--- a/testautomation/graphics/optional/includes/impress/i_slideshow.inc
+++ b/testautomation/graphics/optional/includes/impress/i_slideshow.inc
@@ -35,9 +35,12 @@ testcase tSlideShowSlideShow
dim bLoaded as boolean
dim i as integer
+ dim testfile as string
+ dim localtestfile as string
'/// open file 'graphics\\input\\diashow.odp' ///'
- hFileOpenLocally( gTesttoolPath + "graphics\required\input\diashow.odp" )
+ testfile = ( gTesttoolPath + "graphics\required\input\diashow.odp" )
+ hFileOpenLocally( testfile )
sleep 30
bLoaded = false
@@ -126,8 +129,15 @@ testcase tSlideShowSlideShow
'/// Set "Start with current page" back to default = on, in ToolsOptions ///'
setStartCurrentPage(TRUE)
'/// close the application ///'
- Call hCloseDocument
-
+ Call hCloseDocument
+ localtestfile = hFileGetLocalPath( gTesttoolPath + "diashow.odp" )
+ printlog localtestfile
+ if (FileExists (localtestfile)) then
+ app.kill (localtestfile)
+ printlog "Deleting used file."
+ else
+ warnlog "File is missing."
+ endif
endcase 'tSlideShowSlideShow
'-------------------------------------------------------------------------------
@@ -216,6 +226,8 @@ testcase tSlideShowSlideShowSettings
dim sTemp as string
dim saSlideNames(4) as string
dim bCurrentPage as boolean
+ dim sTestfile as string
+ dim sLocaltestfile as string
S1 = glLocale (2) + " 1"
S2 = glLocale (2) + " 2"
@@ -279,9 +291,10 @@ testcase tSlideShowSlideShowSettings
Call hCloseDocument
sleep 5
- bLoaded = false
- '/// open file 'graphics\\input\\diashow.odp' (Slide Show with 4 Slides) ///'
- hFileOpenLocally( gTesttoolPath + "graphics\required\input\diashow.odp" )
+ bLoaded = false
+ '/// open file 'graphics\\input\\diashow.odp' (Slide Show with 4 Slides) ///'
+ sTestfile = ( gTesttoolPath + "graphics\required\input\diashow.odp" )
+ hFileOpenLocally( sTestfile )
sleep 10
try
@@ -681,7 +694,15 @@ testcase tSlideShowSlideShowSettings
setStartCurrentPage(TRUE)
'/// Close the document ///'
call hCloseDocument
-
+ sLocaltestfile = hFileGetLocalPath( gTesttoolPath + "diashow.odp" )
+ printlog sLocaltestfile
+ if (FileExists (sLocaltestfile)) then
+ app.kill (sLocaltestfile)
+ printlog "Deleting used file."
+ else
+ warnlog "File is missing."
+ endif
+
endcase 'tSlideShowSlideShowSettings
'-------------------------------------------------------------------------------
diff --git a/testautomation/graphics/optional/includes/impress/i_slideshow3.inc b/testautomation/graphics/optional/includes/impress/i_slideshow3.inc
index 63a04aa6f8d5..bc138fef445d 100644
--- a/testautomation/graphics/optional/includes/impress/i_slideshow3.inc
+++ b/testautomation/graphics/optional/includes/impress/i_slideshow3.inc
@@ -529,7 +529,8 @@ endcase
testcase tExtrasIndividuellePraesentation
Printlog "- Slideshow/Individual slideshow"
- Call hNewDocument '/// new impress document ///'
+ Call hNewDocument
+ Call sSelectEmptyLayout '/// new impress document ///'
'/// Deactivate "Start with current page" in ToolsOptions ///'
setStartCurrentPage(FALSE)
'/// check state of navigator ! expected: closed ///'
@@ -546,24 +547,27 @@ testcase tExtrasIndividuellePraesentation
Kontext "Bildschirmpraesentation"
Fenster.Check
Bildschirmpraesentation.OK
- InsertSlide '/// insert slide ///'
- sleep 2
- hTypekeys "<Pagedown>"
- sleep 2
- InsertSlide
- sleep 2
- hTypekeys "<Pagedown>"
- sleep 2
- InsertSlide '/// insert another slide ///'
- sleep 2
- hTypekeys "<Pagedown>"
- sleep 2
- Printlog " - Slides added"
- sleep 1
- Kontext "DocumentImpress"
- DocumentImpress.TypeKeys "<MOD1 SHIFT F5>" '/// open navigator ///'
- sleep 1
- Kontext "NavigatorDraw"
+ InsertSlide '/// insert slide ///'
+ sleep 2
+ Call sSelectEmptyLayout
+ hTypekeys "<Pagedown>"
+ sleep 2
+ InsertSlide
+ sleep 2
+ Call sSelectEmptyLayout
+ hTypekeys "<Pagedown>"
+ sleep 2
+ InsertSlide '/// insert another slide ///'
+ sleep 2
+ Call sSelectEmptyLayout
+ hTypekeys "<Pagedown>"
+ sleep 2
+ Printlog " - Slides added"
+ sleep 1
+ Kontext "DocumentImpress"
+ DocumentImpress.TypeKeys "<MOD1 SHIFT F5>" '/// open navigator ///'
+ sleep 1
+ Kontext "NavigatorDraw"
if NavigatorDraw.Exists Then
Printlog " - Navigator exists"
Erste.Click '/// switch to 1st slide ///'
diff --git a/testautomation/graphics/optional/includes/impress/i_view.inc b/testautomation/graphics/optional/includes/impress/i_view.inc
index 54ba5132d16e..e82ec2ec38a3 100644
--- a/testautomation/graphics/optional/includes/impress/i_view.inc
+++ b/testautomation/graphics/optional/includes/impress/i_view.inc
@@ -61,11 +61,9 @@ testcase tViewWorkspaceHandoutView
Call hNewDocument '/// new document ///'
sleep 2
Kontext "DocumentImpress"
- if NOT documentImpress.Exists then
- hNewDocument
- sleep 1
- end if
- sleep 2
+ DocumentImpress.UseMenu
+ hMenuSelectNr (5)
+ hMenuSelectNr (13)
Printlog " ViewWorkspaceHandoutView"
ViewWorkspaceHandoutView '/// view background handout ///'
sleep 2
diff --git a/testautomation/graphics/required/input/recht_1.odp b/testautomation/graphics/required/input/recht_1.odp
index fbad5296d1b1..998668d43966 100755
--- a/testautomation/graphics/required/input/recht_1.odp
+++ b/testautomation/graphics/required/input/recht_1.odp
Binary files differ
diff --git a/testautomation/spreadsheet/optional/includes/arrayconstants/c_arrayconstants.inc b/testautomation/spreadsheet/optional/includes/arrayconstants/c_arrayconstants.inc
index 62057f32c798..6d57e1f13fcf 100644
--- a/testautomation/spreadsheet/optional/includes/arrayconstants/c_arrayconstants.inc
+++ b/testautomation/spreadsheet/optional/includes/arrayconstants/c_arrayconstants.inc
@@ -204,6 +204,7 @@ testcase tArrayconstants01
'///Close Document
printlog "Close Document"
call hCloseDocument
+ hFileDelete( sLocalFile )
endcase
'
@@ -212,13 +213,11 @@ endcase
testcase tArrayconstants02
Dim sImportFile as string
- Dim sLocalFile as string
Dim sFunctionSUM as string
Dim sFunctionMDETERM as string
Dim sCellcontent as string
sImportFile = convertpath ( gTesttoolpath & "spreadsheet/optional/input/arrayconstants.xls" )
- sLocalFile = convertpath ( gOfficepath & "user/work/arrayconstants.xls" )
sFunctionSUM = fFunctionName ("SUM")
sFunctionMDETERM = fFunctionName ("MDETERM")
@@ -260,7 +259,7 @@ testcase tArrayconstants02
'/// Save document back to xls locally
printlog "Save document back to xls locally"
- call hFileSaveAsKill ( slocalfile )
+ call hFileSaveAsKill ( gLastWorkFile )
'/// Close document
printlog "Close document"
@@ -268,7 +267,7 @@ testcase tArrayconstants02
'/// Load Document
printlog "Load Document"
- call hFileOpen ( slocalfile )
+ call hFileOpen ( gLastWorkFile )
sleep (2)
'///Check that all cellvalues are the same as before
@@ -308,5 +307,6 @@ testcase tArrayconstants02
'///Close document
printlog "Close document"
call hCloseDocument
+ hFileDelete( gLastWorkFile )
endcase
diff --git a/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_iz.inc b/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_iz.inc
index e6e8030da3e5..873ca1bddabc 100644
--- a/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_iz.inc
+++ b/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_iz.inc
@@ -31,16 +31,16 @@
'**
'************************************************************************
' **
-' #1 tIZ19381 ' I/O error when OLE object is thrown out of undo/redo buffer
+' #1 tIZ19381 ' I/O error when OLE object is thrown out of undo/redo buffer
' #1 tIZ21036 ' Crash after shifting cells with paste special
' **
'\***********************************************************************
testcase tIZ19381
- Dim sOutputFile as string
+ Dim sOutputFile as string
Dim i as integer
-
- sOutputFile = convertpath(gOfficepath & "user/work/i19381.ods")
+
+ sOutputFile = convertpath(gOfficepath & "user/work/i19381.ods")
printlog "IssueZilla Task 19381"
'/// File / New / Spreadsheet
@@ -52,10 +52,10 @@ testcase tIZ19381
Kontext "DocumentCalc"
DocumentCalc.typekeys "1<RETURN>2<RETURN><UP>"
sleep(2)
- '/// Insert / Chart
- InsertChartCalc
+ '/// Insert / Chart
+ InsertChartCalc
Kontext "ChartWizard"
- '/// On the chart wizard press OK button
+ '/// On the chart wizard press OK button
if ChartWizard.Exists(2) then
printlog "Create chart"
ChartWizard.OK
@@ -64,18 +64,18 @@ testcase tIZ19381
warnlog "Chart wizard did not occour! Exiting test case."
call hCloseDocument
goto endsub
- end if
+ end if
Kontext "DocumentCalc"
'/// Type [ESCAPE]
- DocumentCalc.typekeys "<Escape>"
- sleep(2)
+ DocumentCalc.typekeys "<Escape>"
+ sleep(2)
'/// File Save As <i>gOfficepath</i>user/work/i19381.ods
if NOT hFileSaveAsWithFilterKill (sOutputFile, "calc8") then
warnlog "Saving test document localy failed -> Aborting"
call hCloseDocument
goto endsub
end if
- sleep(2)
+ sleep(2)
'/// File / Close
call hCloseDocument
sleep(2)
@@ -83,21 +83,21 @@ testcase tIZ19381
if hFileOpen(sOutputFile) then
Kontext "DocumentCalc"
'/// Click into the chart
- call gMouseClick(95,95)
+ call gMouseClick(95,95)
Kontext "DocumentCalc"
'/// Press [F5] to open the Navigator
'/// Select the first Chart/OLE object in the navigator
call fselectFirstOLE
'/// Edit / Cut
- sleep(2)
+ sleep(2)
EditCut
- sleep(2)
+ sleep(2)
Kontext "DocumentCalc"
'/// Type [ESCAPE] twice
DocumentCalc.TypeKeys "<ESCAPE>" , 2
'/// Edit / Paste
EditPaste
- sleep(2)
+ sleep(2)
Kontext "DocumentCalc"
'/// press [CTRL+S] to save the document again
DocumentCalc.typekeys "<MOD1 S>"
@@ -112,7 +112,7 @@ testcase tIZ19381
Active.OK
call hCloseDocument
goto endsub
- end if
+ end if
Kontext "DocumentCalc"
'/// Type [ESCAPE]
DocumentCalc.TypeKeys "<ESCAPE>"
@@ -120,10 +120,10 @@ testcase tIZ19381
call fCalcSelectRange("E42")
for i = 1 to 21
Kontext "DocumentCalc"
- '/// Enter 1 and [RETURN] 21 times
+ '/// Enter 1 and [RETURN] 21 times
'///+ as changes to get chart cut/paste out of the undo buffer
DocumentCalc.typekeys "1<Return>"
- next i
+ next i
Kontext "DocumentCalc"
'/// Type [CTRL + S] to save the document again
DocumentCalc.typekeys "<MOD1 S>"
@@ -137,8 +137,8 @@ testcase tIZ19381
end if
else
printlog "No message box is in the way!"
- end if
- '/// File / Close
+ end if
+ '/// File / Close
call hCloseDocument
else
warnlog "It was not possible to open the saved document again!"
@@ -149,63 +149,63 @@ endcase
testcase tIZ21036
-printlog "IssueZilla Task 21036"
-
-'/// open new document
-call hNewDocument
-sleep(2)
-
-'/// select a whole row (e.g. A1:IV1)
-Kontext "DocumentCalc"
-DocumentCalc.typekeys "<SHIFT MOD1 RIGHT>"
-sleep(2)
-
-'/// cut selection
-try
- EditCut
-catch
- QAErrorLog "Is this a crash?? Please check it out!"
- goto endsub
-endcatch
-sleep(2)
-
-'/// go to A2
-Kontext "DocumentCalc"
-call fCalcSelectRange("A2")
-sleep(2)
-Kontext "DocumentCalc"
-'/// call edit->paste special
-EditPasteSpecialCalc
-sleep(2)
-
-'/// check shift cells->right
-Kontext "InhalteEinfuegenCalc"
-NachRechts.Check
-
-'/// OK
-InhalteEinfuegenCalc.OK
-
-'/// confirm MsgBox
-Kontext "Active"
- if Active.Exists(2) then
- if Active.GetRT = 304 then
- printlog Active.GetText
- Active.OK
- sleep(2)
- end if
- else
- warnlog "No message box came up!"
- goto endsub
- end if
-
-'/// check for crash
-try
- printlog "OK, there are still " & GetDocumentCount & " documents open"
-catch
- warnlog "Probably the office did crash -> #I21036#"
- goto endsub
-endcatch
-
-call hCloseDocument
+ printlog "IssueZilla Task 21036"
+
+ '/// open new document
+ call hNewDocument
+ sleep(2)
+
+ '/// select a whole row (e.g. A1:IV1)
+ Kontext "DocumentCalc"
+ DocumentCalc.typekeys "<SHIFT MOD1 RIGHT>"
+ sleep(2)
+
+ '/// cut selection
+ try
+ EditCut
+ catch
+ QAErrorLog "Is this a crash?? Please check it out!"
+ goto endsub
+ endcatch
+ sleep(2)
+
+ '/// go to A2
+ Kontext "DocumentCalc"
+ call fCalcSelectRange("A2")
+ sleep(2)
+ Kontext "DocumentCalc"
+ '/// call edit->paste special
+ EditPasteSpecialCalc
+ sleep(2)
+
+ '/// check shift cells->right
+ Kontext "InhalteEinfuegenCalc"
+ NachRechts.Check
+
+ '/// OK
+ InhalteEinfuegenCalc.OK
+
+ '/// confirm MsgBox
+ Kontext "Active"
+ if Active.Exists(2) then
+ if Active.GetRT = 304 then
+ printlog Active.GetText
+ Active.OK
+ sleep(2)
+ end if
+ else
+ warnlog "No message box came up!"
+ goto endsub
+ end if
+
+ '/// check for crash
+ try
+ printlog "OK, there are still " & GetDocumentCount & " documents open"
+ catch
+ warnlog "Probably the office did crash -> #I21036#"
+ goto endsub
+ endcatch
+
+ call hCloseDocument
endcase
diff --git a/testautomation/spreadsheet/optional/includes/validity/c_validity.inc b/testautomation/spreadsheet/optional/includes/validity/c_validity.inc
index 8eaf0401afeb..f1f33573f66e 100644
--- a/testautomation/spreadsheet/optional/includes/validity/c_validity.inc
+++ b/testautomation/spreadsheet/optional/includes/validity/c_validity.inc
@@ -29,194 +29,189 @@
'**
'** short description : Complete test for data validity
'**
-'************************************************************************
-' **
-' #1 tValidity_Check_Message
-' #1 tValidity_Check_Excel
-' **
'\***********************************************************************
testcase tValidity_Check_Message
- printlog "This test checks, if an error messgae appears, when a wrong content is inserted into the appropriate cells"
+ printlog "This test checks, if an error messgae appears, when a wrong content is inserted into the appropriate cells"
dim sInputFile as string
dim sOutputFile as string
dim sMType as string
dim sInfoStr as string
dim iCount as integer
-
+
sInputFile = convertpath(gTesttoolPath & "spreadsheet/optional/input/validity.ods")
- sOutputFile = convertpath (gOfficepath & "user/work/validity.ods.ods)"
+ sOutputFile = convertpath (gOfficepath & "user/work/validity.ods.ods)"
- printlog " Open document <i>gTesttoolPath</i>spreadsheet/optional/input/validity.ods"
- call hFileOpen (sInputFile)
- printlog " Save the document under <i>gOfficePath</i>user/work/validity.ods"
- if NOT hFileSaveAsWithFilter ( sOutputFile, "calc8" ) then
- warnlog "Saving test document localy failed -> Aborting"
- call hCloseDocument
- goto endsub
- endif
+ printlog " Open document <i>gTesttoolPath</i>spreadsheet/optional/input/validity.ods"
+ call hFileOpen (sInputFile)
+ printlog " Save the document under <i>gOfficePath</i>user/work/validity.ods"
+ if NOT hFileSaveAsWithFilter ( sOutputFile, "calc8" ) then
+ warnlog "Saving test document localy failed -> Aborting"
+ call hCloseDocument
+ goto endsub
+ endif
- printlog " Do the following operations (see values in table) with every of the 4 sheets."
- printlog " Goto first cell and insert the correct value"
- printlog " Press RETURN"
- printlog " No warning or information message should appear"
- printlog " Enter the incorrect value"
- printlog " Press RETURN"
- printlog " A warning or information message should appear"
- for iCount = 1 to 4
- select case iCount
- case 1 : sMType = "Stop" : sInfoStr = "First"
- case 2 : sMType = "Warning" : sInfoStr = "Second"
- case 3 : sMType = "Information" : sInfoStr = "Third"
- case 4 : sMType = "Macro" : sInfoStr = "Macro"
- end select
+ printlog " Do the following operations (see values in table) with every of the 4 sheets."
+ printlog " Goto first cell and insert the correct value"
+ printlog " Press RETURN"
+ printlog " No warning or information message should appear"
+ printlog " Enter the incorrect value"
+ printlog " Press RETURN"
+ printlog " A warning or information message should appear"
+ for iCount = 1 to 4
+ select case iCount
+ case 1 : sMType = "Stop" : sInfoStr = "First"
+ case 2 : sMType = "Warning" : sInfoStr = "Second"
+ case 3 : sMType = "Information" : sInfoStr = "Third"
+ case 4 : sMType = "Macro" : sInfoStr = "Macro"
+ end select
- call fCalcSelectSheet(sMType)
+ call fCalcSelectSheet(sMType)
printlog " *** " & sInfoStr & " it is checked, if the " & sMType & " messages appears, if wrong contents are inserted into the appropriate cells"
- '///+<UL>
- '///+<LI>Goto first cell and insert the <i>correct value</i></LI>
- '///+<LI>Press RETURN</LI>
- '///+<LI><UL><LI>No warning or information message should appear</LI></UL></LI>
- '///+<LI>Enter the <i>incorrect value</I>
- '///+<LI>Press RETURN</LI>
- '///+<LI><UL><LI>A warning or information message should appear</LI></UL></LI>
- '///+<LI><TABLE BORDER=1>
- '///+ <TR><TH>Cell address</TH><TH>correct value</TH><TH>incorrect value</TH></TR>
- '///+ <TR><TD>B4</TD><TD>3</TD><TD>8</TD></TR>
- call check_message(sMType, "B4", "3", "8")
- '///+ <TR><TD>B5</TD><TD>9</TD><TD>10</TD></TR>
- call check_message(sMType, "B5", "9", "10")
- '///+ <TR><TD>B6</TD><TD>28</TD><TD>25</TD></TR>
- call check_message(sMType, "B6", "28", "25")
- '///+ <TR><TD>B7</TD><TD>10</TD><TD>12</TD></TR>
- call check_message(sMType, "B7", "10", "12")
- '///+ <TR><TD>B8</TD><TD>11</TD><TD>9</TD></TR>
- call check_message(sMType, "B8", "11", "9")
- '///+ <TR><TD>B9</TD><TD>5</TD><TD>3</TD></TR>
- call check_message(sMType, "B9", "5", "3")
- '///+ <TR><TD>B10</TD><TD>1</TD><TD>6</TD></TR>
- call check_message(sMType, "B10", "1", "6")
- '///+ <TR><TD>B11</TD><TD>1</TD><TD>6</TD></TR>
- call check_message(sMType, "B11", "1", "6")
- '///+ <TR><TD>B17</TD><TD>3,14</TD><TD>3,15</TD></TR>
- call check_message(sMType, "B17", "3,14", "3,15")
- '///+ <TR><TD>B18</TD><TD>10,14</TD><TD>10,16</TD></TR>
- call check_message(sMType, "B18", "10,14", "10,16")
- '///+ <TR><TD>B19</TD><TD>25,10</TD><TD>25,09</TD></TR>
- call check_message(sMType, "B19", "25,10", "25,09")
- '///+ <TR><TD>B20</TD><TD>10,5</TD><TD>10,7</TD></TR>
- call check_message(sMType, "B20", "10,5", "10,7")
- '///+ <TR><TD>B21</TD><TD>11,9</TD><TD>10</TD></TR>
- call check_message(sMType, "B21", "11,9", "10")
- '///+ <TR><TD>B22</TD><TD>3,145</TD><TD>3,14</TD></TR>
- call check_message(sMType, "B22", "3,145", "3,14")
- '///+ <TR><TD>B23</TD><TD>1,45</TD><TD>1,38</TD></TR>
- call check_message(sMType, "B23", "1,45", "1,38")
- '///+ <TR><TD>B24</TD><TD>2,03</TD><TD>2,15</TD></TR>
- call check_message(sMType, "B24", "2,03", "2,15")
- '///+ <TR><TD>E4</TD><TD>13.12.99</TD><TD>13.11.99</TD></TR>
- call check_message(sMType, "E4", "13.12.99", "13.11.99")
- '///+ <TR><TD>E5</TD><TD>12.12.99</TD><TD>13.12.99</TD></TR>
- call check_message(sMType, "E5", "12.12.99", "13.12.99")
- '///+ <TR><TD>E6</TD><TD>14.12.99</TD><TD>13.12.99</TD></TR>
- call check_message(sMType, "E6", "14.12.99", "13.12.99")
- '///+ <TR><TD>E7</TD><TD>13.12.99</TD><TD>14.12.99</TD></TR>
- call check_message(sMType, "E7", "13.12.99", "14.12.99")
- '///+ <TR><TD>E8</TD><TD>13.12.99</TD><TD>12.12.99</TD></TR>
- call check_message(sMType, "E8", "13.12.99", "12.12.99")
- '///+ <TR><TD>E9</TD><TD>13.11.99</TD><TD>13.12.99</TD></TR>
- call check_message(sMType, "E9", "13.11.99", "13.12.99")
- '///+ <TR><TD>E10</TD><TD>23.12.99</TD><TD>12.12.99</TD></TR>
- call check_message(sMType, "E10", "23.12.99", "12.12.99")
- '///+ <TR><TD>E11</TD><TD>24.12.99</TD><TD>23.12.99</TD></TR>
- call check_message(sMType, "E11", "24.12.99", "23.12.99")
- '///+ <TR><TD>E17</TD><TD>13:15</TD><TD>13:16</TD></TR>
- call check_message(sMType, "E17", "13:15", "13:16")
- '///+ <TR><TD>E18</TD><TD>10:15</TD><TD>14:16</TD></TR>
- call check_message(sMType, "E18", "10:15", "14:16")
- '///+ <TR><TD>E19</TD><TD>23:10</TD><TD>12:09</TD></TR>
- call check_message(sMType, "E19", "23:10", "12:09")
- '///+ <TR><TD>E20</TD><TD>13:15</TD><TD>13:16</TD></TR>
- call check_message(sMType, "E20", "13:15", "13:16")
- '///+ <TR><TD>E21</TD><TD>13:15</TD><TD>13:14</TD></TR>
- call check_message(sMType, "E21", "13:15", "13:14")
- '///+ <TR><TD>E22</TD><TD>13:16</TD><TD>13:15</TD></TR>
- call check_message(sMType, "E22", "13:16", "13:15")
- '///+ <TR><TD>E23</TD><TD>13:15</TD><TD>23:13</TD></TR>
- call check_message(sMType, "E23", "13:15", "23:13")
- '///+ <TR><TD>E24</TD><TD>12:59</TD><TD>13:00</TD></TR>
- call check_message(sMType, "E24", "12:59", "13:00")
- '///+ <TR><TD>H4</TD><TD>abc</TD><TD>abcd</TD></TR>
- call check_message(sMType, "H4", "abc", "abcd")
- '///+ <TR><TD>H5</TD><TD>abcdefgrd</TD><TD>aderfgtzjm</TD></TR>
- call check_message(sMType, "H5", "abcdefgrd", "aderfgtzjm")
- '///+ <TR><TD>H6</TD><TD>rftgzhujikolmnbvcxyaswqepk</TD><TD>ftgzhnujikm,lopredswqayx</TD></TR>
- call check_message(sMType, "H6", "rftgzhujikolmnbvcxyaswqepk", "ftgzhnujikm,lopredswqayx")
- '///+ <TR><TD>H7</TD><TD>asweqrfvbg</TD><TD>edcvfrtgbnh</TD></TR>
- call check_message(sMType, "H7", "asweqrfvbg", "edcvfrtgbnh")
- '///+ <TR><TD>H8</TD><TD>edcswxyaqtgb</TD><TD>ujnmkipztr</TD></TR>
- call check_message(sMType, "H8", "edcswxyaqtgb", "ujnmkipztr")
- '///+ <TR><TD>H9</TD><TD>sdxc</TD><TD>tgb</TD></TR>
- call check_message(sMType, "H9", "sdxc", "tgb")
- '///+ <TR><TD>H10</TD><TD>rfvbj</TD><TD>dfcvgb</TD></TR>
- call check_message(sMType, "H10", "rfvbj", "dfcvgb")
- '///+ <TR><TD>H11</TD><TD>g</TD><TD>we</TD></TR>
- call check_message(sMType, "H11", "g", "we")
- '///+ <TR><TH>New featurs OpenOffice 2.0</TH></TR>
- '///+ <TR><TD>B30</TD><TD>February</TD><TD>January</TD></TR>
- call check_message(sMType, "B30", "February", "January")
- '///+ <TR><TD>B31</TD><TD>May</TD><TD>February</TD></TR>
- call check_message(sMType, "B31", "May", "February")
- '///+ <TR><TD>B32</TD><TD>June</TD><TD>January</TD></TR>
- call check_message(sMType, "B32", "June", "January")
- '///+ <TR><TD>B33</TD><TD>August</TD><TD>November</TD></TR>
- call check_message(sMType, "B33", "August", "November")
- '///+ <TR><TD>B34</TD><TD>September</TD><TD>December</TD></TR>
- call check_message(sMType, "B34", "September", "December")
- '///+ <TR><TD>B35</TD><TD>October</TD><TD>March</TD></TR>
- call check_message(sMType, "B35", "October", "March")
- '///+ <TR><TD>B36</TD><TD>July</TD><TD>August</TD></TR>
- call check_message(sMType, "B36", "July", "August")
- '///+ <TR><TD>B37</TD><TD>April</TD><TD>October</TD></TR>
- call check_message(sMType, "B37", "April", "October")
- '///+ <TR><TD>B38</TD><TD>Name03</TD><TD>Name07</TD></TR>
- call check_message(sMType, "B38", "Name03", "Name07")
- '///+ <TR><TD>E30</TD><TD>alpha</TD><TD>omega</TD></TR>
- call check_message(sMType, "E30", "alpha", "omega")
- '///+ <TR><TD>E31</TD><TD>beta</TD><TD>zeta</TD></TR>
- call check_message(sMType, "E31", "beta", "zeta")
- '///+ <TR><TD>E32</TD><TD>gamma</TD><TD>psi</TD></TR>
- call check_message(sMType, "E32", "gamma", "psi")
- '///+ <TR><TD>E33</TD><TD>delta</TD><TD>pi/2</TD></TR>
- call check_message(sMType, "E33", "delta", "pi/2")
- '///+ </TABLE></LI></UL>
- next iCount
+ '///+<UL>
+ '///+<LI>Goto first cell and insert the <i>correct value</i></LI>
+ '///+<LI>Press RETURN</LI>
+ '///+<LI><UL><LI>No warning or information message should appear</LI></UL></LI>
+ '///+<LI>Enter the <i>incorrect value</I>
+ '///+<LI>Press RETURN</LI>
+ '///+<LI><UL><LI>A warning or information message should appear</LI></UL></LI>
+ '///+<LI><TABLE BORDER=1>
+ '///+ <TR><TH>Cell address</TH><TH>correct value</TH><TH>incorrect value</TH></TR>
+ '///+ <TR><TD>B4</TD><TD>3</TD><TD>8</TD></TR>
+ call check_message(sMType, "B4", "3", "8")
+ '///+ <TR><TD>B5</TD><TD>9</TD><TD>10</TD></TR>
+ call check_message(sMType, "B5", "9", "10")
+ '///+ <TR><TD>B6</TD><TD>28</TD><TD>25</TD></TR>
+ call check_message(sMType, "B6", "28", "25")
+ '///+ <TR><TD>B7</TD><TD>10</TD><TD>12</TD></TR>
+ call check_message(sMType, "B7", "10", "12")
+ '///+ <TR><TD>B8</TD><TD>11</TD><TD>9</TD></TR>
+ call check_message(sMType, "B8", "11", "9")
+ '///+ <TR><TD>B9</TD><TD>5</TD><TD>3</TD></TR>
+ call check_message(sMType, "B9", "5", "3")
+ '///+ <TR><TD>B10</TD><TD>1</TD><TD>6</TD></TR>
+ call check_message(sMType, "B10", "1", "6")
+ '///+ <TR><TD>B11</TD><TD>1</TD><TD>6</TD></TR>
+ call check_message(sMType, "B11", "1", "6")
+ '///+ <TR><TD>B17</TD><TD>3,14</TD><TD>3,15</TD></TR>
+ call check_message(sMType, "B17", "3,14", "3,15")
+ '///+ <TR><TD>B18</TD><TD>10,14</TD><TD>10,16</TD></TR>
+ call check_message(sMType, "B18", "10,14", "10,16")
+ '///+ <TR><TD>B19</TD><TD>25,10</TD><TD>25,09</TD></TR>
+ call check_message(sMType, "B19", "25,10", "25,09")
+ '///+ <TR><TD>B20</TD><TD>10,5</TD><TD>10,7</TD></TR>
+ call check_message(sMType, "B20", "10,5", "10,7")
+ '///+ <TR><TD>B21</TD><TD>11,9</TD><TD>10</TD></TR>
+ call check_message(sMType, "B21", "11,9", "10")
+ '///+ <TR><TD>B22</TD><TD>3,145</TD><TD>3,14</TD></TR>
+ call check_message(sMType, "B22", "3,145", "3,14")
+ '///+ <TR><TD>B23</TD><TD>1,45</TD><TD>1,38</TD></TR>
+ call check_message(sMType, "B23", "1,45", "1,38")
+ '///+ <TR><TD>B24</TD><TD>2,03</TD><TD>2,15</TD></TR>
+ call check_message(sMType, "B24", "2,03", "2,15")
+ '///+ <TR><TD>E4</TD><TD>13.12.99</TD><TD>13.11.99</TD></TR>
+ call check_message(sMType, "E4", "13.12.99", "13.11.99")
+ '///+ <TR><TD>E5</TD><TD>12.12.99</TD><TD>13.12.99</TD></TR>
+ call check_message(sMType, "E5", "12.12.99", "13.12.99")
+ '///+ <TR><TD>E6</TD><TD>14.12.99</TD><TD>13.12.99</TD></TR>
+ call check_message(sMType, "E6", "14.12.99", "13.12.99")
+ '///+ <TR><TD>E7</TD><TD>13.12.99</TD><TD>14.12.99</TD></TR>
+ call check_message(sMType, "E7", "13.12.99", "14.12.99")
+ '///+ <TR><TD>E8</TD><TD>13.12.99</TD><TD>12.12.99</TD></TR>
+ call check_message(sMType, "E8", "13.12.99", "12.12.99")
+ '///+ <TR><TD>E9</TD><TD>13.11.99</TD><TD>13.12.99</TD></TR>
+ call check_message(sMType, "E9", "13.11.99", "13.12.99")
+ '///+ <TR><TD>E10</TD><TD>23.12.99</TD><TD>12.12.99</TD></TR>
+ call check_message(sMType, "E10", "23.12.99", "12.12.99")
+ '///+ <TR><TD>E11</TD><TD>24.12.99</TD><TD>23.12.99</TD></TR>
+ call check_message(sMType, "E11", "24.12.99", "23.12.99")
+ '///+ <TR><TD>E17</TD><TD>13:15</TD><TD>13:16</TD></TR>
+ call check_message(sMType, "E17", "13:15", "13:16")
+ '///+ <TR><TD>E18</TD><TD>10:15</TD><TD>14:16</TD></TR>
+ call check_message(sMType, "E18", "10:15", "14:16")
+ '///+ <TR><TD>E19</TD><TD>23:10</TD><TD>12:09</TD></TR>
+ call check_message(sMType, "E19", "23:10", "12:09")
+ '///+ <TR><TD>E20</TD><TD>13:15</TD><TD>13:16</TD></TR>
+ call check_message(sMType, "E20", "13:15", "13:16")
+ '///+ <TR><TD>E21</TD><TD>13:15</TD><TD>13:14</TD></TR>
+ call check_message(sMType, "E21", "13:15", "13:14")
+ '///+ <TR><TD>E22</TD><TD>13:16</TD><TD>13:15</TD></TR>
+ call check_message(sMType, "E22", "13:16", "13:15")
+ '///+ <TR><TD>E23</TD><TD>13:15</TD><TD>23:13</TD></TR>
+ call check_message(sMType, "E23", "13:15", "23:13")
+ '///+ <TR><TD>E24</TD><TD>12:59</TD><TD>13:00</TD></TR>
+ call check_message(sMType, "E24", "12:59", "13:00")
+ '///+ <TR><TD>H4</TD><TD>abc</TD><TD>abcd</TD></TR>
+ call check_message(sMType, "H4", "abc", "abcd")
+ '///+ <TR><TD>H5</TD><TD>abcdefgrd</TD><TD>aderfgtzjm</TD></TR>
+ call check_message(sMType, "H5", "abcdefgrd", "aderfgtzjm")
+ '///+ <TR><TD>H6</TD><TD>rftgzhujikolmnbvcxyaswqepk</TD><TD>ftgzhnujikm,lopredswqayx</TD></TR>
+ call check_message(sMType, "H6", "rftgzhujikolmnbvcxyaswqepk", "ftgzhnujikm,lopredswqayx")
+ '///+ <TR><TD>H7</TD><TD>asweqrfvbg</TD><TD>edcvfrtgbnh</TD></TR>
+ call check_message(sMType, "H7", "asweqrfvbg", "edcvfrtgbnh")
+ '///+ <TR><TD>H8</TD><TD>edcswxyaqtgb</TD><TD>ujnmkipztr</TD></TR>
+ call check_message(sMType, "H8", "edcswxyaqtgb", "ujnmkipztr")
+ '///+ <TR><TD>H9</TD><TD>sdxc</TD><TD>tgb</TD></TR>
+ call check_message(sMType, "H9", "sdxc", "tgb")
+ '///+ <TR><TD>H10</TD><TD>rfvbj</TD><TD>dfcvgb</TD></TR>
+ call check_message(sMType, "H10", "rfvbj", "dfcvgb")
+ '///+ <TR><TD>H11</TD><TD>g</TD><TD>we</TD></TR>
+ call check_message(sMType, "H11", "g", "we")
+ '///+ <TR><TH>New featurs OpenOffice 2.0</TH></TR>
+ '///+ <TR><TD>B30</TD><TD>February</TD><TD>January</TD></TR>
+ call check_message(sMType, "B30", "February", "January")
+ '///+ <TR><TD>B31</TD><TD>May</TD><TD>February</TD></TR>
+ call check_message(sMType, "B31", "May", "February")
+ '///+ <TR><TD>B32</TD><TD>June</TD><TD>January</TD></TR>
+ call check_message(sMType, "B32", "June", "January")
+ '///+ <TR><TD>B33</TD><TD>August</TD><TD>November</TD></TR>
+ call check_message(sMType, "B33", "August", "November")
+ '///+ <TR><TD>B34</TD><TD>September</TD><TD>December</TD></TR>
+ call check_message(sMType, "B34", "September", "December")
+ '///+ <TR><TD>B35</TD><TD>October</TD><TD>March</TD></TR>
+ call check_message(sMType, "B35", "October", "March")
+ '///+ <TR><TD>B36</TD><TD>July</TD><TD>August</TD></TR>
+ call check_message(sMType, "B36", "July", "August")
+ '///+ <TR><TD>B37</TD><TD>April</TD><TD>October</TD></TR>
+ call check_message(sMType, "B37", "April", "October")
+ '///+ <TR><TD>B38</TD><TD>Name03</TD><TD>Name07</TD></TR>
+ call check_message(sMType, "B38", "Name03", "Name07")
+ '///+ <TR><TD>E30</TD><TD>alpha</TD><TD>omega</TD></TR>
+ call check_message(sMType, "E30", "alpha", "omega")
+ '///+ <TR><TD>E31</TD><TD>beta</TD><TD>zeta</TD></TR>
+ call check_message(sMType, "E31", "beta", "zeta")
+ '///+ <TR><TD>E32</TD><TD>gamma</TD><TD>psi</TD></TR>
+ call check_message(sMType, "E32", "gamma", "psi")
+ '///+ <TR><TD>E33</TD><TD>delta</TD><TD>pi/2</TD></TR>
+ call check_message(sMType, "E33", "delta", "pi/2")
+ '///+ </TABLE></LI></UL>
+ next iCount
'/// Close the document
- printlog "Close the document"
- call hCloseDocument
+ printlog "Close the document"
+ call hCloseDocument
endcase
'
'-------------------------------------------------------------------------------
'
testcase tValidity_Check_Excel
-'/// This test checks, if an error messgae appears, when a wrong content is inserted into the appropriate cells
-
- dim sInputFile as String
+ '/// This test checks, if an error messgae appears, when a wrong content is inserted into the appropriate cells
+
+ dim sInputFile as String
dim sOutputFile as String
dim sMType as String
dim iCount as integer
dim sInfoStr as String
dim sdecimalseperator as string
- sDecimalseperator = GetDecimalSeperator
+ sDecimalseperator = GetDecimalSeperator
- sInputFile = convertpath(gTesttoolPath & "spreadsheet/optional/input/validity.ods")
+ sInputFile = convertpath(gTesttoolPath & "spreadsheet/optional/input/validity.ods")
sOutputFile = convertpath(gOfficePath & "user/work/validity.xls")
'/// Open <i>gTesttoolPath</i>/calc/special/input/validity.ods
- printlog "Open <i>gTesttoolPath</i>/calc/special/input/validity.ods"
+ printlog "Open <i>gTesttoolPath</i>/calc/special/input/validity.ods"
call hFileOpen (sInputFile)
Kontext "SecurityWarning"
'/// If security warning occours click on 'Enable Macros'.
@@ -238,141 +233,140 @@ testcase tValidity_Check_Excel
call hFileOpen ( sOutputFile )
sleep (2)
printlog " Do the following operations (see values in table) with every of the 3 sheets."
- printlog " Goto first cell and insert the correct value"
- printlog " Press RETURN"
- printlog " No warning or information message should appear"
- printlog " Enter the incorrect value"
- printlog " Press RETURN"
- printlog " A warning or information message should appear"
+ printlog " Goto first cell and insert the correct value"
+ printlog " Press RETURN"
+ printlog " No warning or information message should appear"
+ printlog " Enter the incorrect value"
+ printlog " Press RETURN"
+ printlog " A warning or information message should appear"
for iCount = 1 to 3
select case iCount
- case 1 : sMType = "Stop" : sInfoStr = "First"
- case 2 : sMType = "Warning" : sInfoStr = "Second"
- case 3 : sMType = "Information" : sInfoStr = "Third"
+ case 1 : sMType = "Stop" : sInfoStr = "First"
+ case 2 : sMType = "Warning" : sInfoStr = "Second"
+ case 3 : sMType = "Information" : sInfoStr = "Third"
end select
- '/// Do the following operations (see values in table) with every of the 3 sheets.
- call fCalcSelectSheet(sMType)
- printlog " *** " & sInfoStr & " it is checked, if the " & sMType & " messages appears, if wrong contents are " & _
- "inserted into the appropriate cells"
-'///+<UL>
-'///+<LI>Goto first cell and insert the <i>correct value</i></LI>
-'///+<LI>Press RETURN</LI>
-'///+<LI><UL><LI>No warning or information message should appear</LI></UL></LI>
-'///+<LI>Enter the <i>incorrect value</I>
-'///+<LI>Press RETURN</LI>
-'///+<LI><UL><LI>A warning or information message should appear</LI></UL></LI>
-'///+<LI><TABLE BORDER=1>
-'///+ <TR><TH>Cell address</TH><TH>correct value</TH><TH>incorrect value</TH></TR>
-'///+ <TR><TD>B4</TD><TD>3</TD><TD>8</TD></TR>
- call check_message(sMType, "B4", "3", "8")
-'///+ <TR><TD>B5</TD><TD>9</TD><TD>10</TD></TR>
- call check_message(sMType, "B5", "9", "10")
-'///+ <TR><TD>B6</TD><TD>28</TD><TD>25</TD></TR>
- call check_message(sMType, "B6", "28", "25")
-'///+ <TR><TD>B7</TD><TD>10</TD><TD>12</TD></TR>
- call check_message(sMType, "B7", "10", "12")
-'///+ <TR><TD>B8</TD><TD>11</TD><TD>9</TD></TR>
- call check_message(sMType, "B8", "11", "9")
-'///+ <TR><TD>B9</TD><TD>5</TD><TD>3</TD></TR>
- call check_message(sMType, "B9", "5", "3")
-'///+ <TR><TD>B10</TD><TD>1</TD><TD>6</TD></TR>
- call check_message(sMType, "B10", "1", "6")
-'///+ <TR><TD>B11</TD><TD>1</TD><TD>6</TD></TR>
- call check_message(sMType, "B11", "1", "6")
-'///+ <TR><TD>B17</TD><TD>3,14</TD><TD>3,15</TD></TR>
- call check_message(sMType, "B17", "3" & sdecimalseperator & "14", "3" & sdecimalseperator & "15")
-'///+ <TR><TD>B18</TD><TD>10,14</TD><TD>10,16</TD></TR>
- call check_message(sMType, "B18", "10" & sdecimalseperator & "14", "10" & sdecimalseperator & "16")
-'///+ <TR><TD>B19</TD><TD>25,10</TD><TD>25,09</TD></TR>
- call check_message(sMType, "B19", "25" & sdecimalseperator & "10", "25" & sdecimalseperator & "09")
-'///+ <TR><TD>B20</TD><TD>10,5</TD><TD>10,7</TD></TR>
- call check_message(sMType, "B20", "10" & sdecimalseperator & "5", "10" & sdecimalseperator & "7")
-'///+ <TR><TD>B21</TD><TD>11,9</TD><TD>10</TD></TR>
- call check_message(sMType, "B21", "11" & sdecimalseperator & "9", "10")
-'///+ <TR><TD>B22</TD><TD>3,145</TD><TD>3,14</TD></TR>
- call check_message(sMType, "B22", "3" & sdecimalseperator & "145", "3" & sdecimalseperator & "14")
-'///+ <TR><TD>B23</TD><TD>1,45</TD><TD>1,38</TD></TR>
- call check_message(sMType, "B23", "1" & sdecimalseperator & "45", "1" & sdecimalseperator & "38")
-'///+ <TR><TD>B24</TD><TD>2,03</TD><TD>2,15</TD></TR>
- call check_message(sMType, "B24", "2" & sdecimalseperator & "03", "2" & sdecimalseperator & "15")
-'///+ <TR><TD>E4</TD><TD>13.12.99</TD><TD>13.11.99</TD></TR>
- call check_message(sMType, "E4", "13.12.99", "13.11.99")
-'///+ <TR><TD>E5</TD><TD>12.12.99</TD><TD>13.12.99</TD></TR>
- call check_message(sMType, "E5", "12.12.99", "13.12.99")
-'///+ <TR><TD>E6</TD><TD>14.12.99</TD><TD>13.12.99</TD></TR>
- call check_message(sMType, "E6", "14.12.99", "13.12.99")
-'///+ <TR><TD>E7</TD><TD>13.12.99</TD><TD>14.12.99</TD></TR>
- call check_message(sMType, "E7", "13.12.99", "14.12.99")
-'///+ <TR><TD>E8</TD><TD>13.12.99</TD><TD>12.12.99</TD></TR>
- call check_message(sMType, "E8", "13.12.99", "12.12.99")
-'///+ <TR><TD>E9</TD><TD>13.11.99</TD><TD>13.12.99</TD></TR>
- call check_message(sMType, "E9", "13.11.99", "13.12.99")
-'///+ <TR><TD>E10</TD><TD>23.12.99</TD><TD>12.12.99</TD></TR>
- call check_message(sMType, "E10", "23.12.99", "12.12.99")
-'///+ <TR><TD>E11</TD><TD>24.12.99</TD><TD>23.12.99</TD></TR>
- call check_message(sMType, "E11", "24.12.99", "23.12.99")
-'///+ <TR><TD>E17</TD><TD>13:15</TD><TD>13:16</TD></TR>
- call check_message(sMType, "E17", "13:15", "13:16")
-'///+ <TR><TD>E18</TD><TD>10:15</TD><TD>14:16</TD></TR>
- call check_message(sMType, "E18", "10:15", "14:16")
-'///+ <TR><TD>E19</TD><TD>23:10</TD><TD>12:09</TD></TR>
- call check_message(sMType, "E19", "23:10", "12:09")
-'///+ <TR><TD>E20</TD><TD>13:15</TD><TD>13:16</TD></TR>
- call check_message(sMType, "E20", "13:15", "13:16")
-'///+ <TR><TD>E21</TD><TD>13:15</TD><TD>13:15</TD></TR>
- call check_message(sMType, "E21", "13:15", "13:14")
-'///+ <TR><TD>E22</TD><TD>13:16</TD><TD>13:15</TD></TR>
- call check_message(sMType, "E22", "13:16", "13:15")
-'///+ <TR><TD>E23</TD><TD>13:15</TD><TD>23:13</TD></TR>
- call check_message(sMType, "E23", "13:15", "23:13")
-'///+ <TR><TD>E24</TD><TD>12:59</TD><TD>13:00</TD></TR>
- call check_message(sMType, "E24", "12:59", "13:00")
-'///+ <TR><TD>H4</TD><TD>abc</TD><TD>abcd</TD></TR>
- call check_message(sMType, "H4", "abc", "abcd")
-'///+ <TR><TD>H5</TD><TD>abcdefgrd</TD><TD>aderfgtzjm</TD></TR>
- call check_message(sMType, "H5", "abcdefgrd", "aderfgtzjm")
-'///+ <TR><TD>H6</TD><TD>rftgzhujikolmnbvcxyaswqepk</TD><TD>ftgzhnujikm,lopredswqayx</TD></TR>
- call check_message(sMType, "H6", "rftgzhujikolmnbvcxyaswqepk", "ftgzhnujikm,lopredswqayx")
-'///+ <TR><TD>H7</TD><TD>asweqrfvbg</TD><TD>edcvfrtgbnh</TD></TR>
- call check_message(sMType, "H7", "asweqrfvbg", "edcvfrtgbnh")
-'///+ <TR><TD>H8</TD><TD>edcswxyaqtgb</TD><TD>ujnmkipztr</TD></TR>
- call check_message(sMType, "H8", "edcswxyaqtgb", "ujnmkipztr")
-'///+ <TR><TD>H9</TD><TD>sdxc</TD><TD>tgb</TD></TR>
- call check_message(sMType, "H9", "sdxc", "tgb")
-'///+ <TR><TD>H10</TD><TD>rfvbj</TD><TD>dfcvgb</TD></TR>
- call check_message(sMType, "H10", "rfvbj", "dfcvgb")
-'///+ <TR><TD>H11</TD><TD>g</TD><TD>we</TD></TR>
- call check_message(sMType, "H11", "g", "we")
-'///+ <TR><TH>New featurs OpenOffice 2.0</TH></TR>we</TD></TR>
-'///+ <TR><TD>B30</TD><TD>February</TD><TD>January</TD></TR>
- call check_message(sMType, "B30", "February", "January")
-'///+ <TR><TD>B31</TD><TD>May</TD><TD>February</TD></TR>
- call check_message(sMType, "B31", "May", "February")
-'///+ <TR><TD>B32</TD><TD>June</TD><TD>January</TD></TR>
- call check_message(sMType, "B32", "June", "January")
-'///+ <TR><TD>B33</TD><TD>August</TD><TD>November</TD></TR>
- call check_message(sMType, "B33", "August", "November")
-'///+ <TR><TD>B34</TD><TD>September</TD><TD>December</TD></TR>
- call check_message(sMType, "B34", "September", "December")
-'///+ <TR><TD>B35</TD><TD>October</TD><TD>March</TD></TR>
- call check_message(sMType, "B35", "October", "March")
-'///+ <TR><TD>B36</TD><TD>July</TD><TD>August</TD></TR>
- call check_message(sMType, "B36", "July", "August")
-'///+ <TR><TD>B37</TD><TD>April</TD><TD>October</TD></TR>
- call check_message(sMType, "B37", "April", "October")
-'///+ <TR><TD>B38</TD><TD>Name03</TD><TD>Name07</TD></TR>
- call check_message(sMType, "B38", "Name03", "Name07")
-'///+ <TR><TD>E30</TD><TD>alpha</TD><TD>omega</TD></TR>
- call check_message(sMType, "E30", "alpha", "omega")
-'///+ <TR><TD>E31</TD><TD>beta</TD><TD>zeta</TD></TR>
- call check_message(sMType, "E31", "beta", "zeta")
-'///+ <TR><TD>E32</TD><TD>gamma</TD><TD>psi</TD></TR>
- call check_message(sMType, "E32", "gamma", "psi")
-'///+ <TR><TD>E33</TD><TD>delta</TD><TD>pi/2</TD></TR>
- call check_message(sMType, "E33", "delta", "pi/2")
-'///+ </TABLE></LI></UL>
- next iCount
-'/// File / Close
- call hCloseDocument
+ '/// Do the following operations (see values in table) with every of the 3 sheets.
+ call fCalcSelectSheet(sMType)
+ printlog " *** " & sInfoStr & " it is checked, if the " & sMType & " messages appears, if wrong contents are " & "inserted into the appropriate cells"
+ '///+<UL>
+ '///+<LI>Goto first cell and insert the <i>correct value</i></LI>
+ '///+<LI>Press RETURN</LI>
+ '///+<LI><UL><LI>No warning or information message should appear</LI></UL></LI>
+ '///+<LI>Enter the <i>incorrect value</I>
+ '///+<LI>Press RETURN</LI>
+ '///+<LI><UL><LI>A warning or information message should appear</LI></UL></LI>
+ '///+<LI><TABLE BORDER=1>
+ '///+ <TR><TH>Cell address</TH><TH>correct value</TH><TH>incorrect value</TH></TR>
+ '///+ <TR><TD>B4</TD><TD>3</TD><TD>8</TD></TR>
+ call check_message(sMType, "B4", "3", "8")
+ '///+ <TR><TD>B5</TD><TD>9</TD><TD>10</TD></TR>
+ call check_message(sMType, "B5", "9", "10")
+ '///+ <TR><TD>B6</TD><TD>28</TD><TD>25</TD></TR>
+ call check_message(sMType, "B6", "28", "25")
+ '///+ <TR><TD>B7</TD><TD>10</TD><TD>12</TD></TR>
+ call check_message(sMType, "B7", "10", "12")
+ '///+ <TR><TD>B8</TD><TD>11</TD><TD>9</TD></TR>
+ call check_message(sMType, "B8", "11", "9")
+ '///+ <TR><TD>B9</TD><TD>5</TD><TD>3</TD></TR>
+ call check_message(sMType, "B9", "5", "3")
+ '///+ <TR><TD>B10</TD><TD>1</TD><TD>6</TD></TR>
+ call check_message(sMType, "B10", "1", "6")
+ '///+ <TR><TD>B11</TD><TD>1</TD><TD>6</TD></TR>
+ call check_message(sMType, "B11", "1", "6")
+ '///+ <TR><TD>B17</TD><TD>3,14</TD><TD>3,15</TD></TR>
+ call check_message(sMType, "B17", "3" & sdecimalseperator & "14", "3" & sdecimalseperator & "15")
+ '///+ <TR><TD>B18</TD><TD>10,14</TD><TD>10,16</TD></TR>
+ call check_message(sMType, "B18", "10" & sdecimalseperator & "14", "10" & sdecimalseperator & "16")
+ '///+ <TR><TD>B19</TD><TD>25,10</TD><TD>25,09</TD></TR>
+ call check_message(sMType, "B19", "25" & sdecimalseperator & "10", "25" & sdecimalseperator & "09")
+ '///+ <TR><TD>B20</TD><TD>10,5</TD><TD>10,7</TD></TR>
+ call check_message(sMType, "B20", "10" & sdecimalseperator & "5", "10" & sdecimalseperator & "7")
+ '///+ <TR><TD>B21</TD><TD>11,9</TD><TD>10</TD></TR>
+ call check_message(sMType, "B21", "11" & sdecimalseperator & "9", "10")
+ '///+ <TR><TD>B22</TD><TD>3,145</TD><TD>3,14</TD></TR>
+ call check_message(sMType, "B22", "3" & sdecimalseperator & "145", "3" & sdecimalseperator & "14")
+ '///+ <TR><TD>B23</TD><TD>1,45</TD><TD>1,38</TD></TR>
+ call check_message(sMType, "B23", "1" & sdecimalseperator & "45", "1" & sdecimalseperator & "38")
+ '///+ <TR><TD>B24</TD><TD>2,03</TD><TD>2,15</TD></TR>
+ call check_message(sMType, "B24", "2" & sdecimalseperator & "03", "2" & sdecimalseperator & "15")
+ '///+ <TR><TD>E4</TD><TD>13.12.99</TD><TD>13.11.99</TD></TR>
+ call check_message(sMType, "E4", "13.12.99", "13.11.99")
+ '///+ <TR><TD>E5</TD><TD>12.12.99</TD><TD>13.12.99</TD></TR>
+ call check_message(sMType, "E5", "12.12.99", "13.12.99")
+ '///+ <TR><TD>E6</TD><TD>14.12.99</TD><TD>13.12.99</TD></TR>
+ call check_message(sMType, "E6", "14.12.99", "13.12.99")
+ '///+ <TR><TD>E7</TD><TD>13.12.99</TD><TD>14.12.99</TD></TR>
+ call check_message(sMType, "E7", "13.12.99", "14.12.99")
+ '///+ <TR><TD>E8</TD><TD>13.12.99</TD><TD>12.12.99</TD></TR>
+ call check_message(sMType, "E8", "13.12.99", "12.12.99")
+ '///+ <TR><TD>E9</TD><TD>13.11.99</TD><TD>13.12.99</TD></TR>
+ call check_message(sMType, "E9", "13.11.99", "13.12.99")
+ '///+ <TR><TD>E10</TD><TD>23.12.99</TD><TD>12.12.99</TD></TR>
+ call check_message(sMType, "E10", "23.12.99", "12.12.99")
+ '///+ <TR><TD>E11</TD><TD>24.12.99</TD><TD>23.12.99</TD></TR>
+ call check_message(sMType, "E11", "24.12.99", "23.12.99")
+ '///+ <TR><TD>E17</TD><TD>13:15</TD><TD>13:16</TD></TR>
+ call check_message(sMType, "E17", "13:15", "13:16")
+ '///+ <TR><TD>E18</TD><TD>10:15</TD><TD>14:16</TD></TR>
+ call check_message(sMType, "E18", "10:15", "14:16")
+ '///+ <TR><TD>E19</TD><TD>23:10</TD><TD>12:09</TD></TR>
+ call check_message(sMType, "E19", "23:10", "12:09")
+ '///+ <TR><TD>E20</TD><TD>13:15</TD><TD>13:16</TD></TR>
+ call check_message(sMType, "E20", "13:15", "13:16")
+ '///+ <TR><TD>E21</TD><TD>13:15</TD><TD>13:15</TD></TR>
+ call check_message(sMType, "E21", "13:15", "13:14")
+ '///+ <TR><TD>E22</TD><TD>13:16</TD><TD>13:15</TD></TR>
+ call check_message(sMType, "E22", "13:16", "13:15")
+ '///+ <TR><TD>E23</TD><TD>13:15</TD><TD>23:13</TD></TR>
+ call check_message(sMType, "E23", "13:15", "23:13")
+ '///+ <TR><TD>E24</TD><TD>12:59</TD><TD>13:00</TD></TR>
+ call check_message(sMType, "E24", "12:59", "13:00")
+ '///+ <TR><TD>H4</TD><TD>abc</TD><TD>abcd</TD></TR>
+ call check_message(sMType, "H4", "abc", "abcd")
+ '///+ <TR><TD>H5</TD><TD>abcdefgrd</TD><TD>aderfgtzjm</TD></TR>
+ call check_message(sMType, "H5", "abcdefgrd", "aderfgtzjm")
+ '///+ <TR><TD>H6</TD><TD>rftgzhujikolmnbvcxyaswqepk</TD><TD>ftgzhnujikm,lopredswqayx</TD></TR>
+ call check_message(sMType, "H6", "rftgzhujikolmnbvcxyaswqepk", "ftgzhnujikm,lopredswqayx")
+ '///+ <TR><TD>H7</TD><TD>asweqrfvbg</TD><TD>edcvfrtgbnh</TD></TR>
+ call check_message(sMType, "H7", "asweqrfvbg", "edcvfrtgbnh")
+ '///+ <TR><TD>H8</TD><TD>edcswxyaqtgb</TD><TD>ujnmkipztr</TD></TR>
+ call check_message(sMType, "H8", "edcswxyaqtgb", "ujnmkipztr")
+ '///+ <TR><TD>H9</TD><TD>sdxc</TD><TD>tgb</TD></TR>
+ call check_message(sMType, "H9", "sdxc", "tgb")
+ '///+ <TR><TD>H10</TD><TD>rfvbj</TD><TD>dfcvgb</TD></TR>
+ call check_message(sMType, "H10", "rfvbj", "dfcvgb")
+ '///+ <TR><TD>H11</TD><TD>g</TD><TD>we</TD></TR>
+ call check_message(sMType, "H11", "g", "we")
+ '///+ <TR><TH>New featurs OpenOffice 2.0</TH></TR>we</TD></TR>
+ '///+ <TR><TD>B30</TD><TD>February</TD><TD>January</TD></TR>
+ call check_message(sMType, "B30", "February", "January")
+ '///+ <TR><TD>B31</TD><TD>May</TD><TD>February</TD></TR>
+ call check_message(sMType, "B31", "May", "February")
+ '///+ <TR><TD>B32</TD><TD>June</TD><TD>January</TD></TR>
+ call check_message(sMType, "B32", "June", "January")
+ '///+ <TR><TD>B33</TD><TD>August</TD><TD>November</TD></TR>
+ call check_message(sMType, "B33", "August", "November")
+ '///+ <TR><TD>B34</TD><TD>September</TD><TD>December</TD></TR>
+ call check_message(sMType, "B34", "September", "December")
+ '///+ <TR><TD>B35</TD><TD>October</TD><TD>March</TD></TR>
+ call check_message(sMType, "B35", "October", "March")
+ '///+ <TR><TD>B36</TD><TD>July</TD><TD>August</TD></TR>
+ call check_message(sMType, "B36", "July", "August")
+ '///+ <TR><TD>B37</TD><TD>April</TD><TD>October</TD></TR>
+ call check_message(sMType, "B37", "April", "October")
+ '///+ <TR><TD>B38</TD><TD>Name03</TD><TD>Name07</TD></TR>
+ call check_message(sMType, "B38", "Name03", "Name07")
+ '///+ <TR><TD>E30</TD><TD>alpha</TD><TD>omega</TD></TR>
+ call check_message(sMType, "E30", "alpha", "omega")
+ '///+ <TR><TD>E31</TD><TD>beta</TD><TD>zeta</TD></TR>
+ call check_message(sMType, "E31", "beta", "zeta")
+ '///+ <TR><TD>E32</TD><TD>gamma</TD><TD>psi</TD></TR>
+ call check_message(sMType, "E32", "gamma", "psi")
+ '///+ <TR><TD>E33</TD><TD>delta</TD><TD>pi/2</TD></TR>
+ call check_message(sMType, "E33", "delta", "pi/2")
+ '///+ </TABLE></LI></UL>
+ next iCount
+ '/// File / Close
+ call hCloseDocument
endcase
diff --git a/testautomation/spreadsheet/required/includes/c_upd_formatmenu2.inc b/testautomation/spreadsheet/required/includes/c_upd_formatmenu2.inc
index d405237fe4a7..cc448d3c3830 100644
--- a/testautomation/spreadsheet/required/includes/c_upd_formatmenu2.inc
+++ b/testautomation/spreadsheet/required/includes/c_upd_formatmenu2.inc
@@ -29,23 +29,6 @@
'*
'* short description : Resource Test - Format Menu Part II
'*
-'************************************************************************
-'*
-' #1 tFormatPrintRanges
-' #1 tFormatCharacter
-' #1 tFormatParagraph
-' #1 tFormatChangeCase
-' #1 tFormatStyles
-' #1 tFormatAutoFormat
-' #1 tFormatConditionalFormatting
-' #1 tFormatAnchor
-' #1 tFormatAlignment
-' #1 tFormatArrange
-' #1 tFormatFlip
-' #1 tFormatGroup
-' #0 tFormatControl
-
-'*
'\***********************************************************************
sub c_upd_formatmenu2
@@ -664,6 +647,7 @@ testcase tFormatAlignment
'/// Close document
printlog " Close document"
Call hCloseDocument
+ hFileDelete( gLastWorkFile )
endcase
@@ -767,6 +751,7 @@ testcase tFormatGroup
'/// Close document
printlog " Close document"
Call hCloseDocument
+ hFileDelete( gLastWorkFile )
endcase
diff --git a/testautomation/spreadsheet/required/includes/c_upd_formatmenu3.inc b/testautomation/spreadsheet/required/includes/c_upd_formatmenu3.inc
index 6b305f53a0a3..0dd9d3200937 100644
--- a/testautomation/spreadsheet/required/includes/c_upd_formatmenu3.inc
+++ b/testautomation/spreadsheet/required/includes/c_upd_formatmenu3.inc
@@ -29,14 +29,6 @@
'*
'* short description : Resource Test - Format Menu Part III
'*
-'************************************************************************
-'*
-' #1 tFormatGraphicPositionAndSize
-' #1 tFormatGraphicLine
-' #1 tFormatGraphicArea
-' #1 tFormatGraphicText
-' #1 tFormatGraphicPoints
-'*
'\***********************************************************************
sub c_upd_formatmenu3
@@ -129,6 +121,7 @@ testcase tFormatGraphicPositionAndSize
'/// Close document
printlog " Close document"
call hCloseDocument
+ hFileDelete( gLastWorkFile )
endcase
@@ -369,6 +362,7 @@ testcase tFormatGraphicLine
'/// Close document
printlog " Close document"
Call hCloseDocument
+ hFileDelete( gLastWorkFile )
endcase
@@ -911,6 +905,7 @@ testcase tFormatGraphicArea
'/// Close document
printlog " Close document"
Call hCloseDocument
+ hFileDelete( gLastWorkFile )
endcase
@@ -1027,6 +1022,7 @@ testcase tFormatGraphicText
'/// Close document
printlog " Close document"
call hCloseDocument
+ hFileDelete( gLastWorkFile )
endcase
@@ -1047,6 +1043,7 @@ testcase tFormatGraphicPoints
'/// Close document
printlog " Close document"
call hCloseDocument
+ hFileDelete( gLastWorkFile )
endcase
diff --git a/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc
index b13e5f9f43af..74598099b43d 100644
--- a/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc
+++ b/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc
@@ -188,6 +188,7 @@ testcase tToolsSpellcheck
'/// Close starting document
printlog " Close starting document"
call hCloseDocument
+ hFileDelete( gLastWorkFile )
endcase
@@ -314,6 +315,7 @@ testcase tToolsHangulHanjaConversion
'/// Close document
printlog " Close document"
call hCloseDocument
+ hFileDelete( gLastWorkFile )
endcase
@@ -402,6 +404,7 @@ testcase tToolsLanguageThesaurus
Thesaurus.Cancel
printlog " Close document"
call hCloseDocument
+ hFileDelete( gLastWorkFile )
endcase
diff --git a/testautomation/spreadsheet/tools/includes/c_l10n_tools.inc b/testautomation/spreadsheet/tools/includes/c_l10n_tools.inc
index ff4c508d6c4d..1807ab4bf35a 100644
--- a/testautomation/spreadsheet/tools/includes/c_l10n_tools.inc
+++ b/testautomation/spreadsheet/tools/includes/c_l10n_tools.inc
@@ -29,11 +29,6 @@
'*
'* short description : tools for localisation in calc
'*
-'**************************************************************************************************
-'*
-' #1 fFunctionname 'Returns the localized name of a given function in the current UI language
-' #1 fError_l10n 'Returns the localized name of a given errorcode in the current UI language
-'*
'\************************************************************************************************
function fFunctionname ( sFunctionname_en as string ) as string
@@ -42,16 +37,16 @@ function fFunctionname ( sFunctionname_en as string ) as string
'///+ -Input is the english name of the function as string
'///+ -Output is the localized name of the function as string
'///+ -If there is no translation available the fallback is the english name
-
+
dim sloaddocument as string
dim sfunctionstring as string
dim scelladress as string
-
- use "global/tools/includes/required/t_doc2.inc"
- const CFN = "qa:qatesttool:spreadsheet:tools:includes:c_l10n_tools.in:fFunctionname "
-
+
+ use "global/tools/includes/required/t_doc2.inc"
+ const CFN = "spreadsheet:tools:includes:c_l10n_tools.in:fFunctionname "
+
sloaddocument = gTesttoolPath & "spreadsheet\tools\input\Functionnames.ods"
-
+
'///Load document with all functions <i>gTestToolPath</i>/spreadsheet/tools/input/Functionnames.ods
hFileOpenLocally( sloaddocument )
sleep (2)
@@ -61,68 +56,82 @@ function fFunctionname ( sFunctionname_en as string ) as string
'///Search for function by Search and Replace dialog
kontext "DocumentCalc"
EditSearchAndReplace
- sleep (1)
+
kontext "FindAndReplace"
- '///Setting dialog to defaults
- More.Click
- SimilaritySearch.UnCheck
- CurrentSelectionOnly.UnCheck
- Backwards.UnCheck
- SearchForStyles.UnCheck
- SearchIn.Select 1
- '///Setting search parameter
- WholeWordsOnly.Check
- SearchFor.SetText sFunctionname_en
- SearchNow.click
- kontext
- '///If a MsgBox appears the search must have failed => Fallback to english name
- if active.exists then
- if active.getRT = 304 then
- warnlog CFN & "Function not found, falling back to english name"
- fFunctionname = sFunctionname_en
- active.OK
+ printlog( "Reset <Find and Replace> dialog to default settings" )
+ if ( FindAndReplace.exists( 1 ) ) then
+ More.Click
+ SimilaritySearch.UnCheck
+ CurrentSelectionOnly.UnCheck
+ Backwards.UnCheck
+ SearchForStyles.UnCheck
+ SearchIn.Select 1
+ '///Setting search parameter
+ WholeWordsOnly.Check
+ SearchFor.SetText sFunctionname_en
+ SearchNow.click
+ kontext
+ '///If a MsgBox appears the search must have failed => Fallback to english name
+ if active.exists then
+ if active.getRT = 304 then
+ warnlog CFN & "Function not found, falling back to english name"
+ fFunctionname = sFunctionname_en
+ active.OK
+ else
+ '///Throw a warning if a dialog of unexpected resource type appears
+ warnlog CFN & "Unknown message box! " & active.GetText
+ active.Default
+ fFunctionname = sFunctionname_en
+ end if
+
+ kontext "FindAndReplace"
+ printlog( "Reset dialog to default settings" )
+ if ( FindAndReplace.exists( 1 ) ) then
+ WholeWordsOnly.UnCheck
+ hCloseDialog( FindAndReplace, "close" )
+ else
+ warnlog( CFN & "<FindAndReplace> not open" )
+ endif
+ call hCloseDocument
+ exit function
+ end if
+
+ kontext "FindAndReplace"
+ printlog( "Reset <Find and Replace> dialog to default settings" )
+ if ( FindAndReplace.exists( 1 ) ) then
+ WholeWordsOnly.UnCheck
+ hCloseDialog( FindAndReplace, "close" )
else
- '///Throw a warning if a dialog of unexpected resource type appears
- warnlog CFN & "Unknown message box! " & active.GetText
- active.Default
- fFunctionname = sFunctionname_en
- end if
- kontext "FindAndReplace"
- sleep (1)
- '///Reset dialog to defaultsetting
- WholeWordsOnly.UnCheck
- FindAndReplace.Close
- call hCloseDocument
- exit function
- end if
- kontext "FindAndReplace"
- sleep (1)
- '///Reset dialog to defaultsettings
- WholeWordsOnly.UnCheck
- FindAndReplace.Close
- Kontext "RechenleisteCalc"
- scelladress = Bereich.GetSelText
- if fCalcGetCellValue (scelladress) = sFunctionname_en then
- '///Get localised string for function by extracting functionname out of next cell
- call fCalcSelectRange ( "B" & mid(scelladress,2) )
- kontext ( "RechenleisteCalc" )
- EingabeZeileCalc.TypeKeys ("<f2><mod1 a>")
- editcopy
- sfunctionstring = GetClipboardText ()
- kontext "DocumentCalc"
- DocumentCalc.TypeKeys ("<ESCAPE>",2)
- ' DEBUG: printlog sfunctionstring
- ' DEBUG: printlog len(sfunctionstring)
- ' DEBUG: printlog instr(sfunctionstring,"(")
- fFunctionname = mid(sfunctionstring,2,(instr(sfunctionstring,"(")-2)
- printlog " The name of the function in this locale (" & iSprache & ") is " & fFunctionname
+ warnlog( CFN & "<FindAndReplace> not open" )
+ endif
+
+ Kontext "RechenleisteCalc"
+ scelladress = Bereich.GetSelText
+ if fCalcGetCellValue (scelladress) = sFunctionname_en then
+ '///Get localised string for function by extracting functionname out of next cell
+ call fCalcSelectRange ( "B" & mid(scelladress,2) )
+ kontext ( "RechenleisteCalc" )
+ EingabeZeileCalc.TypeKeys ("<f2><mod1 a>")
+ editcopy
+ sfunctionstring = GetClipboardText ()
+ kontext "DocumentCalc"
+ DocumentCalc.TypeKeys ("<ESCAPE>",2)
+ ' DEBUG: printlog sfunctionstring
+ ' DEBUG: printlog len(sfunctionstring)
+ ' DEBUG: printlog instr(sfunctionstring,"(")
+ fFunctionname = mid(sfunctionstring,2,(instr(sfunctionstring,"(")-2)
+ printlog " The name of the function in this locale (" & iSprache & ") is " & fFunctionname
+ else
+ warnlog CFN & "Function not found, falling back to english version"
+ fFunctionname = sFunctionname_en
+ end if
else
- warnlog CFN & "Function not found, falling back to english version"
- fFunctionname = sFunctionname_en
- end if
-
+ warnlog( CFN & "Unable to open <FindAndReplace> dialog" )
+ endif
+
call hCloseDocument
-
+ hFileDelete( gLastWorkFile )
+
end function
'
@@ -135,16 +144,16 @@ function fError_l10n ( sError_en as string ) as string
'///+ -Input is the english name of the error as string
'///+ -Output is the localized name of the error as string
'///+ -If there is no translation available the fallback is the english name
-
+
dim sloaddocument as string
dim sfunctionstring as string
dim scelladress as string
-
- use "global/tools/includes/required/t_doc2.inc"
+
+ use "global/tools/includes/required/t_doc2.inc"
const CFN = "qa:qatesttool:spreadsheet:tools:includes:c_l10n_tools.in:fError_l10n "
-
+
sloaddocument = gTesttoolPath & "spreadsheet\tools\input\Errorcodes.ods"
-
+
'///Load document with all errorcodes <i>gTestToolPath</i>/spreadsheet/tools/input/Errorcodes.ods
hFileOpenLocally( sloaddocument )
@@ -155,7 +164,7 @@ function fError_l10n ( sError_en as string ) as string
EditSearchAndReplace
sleep (1)
kontext "FindAndReplace"
- '///Setting dialog to defaults
+ '///Setting dialog to defaults
More.Click
SimilaritySearch.UnCheck
CurrentSelectionOnly.UnCheck
@@ -175,27 +184,37 @@ function fError_l10n ( sError_en as string ) as string
active.OK
else
'///Throw a warning if a dialog of unexpected resource type appears
- warnlog CFN & "Unknown message box! " & active.GetText
- active.Default
- fError_l10n = sError_en
- end if
- kontext "FindAndReplace"
- sleep (1)
- '///Reset dialog to defaultsetting
- WholeWordsOnly.UnCheck
- FindAndReplace.Close
- call hCloseDocument
- exit function
- end if
+ warnlog CFN & "Unknown message box! " & active.GetText
+ active.Default
+ fError_l10n = sError_en
+ end if
+
+ kontext "FindAndReplace"
+ '///Reset dialog to defaultsetting
+ if ( FindAndReplace.exists( 1 ) ) then
+ WholeWordsOnly.UnCheck
+ hCloseDialog( FindAndReplace, "close" )
+ else
+ warnlog( CFN & "Failed to open <FindAndReplace>" )
+ endif
+
+ call hCloseDocument
+ exit function
+ end if
+
kontext "FindAndReplace"
- sleep (1)
'///Reset dialog to defaultsetting
- WholeWordsOnly.UnCheck
- FindAndReplace.Close
+ if ( FindAndReplace.exists( 1 ) ) then
+ WholeWordsOnly.UnCheck
+ hCloseDialog( FindAndReplace, "close" )
+ else
+ warnlog( CFN & "Failed to open <FindAndReplace>" )
+ endif
+
Kontext "RechenleisteCalc"
- scelladress = Bereich.GetSelText
+ scelladress = Bereich.GetSelText
if fCalcGetCellValue (scelladress) = sError_en then
- '///Get localised string for ERR by extracting errorcode out of next cell
+ '///Get localised string for ERR by extracting errorcode out of next cell
call fCalcSelectRange ( "B" & mid(scelladress,2) )
kontext "DocumentCalc"
editcopy
@@ -206,7 +225,8 @@ function fError_l10n ( sError_en as string ) as string
warnlog CFN & "Errorcode not found, falling back to english version"
fError_l10n = sError_en
end if
-
+
call hCloseDocument
-
+ hFileDelete( gLastWorkFile )
+
end function
diff --git a/testautomation/writer/required/includes/w_001b_.inc b/testautomation/writer/required/includes/w_001b_.inc
index a48023ea73d0..297d04b579bb 100644
--- a/testautomation/writer/required/includes/w_001b_.inc
+++ b/testautomation/writer/required/includes/w_001b_.inc
@@ -468,7 +468,7 @@ testcase tMasterDocFileSaveWithPassword
Sleep 1
FileClose
PrintLog "File / Close and open your document again"
- hFileOpenLocally( Datei$)
+ hFileOpen( Datei$)
Sleep 1
Kontext "PasswordFileOpen"
PrintLog "Now the passwort dialog should come up"
generated by cgit (git 2.34.1) at 2024-08-07 20:53:37 +0000