diff options
Diffstat (limited to 'testautomation/graphics/optional/includes')
78 files changed, 2589 insertions, 2611 deletions
diff --git a/testautomation/graphics/optional/includes/draw/d_002_.inc b/testautomation/graphics/optional/includes/draw/d_002_.inc index d3d0ee81a9c3..9b2f267a0729 100644 --- a/testautomation/graphics/optional/includes/draw/d_002_.inc +++ b/testautomation/graphics/optional/includes/draw/d_002_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/draw/d_003_.inc b/testautomation/graphics/optional/includes/draw/d_003_.inc index 3a7c7da12c38..744461061559 100644 --- a/testautomation/graphics/optional/includes/draw/d_003_.inc +++ b/testautomation/graphics/optional/includes/draw/d_003_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/draw/d_005_.inc b/testautomation/graphics/optional/includes/draw/d_005_.inc index 046e0bd76a30..6c3e7b2484df 100644 --- a/testautomation/graphics/optional/includes/draw/d_005_.inc +++ b/testautomation/graphics/optional/includes/draw/d_005_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/draw/d_007.inc b/testautomation/graphics/optional/includes/draw/d_007.inc index 6582ff2c34c1..89fef373f161 100644 --- a/testautomation/graphics/optional/includes/draw/d_007.inc +++ b/testautomation/graphics/optional/includes/draw/d_007.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/export_graphic.inc b/testautomation/graphics/optional/includes/global/export_graphic.inc index 7c16129e41ae..fd2cf45f9800 100644 --- a/testautomation/graphics/optional/includes/global/export_graphic.inc +++ b/testautomation/graphics/optional/includes/global/export_graphic.inc @@ -25,108 +25,83 @@ ' '/****************************************************************************** '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* -'* short description : Graphics Export A-tests. (More durable ones) -'* -'******************************************************************************* -'* -' #1 tEPS -' #1 tGIF -' #1 tJPEG -' #1 tPBM -' #1 tPCT -' #1 tPGM -' #1 tPPM -' #1 tRAS -' #1 tTIFF -' #1 tXPM +'* short description : Graphics Export A-tests '* '\****************************************************************************** + testcase tEPS dim x as integer dim i as integer - dim sFilter as string - dim sExt as string - sFilter = "EPS - Encapsulated PostScript (.eps)" - sExt = ".eps" + const sFilter = "EPS - Encapsulated PostScript (.eps)" + const sExt = ".eps" printlog "open the document" - hFileOpen ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString) + hFileOpen( gTesttoolPath + "graphics\required\input\graphicexport." + ExtensionString ) - if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then + if ( hCallExport ( OutputGrafikTBO , sFilter ) ) then Kontext "EPSOptionen" - if EPSOptionen.Exists (2) then + if ( EPSOptionen.Exists( 2 ) ) then printlog "check if all properties have the right count, and depend on each other" ' they do not affect annything, i can check (TBO) ' VorschauTIF.Check ' InterchangeEPSI.Check Level1.Check if Farbe.IsEnabled then warnlog " :-(" - if Graustufen.IsEnabled then warnlog " :-(" - if LZWKodierung.IsEnabled then warnlog " :-(" - if Keine.IsEnabled then warnlog " :-(" - ' if (TextEinstellungen.IsEnabled <> TRUE) then warnlog " :-(" - Level2.Check - if (Farbe.IsEnabled <> TRUE) then warnlog " :-(" - if (Graustufen.IsEnabled <> TRUE) then warnlog " :-(" - if (LZWKodierung.IsEnabled <> TRUE) then warnlog " :-(" - if (Keine.IsEnabled <> TRUE) then warnlog " :-(" - ' if (TextEinstellungen.IsEnabled <> TRUE) then warnlog " :-(" - printlog "'Color Resolution' listbox contains eight items" - ' x = TextEinstellungen.GetItemCount - ' if x <> 2 then warnlog "'TextEinstellungen' Count is wrong; should:2, is:" + x - ' for i = 1 to x - ' TextEinstellungen.Select i - ' sleep 1 - ' Printlog " - " + i + ": '" +TextEinstellungen.GetSelText + "'" - ' next i - printlog "leave dialog with cancel -> there has to be no file created!" - EPSOptionen.Cancel - sleep 5 - if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed - Printlog "Ok :-)" - else - warnlog "Dialog was canceled, but file got saved, too :-( - i35177" - endif - else - Warnlog "No '" + sFilter + "'-Option-Dialog!" - i=5 - end if - sleep 2 - Kontext "Active" - if Active.Exists(2) then - Warnlog "'" + sFilter + "' has a problem" - Active.OK - end if - end if - printlog " now save it realy and load the file afterwards" - if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then - Kontext "EPSOptionen" - if EPSOptionen.Exists (2) then - printlog "TextEinstellungen.select 2" - EPSOptionen.OK - sleep 5 - endif - if ( dir(OutputGrafikTBO+sExt) <> "") then - Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'" - else - warnlog "File didn't get saved :-(" - endif - hCloseDocument () - sleep 5 - hNewDocument() - sleep 5 - if ( lcase( gPlatform ) <> "osx" ) then - Call hGrafikEinfuegen ( OutputGrafikTBO+sExt ) - else - qaErrorLog "#i100253# crash on MacOS X 10.4" + if Graustufen.IsEnabled then warnlog " :-(" + if LZWKodierung.IsEnabled then warnlog " :-(" + if Keine.IsEnabled then warnlog " :-(" + ' if (TextEinstellungen.IsEnabled <> TRUE) then warnlog " :-(" + Level2.Check + if (Farbe.IsEnabled <> TRUE) then warnlog " :-(" + if (Graustufen.IsEnabled <> TRUE) then warnlog " :-(" + if (LZWKodierung.IsEnabled <> TRUE) then warnlog " :-(" + if (Keine.IsEnabled <> TRUE) then warnlog " :-(" + ' if (TextEinstellungen.IsEnabled <> TRUE) then warnlog " :-(" + printlog "'Color Resolution' listbox contains eight items" + ' x = TextEinstellungen.GetItemCount + ' if x <> 2 then warnlog "'TextEinstellungen' Count is wrong; should:2, is:" + x + ' for i = 1 to x + ' TextEinstellungen.Select i + ' sleep 1 + ' Printlog " - " + i + ": '" +TextEinstellungen.GetSelText + "'" + ' next i + printlog "leave dialog with cancel -> there has to be no file created!" + hCloseDialog( EPSOptionen, "cancel" ) + + if ( FileExists( OutputGrafikTBO+sExt ) ) then ' inspired by bug #99932 Graphic is exported though cancel is pressed + warnlog "Dialog was canceled, but file got saved, too :-( - i35177" + endif + else + warnlog( "No export options dialog was displayed" ) + end if + + Kontext "Active" + if Active.Exists(2) then + Warnlog "'" + sFilter + "' has a problem" + Active.OK + end if + end if + + printlog( "Save the file" ) + if ( hCallExport( OutputGrafikTBO, sFilter ) ) then + + Kontext "EPSOptionen" + if ( EPSOptionen.Exists( 2 ) ) then + printlog "TextEinstellungen.select 2" + hCloseDialog( EPSOptionen, "ok" ) + else + warnlog( "No export options dialog was displayed" ) + endif + + printlog( "Close file and re-insert graphics into new document" ) + hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file endif - endif - call hCloseDocument + call hCloseDocument endcase 'tEPS '------------------------------------------------------------------------- @@ -135,8 +110,6 @@ testcase tPCT dim x as integer dim i as integer dim iWaitIndex as integer - dim sFilter as string - dim sExt as string dim bTemp as boolean dim sX as string dim sY as string @@ -144,224 +117,205 @@ testcase tPCT dim sX2 as string dim sY2 as string dim sDocument as string + dim sOutputFile as string + + const FILE_WRITE_TIMEOUT = 200 ' seconds - sFilter = "PCT - Mac Pict (.pct;.pict)" - sExt = ".pct" + const sFilter = "PCT - Mac Pict (.pct;.pict)" + const sExt = ".pct" printlog "open the document" - sDocument = ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString) - hFileOpen sDocument + sDocument = convertpath( gTesttoolPath + "graphics\required\input\graphicexport." + ExtensionString ) + hFileOpen( sDocument ) + + if ( hCallExport( OutputGrafikTBO , sFilter ) ) then - if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then Kontext "PICTOptionen" - if PICTOptionen.Exists (2) then + printlog( "Export options dialog" ) + if ( PICTOptionen.Exists( 2 ) ) then + printlog "check if all properties have the right count, and depend on each other" Original.Check if Breite.IsEnabled then warnlog " :-(" - if Hoehe.IsEnabled then warnlog " :-(" - Groesse.Check - Breite.More - Hoehe.Less - printlog "leave dialog with cancel -> there has to be no file created!" - PICTOptionen.Cancel - sleep 5 - if ( dir(OutputGrafikTBO+sExt) = "") then - Printlog "Ok :-)" - else - warnlog "Dialog was canceled, but file got saved, too :-( - i35177" - endif - else - Warnlog "No '" + sFilter + "' -Dialog!" - i=5 - end if - sleep 2 - Kontext "Active" - if Active.Exists(2) then - Warnlog " '" + sFilter + "' has a problem" - Active.OK - end if - end if - printlog " now save it realy and load the file afterwards" - if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then - Kontext "PICTOptionen" - if PICTOptionen.Exists (2) then - Groesse.Check - Breite.Less - Hoehe.More - PICTOptionen.OK - iWaitIndex = 0 - do while PICTOptionen.Exists AND iWaitIndex < 30 - sleep (1) - iWaitIndex = iWaitIndex + 1 - loop - endif - i=0 - while ((NOT fileExists(OutputGrafikTBO+sExt)) AND (i<36)) - inc(i) - sleep(5) - wend - if ( dir(OutputGrafikTBO+sExt) <> "") then - Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'" - else - warnlog "File didn't get saved :-(" - endif - hCloseDocument () - sleep 5 - hNewDocument() - sleep 5 - Call hGrafikEinfuegen ( OutputGrafikTBO+sExt ) - endif - hCloseDocument () - printlog " now save a SELECTION in ORIGINAL SIZE and load the file afterwards" - hFileOpen (sDocument) - sleep (10) - - printlog "check if the document is writable" - 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 - endif + if Hoehe.IsEnabled then warnlog " :-(" + Groesse.Check + Breite.More + Hoehe.Less + + printlog "leave dialog with cancel -> there has to be no file created!" + hCloseDialog( PICTOptionen, "cancel" ) + + if ( FileExists( OutputGrafikTBO + sExt ) ) then + warnlog( "#i35177# - dialog <PictOptions> canceled, still the file was saved" ) endif + else + warnlog( "No export options dialog was displayed" ) + end if + + Kontext "Active" + if Active.Exists(2) then + Warnlog " '" + sFilter + "' has a problem" + Active.OK + end if - hTypeKeys ("<escape><tab>") - fGetSizeXY sx1, sY, TRUE - if hCallExport (OutputGrafikTBO + "1" , sFilter, TRUE ) = TRUE then - Kontext "PICTOptionen" - if PICTOptionen.Exists (2) then - Original.Check - PICTOptionen.OK - iWaitIndex = 0 - do while PICTOptionen.Exists AND iWaitIndex < 30 - sleep (1) - iWaitIndex = iWaitIndex + 1 - loop - endif - i=0 - while ((NOT fileExists(OutputGrafikTBO+ "1"+sExt)) AND (i<36)) - inc(i) - sleep(5) - wend - if ( dir(OutputGrafikTBO + "1"+sExt) <> "") then - Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "1"+sExt + "'" + end if + + printlog " now save it realy and load the file afterwards" + if ( hCallExport( OutputGrafikTBO, sFilter ) ) then + + Kontext "PICTOptionen" + printlog( "Export options dialog" ) + if ( PICTOptionen.Exists( 2 ) ) then + Groesse.Check + Breite.Less + Hoehe.More + hCloseDialog( PICTOptionen, "ok" ) + else + warnlog( "No export options dialog was displayed" ) + endif + + sOutputFile = OutputGrafikTBO+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 + + endif + + hFileReOpen( sDocument ) + + printlog "check if the document is writable" + if ( not fIsDocumentWritable ) then + printlog( "Document is write protected, changing state" ) + if ( not fMakeDocumentWritable ) then + warnlog "The document can't be make writeable. Test stopped." + goto endsub + endif + endif + + hTypeKeys ("<escape><tab>") + fGetSizeXY sx1, sY, TRUE + + if ( hCallExport( OutputGrafikTBO + "1", sFilter, TRUE ) ) then + + Kontext "PICTOptionen" + printlog( "Export options dialog" ) + if ( PICTOptionen.Exists( 2 ) ) then + Original.Check + hCloseDialog( PICTOptionen, "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( "" ) + hRechteckErstellen ( 10, 10, 30, 40 ) + + if ( hCallExport( OutputGrafikTBO + "2" , sFilter, TRUE ) ) then + + Kontext "PICTOptionen" + printlog( "Export options dialog" ) + if ( PICTOptionen.Exists( 2 ) ) then + Groesse.Check + Breite.SetText "9" + Hoehe.SetText "9" + Groesse.Check + + printlog "Check 'Size' one more time to make the change go through" + sx1 = Breite.GetText + sY = Hoehe.GetText + hCloseDialog( PICTOptionen, "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 + + if ( hCallExport( OutputGrafikTBO + "3", sFilter, TRUE ) ) then + + Kontext "PICTOptionen" + printlog( "Export options dialog" ) + if ( PICTOptionen.Exists( 2 ) ) then + Groesse.Check + sX2 = Breite.GetText + if (LiberalMeasurement(sx1, sX2)) <> TRUE then + if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then + Printlog "Width was ok. Expected: " + sx1 + "' was: '" + sX2 + "'" else - warnlog "File didn't get saved :-(" - endif - hCloseDocument () - sleep 5 - hNewDocument() - sleep 5 - Call hGrafikEinfuegen ( OutputGrafikTBO + "1"+sExt ) - bTemp = FALSE - fGetSizeXY sx1, sY, bTemp - if (bTemp = FALSE) then - warnlog "Selected original size NOT OK :-(" + warnLog "Width is different expected: '" + sx1 + "' is: '" + sX2 + "'" endif endif - hCloseDocument () - printlog " now CREATE a rectangle, select it, save it in SIZE and load the file afterwards" - hNewDocument() - hRechteckErstellen ( 10, 10, 30, 40 ) - if hCallExport (OutputGrafikTBO + "2" , sFilter, TRUE ) = TRUE then - Kontext "PICTOptionen" - if PICTOptionen.Exists (2) then - Groesse.Check - Breite.SetText "9" - Hoehe.SetText "9" - Groesse.Check - printlog "Check 'Size' one more time to make the change go through" - sx1 = Breite.GetText - sY = Hoehe.GetText - PICTOptionen.OK - iWaitIndex = 0 - do while PICTOptionen.Exists AND iWaitIndex < 30 - sleep (1) - iWaitIndex = iWaitIndex + 1 - loop - endif - i=0 - while ((NOT fileExists(OutputGrafikTBO+ "2"+sExt)) AND (i<36)) - inc(i) - sleep(5) - wend - if ( dir(OutputGrafikTBO + "2"+sExt) <> "") then - Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "2"+sExt + "'" + sY2 = Hoehe.GetText + if (LiberalMeasurement(sY, sY2)) <> TRUE then + if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then + Printlog "Height was ok. Expected: " + sY + "' was: '" + sY2 + "'" else - warnlog "File didn't get saved :-(" - endif - hCloseDocument () - sleep 5 - hFileOpen (OutputGrafikTBO + "2"+sExt) - kontext "DocumentDraw" - DocumentDraw.TypeKeys ("<escape><tab>") - ContextOriginalSize - bTemp = FALSE - fGetSizeXY sx1, sY, bTemp - if (bTemp = FALSE) then - warnlog "Selected original size NOT OK :-(" - endif - endif - if hCallExport (OutputGrafikTBO + "3" , sFilter, TRUE ) = TRUE then - Kontext "PICTOptionen" - if PICTOptionen.Exists (2) then - Groesse.Check - sX2 = Breite.GetText - if (LiberalMeasurement(sx1, sX2)) <> TRUE then - if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then - Printlog "Width was ok. Expected: " + sx1 + "' was: '" + sX2 + "'" - else - warnLog "Width is different expected: '" + sx1 + "' is: '" + sX2 + "'" - endif - endif - sY2 = Hoehe.GetText - if (LiberalMeasurement(sY, sY2)) <> TRUE then - if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then - Printlog "Height was ok. Expected: " + sY + "' was: '" + sY2 + "'" - else - warnLog "Height is different expected: '" + sY + "' is: '" + sY2 + "'" - endif - endif - PICTOptionen.Cancel - sleep 5 + warnLog "Height is different expected: '" + sY + "' is: '" + sY2 + "'" endif endif + hCloseDialog( PICTOptionen, "cancel" ) + else + warnlog( "No export options dialog was displayed" ) + endif + endif - call hCloseDocument + call hCloseDocument endcase 'tPCT '------------------------------------------------------------------------------- testcase tPBM - dim x as integer - dim i as integer - dim sFilter as string - dim sExt as string - - sFilter = "PBM - Portable Bitmap (.pbm)" - sExt = ".pbm" + const sFilter = "PBM - Portable Bitmap (.pbm)" + const sExt = ".pbm" printlog "Open the document" - hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString )) + hFileOpen( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ) printlog "Save it" - if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then + if ( hCallExport (OutputGrafikTBO , sFilter ) ) then + Kontext "PBMOptionen" - if PBMOptionen.Exists (2) then + if ( PBMOptionen.Exists( 2 ) ) then Ascii.Check - PBMOptionen.OK - sleep 5 - endif - if ( dir(OutputGrafikTBO+sExt) <> "") then - Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'" + hCloseDialog( PBMOptionen, "ok" ) else - warnlog "File didn't get saved :-(" + warnlog( "No export options dialog was displayed" ) endif - hCloseDocument () - sleep 5 - hNewDocument() - sleep 5 - Call hGrafikEinfuegen ( OutputGrafikTBO+sExt ) + + printlog( "Close file and re-insert graphics into new document" ) + hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file + endif call hCloseDocument @@ -370,35 +324,26 @@ endcase 'tPBM '------------------------------------------------------------------------------- testcase tPGM - dim x as integer - dim i as integer - dim sFilter as string - dim sExt as string - - sFilter = "PGM - Portable Graymap (.pgm)" - sExt = ".pgm" + const sFilter = "PGM - Portable Graymap (.pgm)" + const sExt = ".pgm" printlog "Open the document" - hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString )) + hFileOpen( gTesttoolPath + "graphics\required\input\graphicexport." + ExtensionString ) printlog "Save it" - if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then + if ( hCallExport (OutputGrafikTBO , sFilter ) ) then + Kontext "PGMOptionen" - if PGMOptionen.Exists (2) then + if ( PGMOptionen.Exists( 2 ) ) then Ascii.Check - PGMOptionen.OK - sleep 5 - endif - if ( dir(OutputGrafikTBO+sExt) <> "") then - Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'" + hCloseDialog( PGMOptionen, "ok" ) else - warnlog "File didn't get saved :-(" + warnlog( "No export options dialog was displayed" ) endif - hCloseDocument () - sleep 5 - hNewDocument() - sleep 5 - Call hGrafikEinfuegen ( OutputGrafikTBO+sExt ) + + printlog( "Close file and re-insert graphics into new document" ) + hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file + endif call hCloseDocument @@ -407,35 +352,26 @@ endcase 'tPGM '------------------------------------------------------------------------------- testcase tPPM - dim x as integer - dim i as integer - dim sFilter as string - dim sExt as string - - sFilter = "PPM - Portable Pixelmap (.ppm)" - sExt = ".ppm" + const sFilter = "PPM - Portable Pixelmap (.ppm)" + const sExt = ".ppm" printlog "Open the document" - hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString )) + hFileOpen( gTesttoolPath + "graphics\required\input\graphicexport." + ExtensionString ) printlog "Save it" - if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then + if ( hCallExport (OutputGrafikTBO , sFilter ) ) then + Kontext "PPMOptionen" - if PPMOptionen.Exists (2) then + if ( PPMOptionen.Exists( 2 ) ) then Ascii.Check - PPMOptionen.OK - sleep 5 - endif - if ( dir(OutputGrafikTBO+sExt) <> "") then - Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'" + hCloseDialog( PPMOptionen, "ok" ) else - warnlog "File didn't get saved :-(" + warnlog( "No export options dialog was displayed" ) endif - hCloseDocument () - sleep 5 - hNewDocument() - sleep 5 - Call hGrafikEinfuegen ( OutputGrafikTBO+sExt ) + + printlog( "Close file and re-insert graphics into new document" ) + hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file + endif call hCloseDocument @@ -444,29 +380,18 @@ endcase 'tPPM '------------------------------------------------------------------------------ testcase tRAS - dim x as integer - dim i as integer - dim sFilter as string - dim sExt as string - - sFilter = "RAS - Sun Raster Image (.ras)" - sExt = ".ras" + const sFilter = "RAS - Sun Raster Image (.ras)" + const sExt = ".ras" printlog "Open the document" - hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString )) + hFileOpen( gTesttoolPath + "graphics\required\input\graphicexport." + ExtensionString ) printlog "Save it" - if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then - if ( dir(OutputGrafikTBO+sExt) <> "") then - Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'" - hCloseDocument () - sleep 5 - hNewDocument() - sleep 5 - Call hGrafikEinfuegen ( OutputGrafikTBO+sExt ) - else - warnlog "File didn't get saved :-(" - endif + if ( hCallExport( OutputGrafikTBO, sFilter ) ) then + printlog( "Close file and re-insert graphics into new document" ) + hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file + else + warnlog( "No export options dialog was displayed" ) endif call hCloseDocument @@ -477,27 +402,19 @@ testcase tTIFF dim x as integer dim i as integer - dim sFilter as string - dim sExt as string - sFilter = "TIFF - Tagged Image File Format (.tif;.tiff)" - sExt = ".tif" + const sFilter = "TIFF - Tagged Image File Format (.tif;.tiff)" + const sExt = ".tif" printlog "Open the document" hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString )) printlog "Save it" - if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then - if ( dir(OutputGrafikTBO+sExt) <> "") then - Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'" - hCloseDocument () - sleep 5 - hNewDocument() - sleep 5 - Call hGrafikEinfuegen ( OutputGrafikTBO+sExt ) - else - warnlog "File didn't get saved :-(" - endif + if ( hCallExport (OutputGrafikTBO , sFilter ) ) then + printlog( "Close file and re-insert graphics into new document" ) + hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file + else + warnlog( "No export options dialog was displayed" ) endif call hCloseDocument @@ -506,29 +423,18 @@ endcase 'tTIFF '------------------------------------------------------------------------------ testcase tXPM - dim x as integer - dim i as integer - dim sFilter as string - dim sExt as string - - sFilter = "XPM - X PixMap (.xpm)" - sExt = ".xpm" + const sFilter = "XPM - X PixMap (.xpm)" + const sExt = ".xpm" printlog "Open the document" - hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString )) + hFileOpen( gTesttoolPath + "graphics\required\input\graphicexport." + ExtensionString ) printlog "save it" if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then - if ( dir(OutputGrafikTBO+sExt) <> "") then - Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'" - hCloseDocument () - sleep 5 - hNewDocument() - sleep 5 - Call hGrafikEinfuegen ( OutputGrafikTBO+sExt ) - else - warnlog "File didn't get saved :-(" - endif + printlog( "Close file and re-insert graphics into new document" ) + hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file + else + warnlog( "No export options dialog was displayed" ) endif call hCloseDocument @@ -537,36 +443,27 @@ endcase 'tXPM '------------------------------------------------------------------------------- testcase tGIF - dim x as integer - dim i as integer - dim sFilter as string - dim sExt as string - - sFilter = "GIF - Graphics Interchange Format (.gif)" - sExt = ".gif" + const sFilter = "GIF - Graphics Interchange Format (.gif)" + const sExt = ".gif" printlog "open the document" - hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString) + hFileOpen( gTesttoolPath + "graphics\required\input\graphicexport." + ExtensionString ) printlog "save it" - if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then + if ( hCallExport( OutputGrafikTBO, sFilter ) ) then + Kontext "GIFOptionen" if GIFOptionen.Exists (2) then Interlace.Uncheck TransparentSpeichern.UnCheck - GIFOptionen.OK - sleep 5 - endif - if ( dir(OutputGrafikTBO+sExt) <> "") then - Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'" + hCloseDialog( GIFOptionen, "ok" ) else - warnlog "File didn't get saved :-(" + warnlog( "No export options dialog was displayed" ) endif - hCloseDocument () - sleep 5 - hNewDocument() - sleep 5 - Call hGrafikEinfuegen ( OutputGrafikTBO+sExt ) + + printlog( "Close file and re-insert graphics into new document" ) + hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file + endif call hCloseDocument @@ -575,39 +472,92 @@ endcase 'tGIF '------------------------------------------------------------------------------- testcase tJPEG - dim x as integer - dim i as integer - dim sFilter as string - dim sExt as string - - sFilter = "JPEG - Joint Photographic Experts Group (.jpg;.jpeg;.jfif;.jif;.jpe)" - sExt = ".jpg" + const sFilter = "JPEG - Joint Photographic Experts Group (.jpg;.jpeg;.jfif;.jif;.jpe)" + const sExt = ".jpg" printlog "Open the document" - hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString) + hFileOpen( gTesttoolPath + "graphics\required\input\graphicexport." + ExtensionString ) printlog " save it " - if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then + if ( hCallExport( OutputGrafikTBO , sFilter ) ) then + Kontext "JpegOptionen" - if JpegOptionen.Exists (2) then + if ( JpegOptionen.Exists( 2 ) ) then Echtfarben.Check Qualitaet.ToMin - JpegOptionen.OK - sleep 5 - endif - if ( dir(OutputGrafikTBO+sExt) <> "") then - Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'" + hCloseDialog( JpegOptionen, "ok" ) else - warnlog "File didn't get saved :-(" + warnlog( "No export options dialog was displayed" ) endif - hCloseDocument () - sleep 5 - hNewDocument() - sleep 5 - Call hGrafikEinfuegen ( OutputGrafikTBO+sExt ) + + printlog( "Close file and re-insert graphics into new document" ) + hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file + endif call hCloseDocument endcase 'tJPEG -'------------------------------------------------------------------------- + +'******************************************************************************* + +function hInsertGraphicsToNewFile( sOutputFile as string ) + + if ( FileExists( sOutputFile ) ) then + hFileReOpen( "" ) + Call hGrafikEinfuegen( sOutputFile ) + else + warnlog( "File not saved: " & sOutputFile ) + endif + +end function + +'******************************************************************************* + +function hFileReOpen( cFile as string ) as boolean + + dim iDocumentCount as integer : iDocumentCount = getDocumentCount + hFileReopen() = false + + hCloseDocument() + + if ( cFile = "" ) then + hNewDocument() + else + if ( FileExists( cFile ) ) then + hFileOpen( cFile ) + else + warnlog( "hFileReOpen(): File does not exist: " & cFile ) + endif + endif + + if ( getDocumentCount = iDocumentCount ) then hFileReOpen() = true + +end function + +'******************************************************************************* + +function hWaitForOutputFile( sOutputFile as string ) as boolean + + const FILE_WRITE_TIMEOUT = 30 + dim iWait as integer : iWait = 0 + + for iWait = 1 to FILE_WRITE_TIMEOUT + + ' File found + if ( FileExists( sOutputFile ) ) then + hWaitForOutputFile() = true + exit function + endif + + ' Timeout + if ( iWait = FILE_WRITE_TIMEOUT ) then + hWaitForOutputFile() = false + exit function + endif + + wait( 1000 ) + + next iWait + +end function diff --git a/testautomation/graphics/optional/includes/global/export_graphic_2.inc b/testautomation/graphics/optional/includes/global/export_graphic_2.inc index 67c456201b45..5e0a2f3ec811 100644 --- a/testautomation/graphics/optional/includes/global/export_graphic_2.inc +++ b/testautomation/graphics/optional/includes/global/export_graphic_2.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Graphics Export B-tests. (the usual suspects) '* @@ -1430,3 +1430,91 @@ testcase tWMF endcase 'tWMF '------------------------------------------------------------------------- + +function fGetFileText (sFilename as string, iCount as long) as string +'/// This function is for getting the first or last n characters of a file +'///+<u>Input</u>:<ul><li>filename</li><li>number</li></ul>If the number greater 0 then get n characters from start. +'///+A number smaller 0 get from end of file. +'///+<u>Output</u>:<ul><li>string with <b><i>n</i></b> characters</li></ul> + + dim iFile as integer ' filehandle + dim iTem as integer ' get 2 bytes of the file + dim iTemByte(2) as integer ' move 1 byte from iTem in each item + dim sTemp as string ' string of file + dim iSize as long ' size in bytes of file + dim i as long ' runner :-) + + iFile = FreeFile +' Printlog "FreeFile: " + iFile + if (dir (sFilename) <> "") then +' Printlog "FileLen: " + FileLen(sFile) + Open sFilename For binary access read shared As #iFile +' Printlog "Loc: " + Loc(#iFile) ' LONG! where am i in the file? + + iSize = Lof(#iFile) ' get size in bytes of file + if (iSize > 65530) then '65536 = 64kB + 'Warnlog "fGetFileText: file '" + sFilename + "' might get problems on reading it? size is > 65530 Byte: '" + iSize + "'" + else +' printlog "iSize: " + iSize + endif + + sTemp = "" + if (iCount >= 0) then ' get bytes from file start + get iFile,1,sTemp ' get max 64kByte; but not the 1st 2 bytes :-( + get iFile,1,iTem ' get the first 2 bytes of the file + iTemByte(2) = (iTem AND &H0000FF00) \ &H100 ' and seperate the bytes + iTemByte(1) = (iTem AND &H000000FF) + sTemp = chr(iTemByte(1)) + chr(iTemByte(2)) + sTemp ' put them together + else ' get bytes from file end + if ((iSize+iCount) > 0) then + select case (iSize+iCount) + case 1: get iFile,1,sTemp ' take bytes from the end of the file + get iFile,1,iTem ' get the first 2 bytes of the file + sTemp = chr(iTemByte(2)) + sTemp ' put them together + case else: get iFile,(iSize+iCount)-1,sTemp ' take bytes from the end of the file + end select + else + get iFile,1,sTemp ' take bytes from the end of the file + get iFile,1,iTem ' get the first 2 bytes of the file + iTemByte(2) = (iTem AND &H0000FF00) \ &H100 ' and seperate the bytes + iTemByte(1) = (iTem AND &H000000FF) + sTemp = chr(iTemByte(1)) + chr(iTemByte(2)) + sTemp ' put them together + endif + endif +' printlog "'"+left(sTemp,iSize)+"'" ' gotcha! + + if (iSize-(Abs(iCount)) >= 0) then + fGetFileText = left(sTemp,Abs(iCount)) + else + 'Warnlog "fGetFileText: file '" + sFilename + "' isn't as big as expected; will only return '" + iSize+ "' bytes fom: " + iCount + fGetFileText = left(sTemp,iSize) + endif + + ' debugging routine -------------------------------------- + ' iSize = Lof(#iFile) + ' printlog "iSize: " + iSize + ' sTemp = "" + ' if iSize > 0 then + ' printlog "iSize \ 2: " + (iSize \ 2) + ' for i = 0 to ((iSize \ 2)-1) + ' get iFile,(i*2)+1,iTem + ' Printlog "i: " + i + ": 0x" + hex(iTem) + ' iTemByte(2) = (iTem AND &H0000FF00) \ &H100 + ' iTemByte(1) = (iTem AND &H000000FF) + ' sTemp = sTemp + chr(iTemByte(1)) + chr(iTemByte(2)) + ' next i + ' if (iSize MOD 2) = 1 then + ' get iFile,iSize,iTem + ' Printlog "i: " + iSize + ": 0x" + hex(iTem) + ' iTemByte(1) = (iTem AND &H000000FF) + ' sTemp = sTemp + chr(iTemByte(1)) + ' endif + ' endif + ' printlog "'"+sTemp+"'" + ' debugging routine -------------------------------------- + Close #iFile + else ' does file exist + Warnlog "fGetFileText: file '" + sFilename + "' doesn't exist" + fGetFileText = "" + endif +end function diff --git a/testautomation/graphics/optional/includes/global/g_accessability.inc b/testautomation/graphics/optional/includes/global/g_accessability.inc index 8d59b0c6b387..6fa992308c44 100644 --- a/testautomation/graphics/optional/includes/global/g_accessability.inc +++ b/testautomation/graphics/optional/includes/global/g_accessability.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Accessability '* diff --git a/testautomation/graphics/optional/includes/global/g_area.inc b/testautomation/graphics/optional/includes/global/g_area.inc index caab5801a075..758044290d45 100644 --- a/testautomation/graphics/optional/includes/global/g_area.inc +++ b/testautomation/graphics/optional/includes/global/g_area.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/g_arrangealign.inc b/testautomation/graphics/optional/includes/global/g_arrangealign.inc index f9fab5625905..48c6599efa72 100644 --- a/testautomation/graphics/optional/includes/global/g_arrangealign.inc +++ b/testautomation/graphics/optional/includes/global/g_arrangealign.inc @@ -25,20 +25,11 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* -'************************************************************************************** -' #1 tiDatei_Fuer_Anordnen_Erstellen -' #1 tdContextSendBackward -' #1 tdContextBringForward -' #1 tdContextSendToBack -' #1 tdContextBringToFront -' #1 tdContextReverse -' #1 tdContextInFrontOfObject -' #1 tdContextBehindObject -'\************************************************************************************* +'\****************************************************************************** testcase tiDatei_Fuer_Anordnen_Erstellen dim sTemp as string diff --git a/testautomation/graphics/optional/includes/global/g_autocorrection.inc b/testautomation/graphics/optional/includes/global/g_autocorrection.inc index 7653d391243f..731c9e0ed21f 100644 --- a/testautomation/graphics/optional/includes/global/g_autocorrection.inc +++ b/testautomation/graphics/optional/includes/global/g_autocorrection.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* @@ -147,7 +147,7 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean) sFileName = (ConvertPath ( gTesttoolPath + "graphics\required\input\rightfont." + ExtensionString)) endif - if hFileExists ( sFileName ) = FALSE then + if FileExists ( sFileName ) = FALSE then warnlog "The language-file was not found or accessible! The test ends." goto endsub endif diff --git a/testautomation/graphics/optional/includes/global/g_character.inc b/testautomation/graphics/optional/includes/global/g_character.inc index 31b4f364c50c..a9d578665c5a 100644 --- a/testautomation/graphics/optional/includes/global/g_character.inc +++ b/testautomation/graphics/optional/includes/global/g_character.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/g_clipboard.inc b/testautomation/graphics/optional/includes/global/g_clipboard.inc index 9bc85a4bbad1..4c1900876565 100644 --- a/testautomation/graphics/optional/includes/global/g_clipboard.inc +++ b/testautomation/graphics/optional/includes/global/g_clipboard.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/g_clipexport.inc b/testautomation/graphics/optional/includes/global/g_clipexport.inc index 91357e867937..64385ffd78c3 100644 --- a/testautomation/graphics/optional/includes/global/g_clipexport.inc +++ b/testautomation/graphics/optional/includes/global/g_clipexport.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Tests the clipboard-function with a rectangle '* diff --git a/testautomation/graphics/optional/includes/global/g_clipexport2.inc b/testautomation/graphics/optional/includes/global/g_clipexport2.inc index c8dfe7f52d91..fae2cdcc7820 100644 --- a/testautomation/graphics/optional/includes/global/g_clipexport2.inc +++ b/testautomation/graphics/optional/includes/global/g_clipexport2.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/g_clipexport3.inc b/testautomation/graphics/optional/includes/global/g_clipexport3.inc index c51d92eb3fed..5a6e86ac2a9c 100644 --- a/testautomation/graphics/optional/includes/global/g_clipexport3.inc +++ b/testautomation/graphics/optional/includes/global/g_clipexport3.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Procedures for the Clipboard-Export-Test '* diff --git a/testautomation/graphics/optional/includes/global/g_convertto.inc b/testautomation/graphics/optional/includes/global/g_convertto.inc index 8acac43a45fc..33eb157bc465 100644 --- a/testautomation/graphics/optional/includes/global/g_convertto.inc +++ b/testautomation/graphics/optional/includes/global/g_convertto.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/g_crossfading.inc b/testautomation/graphics/optional/includes/global/g_crossfading.inc index 275f1ee49839..0d7142b9ae46 100644 --- a/testautomation/graphics/optional/includes/global/g_crossfading.inc +++ b/testautomation/graphics/optional/includes/global/g_crossfading.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/g_customshapes.inc b/testautomation/graphics/optional/includes/global/g_customshapes.inc index 850356821d2f..28c2e22ed301 100644 --- a/testautomation/graphics/optional/includes/global/g_customshapes.inc +++ b/testautomation/graphics/optional/includes/global/g_customshapes.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Customshapes-test '* diff --git a/testautomation/graphics/optional/includes/global/g_demoguide.inc b/testautomation/graphics/optional/includes/global/g_demoguide.inc index 8da45a872259..54a3a67c58d0 100644 --- a/testautomation/graphics/optional/includes/global/g_demoguide.inc +++ b/testautomation/graphics/optional/includes/global/g_demoguide.inc @@ -25,7 +25,7 @@ ' '/*********************************************************************** '* -'* owner : wolfram.garten@sun.com +'* owner : wolfram.garten@oracle.com '* '* short description : testcase to check the demo guide '* diff --git a/testautomation/graphics/optional/includes/global/g_dimensions.inc b/testautomation/graphics/optional/includes/global/g_dimensions.inc index 3d48ad7327ab..5980903828e0 100644 --- a/testautomation/graphics/optional/includes/global/g_dimensions.inc +++ b/testautomation/graphics/optional/includes/global/g_dimensions.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/g_edit.inc b/testautomation/graphics/optional/includes/global/g_edit.inc index 6313865b8912..869e6730cf0d 100644 --- a/testautomation/graphics/optional/includes/global/g_edit.inc +++ b/testautomation/graphics/optional/includes/global/g_edit.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/g_export_html.inc b/testautomation/graphics/optional/includes/global/g_export_html.inc index 5f6e9fa6040a..6b91cdef26fd 100644 --- a/testautomation/graphics/optional/includes/global/g_export_html.inc +++ b/testautomation/graphics/optional/includes/global/g_export_html.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* @@ -49,7 +49,7 @@ testcase tHtmlExport hToolsOptions ("STAROFFICE","USERDATA") VorName.SetText "Garfield" ZuName.SetText "Peanuts" - EMail.SetText "recumbent@sun.com" + EMail.SetText "recumbent@oracle.com" Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK @@ -197,8 +197,8 @@ testcase tHtmlExport end if sTemp = EMail.GetText Adresse1=EMail.GetText - if (sTemp <> "recumbent@sun.com") then - warnlog "Value for 'Email' is other than expected, should be 'recumbent@sun.com', is: '"+sTemp+"'" + if (sTemp <> "recumbent@oracle.com") then + warnlog "Value for 'Email' is other than expected, should be 'recumbent@oracle.com', is: '"+sTemp+"'" end if printlog "set text in field 'your homepage' " Homepage.SetText "mahler" diff --git a/testautomation/graphics/optional/includes/global/g_find_replace.inc b/testautomation/graphics/optional/includes/global/g_find_replace.inc index f49de3b03d35..4f6a045578e0 100755..100644 --- a/testautomation/graphics/optional/includes/global/g_find_replace.inc +++ b/testautomation/graphics/optional/includes/global/g_find_replace.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Edit -> Find & Replace '* diff --git a/testautomation/graphics/optional/includes/global/g_format.inc b/testautomation/graphics/optional/includes/global/g_format.inc index 2e2f1b0368ff..8cf37d5432a3 100644 --- a/testautomation/graphics/optional/includes/global/g_format.inc +++ b/testautomation/graphics/optional/includes/global/g_format.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/g_group.inc b/testautomation/graphics/optional/includes/global/g_group.inc index 3023e673a526..a11b809355ce 100644 --- a/testautomation/graphics/optional/includes/global/g_group.inc +++ b/testautomation/graphics/optional/includes/global/g_group.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/g_imagemap.inc b/testautomation/graphics/optional/includes/global/g_imagemap.inc index c8bee2af8537..de53fdb6f647 100644 --- a/testautomation/graphics/optional/includes/global/g_imagemap.inc +++ b/testautomation/graphics/optional/includes/global/g_imagemap.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/g_insert.inc b/testautomation/graphics/optional/includes/global/g_insert.inc index fbc787eac29a..44d9030413ea 100644 --- a/testautomation/graphics/optional/includes/global/g_insert.inc +++ b/testautomation/graphics/optional/includes/global/g_insert.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* @@ -167,7 +167,7 @@ testcase tInsertFields hToolsOptions ("STAROFFICE","USERDATA") VorName.SetText "Garfield" ZuName.SetText "Peanuts" - EMail.SetText "recumbent@sun.com" + EMail.SetText "recumbent@oracle.com" Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK diff --git a/testautomation/graphics/optional/includes/global/g_line.inc b/testautomation/graphics/optional/includes/global/g_line.inc index 55869c258f43..adc573a16e48 100644 --- a/testautomation/graphics/optional/includes/global/g_line.inc +++ b/testautomation/graphics/optional/includes/global/g_line.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/g_load_save.inc b/testautomation/graphics/optional/includes/global/g_load_save.inc index 6622c9c7a452..8d64e158eb2a 100644 --- a/testautomation/graphics/optional/includes/global/g_load_save.inc +++ b/testautomation/graphics/optional/includes/global/g_load_save.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/g_mediaplayer.inc b/testautomation/graphics/optional/includes/global/g_mediaplayer.inc index 01fe8137ef64..5961a2132467 100644 --- a/testautomation/graphics/optional/includes/global/g_mediaplayer.inc +++ b/testautomation/graphics/optional/includes/global/g_mediaplayer.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : g_mediaplayer.inc '* diff --git a/testautomation/graphics/optional/includes/global/g_navigator.inc b/testautomation/graphics/optional/includes/global/g_navigator.inc index 7f4c06d6d979..4b9ef8948ab8 100644 --- a/testautomation/graphics/optional/includes/global/g_navigator.inc +++ b/testautomation/graphics/optional/includes/global/g_navigator.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/g_ole.inc b/testautomation/graphics/optional/includes/global/g_ole.inc index 3d30cf52ca85..56a23c5fb021 100644 --- a/testautomation/graphics/optional/includes/global/g_ole.inc +++ b/testautomation/graphics/optional/includes/global/g_ole.inc @@ -25,14 +25,10 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description: includefile for Ole-testing '* -'************************************************************************************** -' #1 tOLE_Copy -' #1 tOLE_SaveLoad -' #1 tiOpenOLECrash '\************************************************************************************* testcase tOLE_Copy @@ -274,16 +270,18 @@ testcase tOLE_SaveLoad MenuSelect (0) printlog "Save the File." FileSaveAs - sleep 1 Kontext "SpeichernDlg" - Dateiname.Settext (filename) - printlog "Saving as: " & filename - Speichern.Click + if ( SpeichernDlg.exists( 1 ) ) then + Dateiname.Settext (filename) + printlog "Saving as: " & filename + Speichern.Click + else + warnlog( "<FileSaveAs> dialog did not open" ) + endif printlog "If the file already exists - press yes to overwrite it." - Sleep 3 kontext "Messagebox" - if Messagebox.exists then + if ( Messagebox.exists( 3 ) ) then Messagebox.Yes endif Sleep 3 @@ -364,20 +362,31 @@ testcase tiOpenOLECrash FileSaveAs Kontext "SpeichernDlg" - sFileodp = (ConvertPath(gOfficePath + "user\work\generic_de")) - Dateiname.SetText (sFileodp) - Dateityp.Select (1) - Speichern.Click - Kontext "Messagebox" - if Messagebox.Exists(2) then - Messagebox.Yes - Kontext "AlienWarning" - if AlienWarning.Exists(2) then - Warnlog "Should not be any alienwarning when saving in our own format!" - AlienWarning.OK - end if - printlog "Saved as: " + sFileodp - end if + if ( SpeichernDlg.exists( 2 ) ) then + sFileodp = (ConvertPath(gOfficePath + "user\work\generic_de")) + Dateiname.SetText (sFileodp) + Dateityp.Select (1) + Speichern.Click + Kontext "Messagebox" + if Messagebox.Exists(2) then + try + Messagebox.Yes + catch + warnlog( "#i110938 - Failure to save certain impress documents" ) + Messagebox.ok() + goto endsub + endcatch + Kontext "AlienWarning" + if AlienWarning.Exists(2) then + Warnlog "Should not be any alienwarning when saving in our own format!" + AlienWarning.OK + end if + printlog "Saved as: " + sFileodp + end if + else + warnlog( "<FileSaveAs> dislog did not open" ) + goto endsub + endif Sleep 3 kontext "DocumentImpress" printlog "3. Close Impress." diff --git a/testautomation/graphics/optional/includes/global/g_paneview.inc b/testautomation/graphics/optional/includes/global/g_paneview.inc index 28e679367f08..a2e7bdb87266 100644 --- a/testautomation/graphics/optional/includes/global/g_paneview.inc +++ b/testautomation/graphics/optional/includes/global/g_paneview.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description: includefile for Paneview-testing '* diff --git a/testautomation/graphics/optional/includes/global/g_paragraph.inc b/testautomation/graphics/optional/includes/global/g_paragraph.inc index 5ba028ca5244..69f145230d2a 100644 --- a/testautomation/graphics/optional/includes/global/g_paragraph.inc +++ b/testautomation/graphics/optional/includes/global/g_paragraph.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/g_savepictureas.inc b/testautomation/graphics/optional/includes/global/g_savepictureas.inc index 3888cf31d39e..bbf9776b7ece 100644 --- a/testautomation/graphics/optional/includes/global/g_savepictureas.inc +++ b/testautomation/graphics/optional/includes/global/g_savepictureas.inc @@ -25,7 +25,7 @@ ' '/******************************************************************** '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Graphics ContextMenu -SavePictureAs -Test '* diff --git a/testautomation/graphics/optional/includes/global/g_shaddow.inc b/testautomation/graphics/optional/includes/global/g_shaddow.inc index 0a7708086371..1dfd01f305aa 100644 --- a/testautomation/graphics/optional/includes/global/g_shaddow.inc +++ b/testautomation/graphics/optional/includes/global/g_shaddow.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Tests the shaddow-function on a picture '* diff --git a/testautomation/graphics/optional/includes/global/g_slidelayer.inc b/testautomation/graphics/optional/includes/global/g_slidelayer.inc index 4064ca5e9f45..a28526305d75 100644 --- a/testautomation/graphics/optional/includes/global/g_slidelayer.inc +++ b/testautomation/graphics/optional/includes/global/g_slidelayer.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/g_spellcheck.inc b/testautomation/graphics/optional/includes/global/g_spellcheck.inc index 9780cb9933dc..74f6177287ef 100644 --- a/testautomation/graphics/optional/includes/global/g_spellcheck.inc +++ b/testautomation/graphics/optional/includes/global/g_spellcheck.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/g_stylist.inc b/testautomation/graphics/optional/includes/global/g_stylist.inc index dc8663425e87..fab547eb5d3b 100755..100644 --- a/testautomation/graphics/optional/includes/global/g_stylist.inc +++ b/testautomation/graphics/optional/includes/global/g_stylist.inc @@ -25,22 +25,10 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* -'******************************************************************* -'* -' #1 tFormatStylistFlyer -' #1 tFormatStylistDocuments -' #1 tFormatStylistTemplatesUse -' #1 tFormatStylistTemplateCreate -' #1 tFormatStylistTemplateSelect -' #1 tFormatStylistTemplateNew -' #1 tiFormatStylist -' #1 tFormatStylist -' #1 hWalkTheStyles -'* '\******************************************************************* testcase tFormatStylistFlyer @@ -147,7 +135,7 @@ testcase tFormatStylistFlyer '/// close stylist ///' Gestalter.Close Call hCloseDocument - + endcase 'tFormatStylistFlyer '-------------------------------------------------------- testcase tFormatStylistDocuments @@ -169,11 +157,9 @@ testcase tFormatStylistDocuments endif printlog " - Close all documents, reopen 1" - FileClose - Sleep 2 - FileClose - Sleep 2 - hNewDocument + hFileCloseAll() + hNewDocument() + Kontext "Gestalter" if (Gestalter.NotExists) then warnlog " There is no stylist in the new document" @@ -190,12 +176,9 @@ testcase tFormatStylistDocuments endif printlog " - Close all documents, reopen one and check the docked stylist" - FileClose - Sleep 2 - FileClose - Sleep 2 - Kontext "Gestalter" - hNewDocument + hFileCloseAll() + hNewDocument() + Kontext "Gestalter" if NOT Gestalter.IsDocked then warnlog " In the new document is the stylist not docked" @@ -215,7 +198,7 @@ testcase tFormatStylistDocuments Gestalter.Close end if Call hCloseDocument - + endcase 'tFormatStylistDocuments '-------------------------------------------------------- testcase tFormatStylistTemplatesUse @@ -234,7 +217,7 @@ testcase tFormatStylistTemplatesUse FormatStylist endif printlog " - Presentation-templates" - if (Lcase (gApplication) = "IMPRESS") then + if ( gApplication = "IMPRESS") then TBGestalter.Click Praesentationsvorlagen endif save = Gruppenliste.GetSelIndex @@ -253,11 +236,11 @@ testcase tFormatStylistTemplatesUse sleep 1 Gruppenliste.Select save - Gestalter.Close + kontext "Gestalter" + hCloseDialog( Gestalter, "Close" ) + + hFileCloseAll() - sleep 3 - Call hCloseDocument - endcase 'tFormatStylistTemplatesUse '-------------------------------------------------------- testcase tFormatStylistTemplateCreate @@ -299,10 +282,10 @@ testcase tFormatStylistTemplateCreate zaehler=Ansicht.getItemCount i=0 do - inc i + inc i loop while ((Ansicht.getItemText(i) <> "ATesttool") AND (i <= zaehler)) if i>zaehler then - warnlog " error" + warnlog " error" endif Ansicht.Select i sleep 1 @@ -317,10 +300,8 @@ testcase tFormatStylistTemplateCreate sleep 1 Kontext "DocumentDraw" gMouseClick 90,90 - sleep 1 - Call hCloseDocument - sleep 1 - + hFileCloseAll() + endcase 'tFormatStylistTemplateCreate '-------------------------------------------------------- testcase tFormatStylistTemplateSelect @@ -400,7 +381,7 @@ testcase tFormatStylistTemplateSelect TabArea.OK sleep 2 hCloseDocument - + endcase 'tFormatStylistTemplateSelect '--------------------------------------------------------- testcase tFormatStylistTemplateNew @@ -484,14 +465,14 @@ testcase tFormatStylistTemplateNew Vorlagenliste.TypeKeys "<End>" i = 0 do - inc i - sTemp = Vorlagenliste.GetText - Vorlagenliste.TypeKeys "<Up>" + inc i + sTemp = Vorlagenliste.GetText + Vorlagenliste.TypeKeys "<Up>" loop while (("Testtool" <> sTemp) AND (i<20)) Vorlagenliste.TypeKeys "<Return>" Kontext "Gestalter" Gestalter.Close - + Printlog " - check template" FormatCharacter Kontext @@ -677,8 +658,8 @@ testcase tiFormatStylist sleep 1 Kontext "Gestalter" if Gestalter.Exists Then Warnlog "- Stylist could not be closed pressing F11" - Call hCloseDocument - + Call hCloseDocument + endcase 'tiFormatStylist '--------------------------------------------------------- sub hWalkTheStyles (optional a as integer,optional b as integer) @@ -686,115 +667,115 @@ sub hWalkTheStyles (optional a as integer,optional b as integer) dim i as integer if isMissing (a) then a=1 - if isMissing (b) then b=2 - i=1 - if a <= i AND i <= b then - Kontext - Messagebox.SetPage TabLinie - kontext "TabLinie" - Call DialogTest ( TabLinie ) - Kontext - Messagebox.SetPage TabArea - kontext "TabArea" - Call DialogTest ( TabArea, 1 ) - FillOptions.Select 1 ' NoFill.Check - Call DialogTest ( TabArea, 1 ) - FillOptions.Select 2 - Call DialogTest ( TabArea, 2 ) - FillOptions.Select 3 - Call DialogTest ( TabArea, 3 ) - FillOptions.Select 4 - Call DialogTest ( TabArea, 4 ) - FillOptions.Select 5 - Call DialogTest ( TabArea, 5 ) - Kontext - Messagebox.SetPage TabSchatten - kontext "TabSchatten" - Anzeigen.check - Call DialogTest ( TabSchatten ) - Kontext - Messagebox.SetPage TabTransparenz - kontext "TabTransparenz" - KeineTransparenz.Check - LineareTransparenz.Check - Transparenzverlauf.Check - Kontext - Messagebox.SetPage TabFont - kontext "TabFont" - Call DialogTest ( TabFont ) - Kontext - Messagebox.SetPage TabFontEffects - kontext "TabFontEffects" - Kontext - Messagebox.SetPage TabEinzuegeUndAbstaende - kontext "TabEinzuegeUndAbstaende" - Call DialogTest ( TabEinzuegeUndAbstaende ) - endif - i=2 - if a <= i AND i <= b then - Kontext - Messagebox.SetPage TabVerwalten - kontext "TabVerwalten" - Call DialogTest ( TabVerwalten ) - Kontext - Messagebox.SetPage TabText - Kontext "TabText" - Call DialogTest ( TabText ) - Kontext - Messagebox.SetPage TabLauftext - Kontext "TabLauftext" - Call DialogTest ( TabLauftext ) - Kontext - Messagebox.SetPage TabBemassung - Kontext "TabBemassung" - Call DialogTest ( TabBemassung ) - Kontext - Messagebox.setpage TabVerbinder - Kontext "TabVerbinder" - Call Dialogtest ( TabVerbinder ) - Kontext - Messagebox.setpage TabAusrichtungAbsatz - Kontext "TabAusrichtungAbsatz" - Links.Check - Rechts.Check - Zentriert.Check - Blocksatz.Check - Kontext - Messagebox.setpage TabTabulator - Kontext "TabTabulator" - Neu.click - AlleLoeschen.click - Neu.click - Loeschen.click - endif - i=3 - if a <= i AND i <= b then - Kontext - Messagebox.SetPage TabBullet - Kontext "TabBullet" - sleep 1 - Call DialogTest (TabBullet) - sleep 1 - Kontext - Messagebox.SetPage TabNumerierungsart - Kontext "TabNumerierungsart" - sleep 1 - Call DialogTest (TabNumerierungsart) - sleep 1 - Kontext - Messagebox.SetPage TabGrafiken - Kontext "TabGrafiken" - sleep 1 - Call DialogTest (TabGrafiken) - sleep 1 - Kontext - Messagebox.SetPage TabOptionenNumerierung - Kontext "TabOptionenNumerierung" - sleep 1 - Call DialogTest (TabOptionenNumerierung) - sleep 1 - endif - + if isMissing (b) then b=2 + i=1 + if a <= i AND i <= b then + Kontext + Messagebox.SetPage TabLinie + kontext "TabLinie" + Call DialogTest ( TabLinie ) + Kontext + Messagebox.SetPage TabArea + kontext "TabArea" + Call DialogTest ( TabArea, 1 ) + FillOptions.Select 1 ' NoFill.Check + Call DialogTest ( TabArea, 1 ) + FillOptions.Select 2 + Call DialogTest ( TabArea, 2 ) + FillOptions.Select 3 + Call DialogTest ( TabArea, 3 ) + FillOptions.Select 4 + Call DialogTest ( TabArea, 4 ) + FillOptions.Select 5 + Call DialogTest ( TabArea, 5 ) + Kontext + Messagebox.SetPage TabSchatten + kontext "TabSchatten" + Anzeigen.check + Call DialogTest ( TabSchatten ) + Kontext + Messagebox.SetPage TabTransparenz + kontext "TabTransparenz" + KeineTransparenz.Check + LineareTransparenz.Check + Transparenzverlauf.Check + Kontext + Messagebox.SetPage TabFont + kontext "TabFont" + Call DialogTest ( TabFont ) + Kontext + Messagebox.SetPage TabFontEffects + kontext "TabFontEffects" + Kontext + Messagebox.SetPage TabEinzuegeUndAbstaende + kontext "TabEinzuegeUndAbstaende" + Call DialogTest ( TabEinzuegeUndAbstaende ) + endif + i=2 + if a <= i AND i <= b then + Kontext + Messagebox.SetPage TabVerwalten + kontext "TabVerwalten" + Call DialogTest ( TabVerwalten ) + Kontext + Messagebox.SetPage TabText + Kontext "TabText" + Call DialogTest ( TabText ) + Kontext + Messagebox.SetPage TabLauftext + Kontext "TabLauftext" + Call DialogTest ( TabLauftext ) + Kontext + Messagebox.SetPage TabBemassung + Kontext "TabBemassung" + Call DialogTest ( TabBemassung ) + Kontext + Messagebox.setpage TabVerbinder + Kontext "TabVerbinder" + Call Dialogtest ( TabVerbinder ) + Kontext + Messagebox.setpage TabAusrichtungAbsatz + Kontext "TabAusrichtungAbsatz" + Links.Check + Rechts.Check + Zentriert.Check + Blocksatz.Check + Kontext + Messagebox.setpage TabTabulator + Kontext "TabTabulator" + Neu.click + AlleLoeschen.click + Neu.click + Loeschen.click + endif + i=3 + if a <= i AND i <= b then + Kontext + Messagebox.SetPage TabBullet + Kontext "TabBullet" + sleep 1 + Call DialogTest (TabBullet) + sleep 1 + Kontext + Messagebox.SetPage TabNumerierungsart + Kontext "TabNumerierungsart" + sleep 1 + Call DialogTest (TabNumerierungsart) + sleep 1 + Kontext + Messagebox.SetPage TabGrafiken + Kontext "TabGrafiken" + sleep 1 + Call DialogTest (TabGrafiken) + sleep 1 + Kontext + Messagebox.SetPage TabOptionenNumerierung + Kontext "TabOptionenNumerierung" + sleep 1 + Call DialogTest (TabOptionenNumerierung) + sleep 1 + endif + end sub 'hWalkTheStyles '--------------------------------------------------------- testcase tFormatStylist @@ -889,7 +870,7 @@ testcase tFormatStylist endif endif Call hCloseDocument - + endcase 'tFormatStylist '-------------------------------------------------------- function hSelectInList (window, sEntry as String) as Boolean @@ -901,16 +882,16 @@ function hSelectInList (window, sEntry as String) as Boolean window.TypeKeys "<End>" sTemp = "" do - sLastTemp = sTemp - sTemp = window.GetText - window.TypeKeys "<Up>" -loop while ((sEntry <> sTemp) AND (sLastTemp <> sTemp)) -if (sEntry = sTemp) then - window.TypeKeys "<Return>" - hSelectInList = TRUE -else - hSelectInList = FALSE -endif + sLastTemp = sTemp + sTemp = window.GetText + window.TypeKeys "<Up>" + loop while ((sEntry <> sTemp) AND (sLastTemp <> sTemp)) + if (sEntry = sTemp) then + window.TypeKeys "<Return>" + hSelectInList = TRUE + else + hSelectInList = FALSE + endif end function 'hSelectInList '--------------------------------------------------------- diff --git a/testautomation/graphics/optional/includes/global/g_tables.inc b/testautomation/graphics/optional/includes/global/g_tables.inc index 1414a857b598..94a76349e948 100644 --- a/testautomation/graphics/optional/includes/global/g_tables.inc +++ b/testautomation/graphics/optional/includes/global/g_tables.inc @@ -25,17 +25,10 @@ ' '/****************************************************************** '* -'* owner : wolfram.garten@sun.com +'* owner : wolfram.garten@oracle.com '* '* short description : Testing of impress tables '* -'******************************************************************* -'* -' #1 tiInsertTableUsingMenu -' #1 tiInsertTableUsingButton -' #1 tiTableObjectBar -' #1 tiInsertTableUsingToolbarbuttonView -'* '\****************************************************************** 'Variables: @@ -50,7 +43,7 @@ testcase tiInsertTableUsingMenu printlog "Inserting table into doc using the menu." Call hNewDocument printlog "Switching between Draw/Impress" - if (UCase(gApplication)) = "IMPRESS" then + if ( gApplication = "IMPRESS" ) then DocumentImpress.UseMenu hMenuSelectNr(4) hMenuSelectNr(14) @@ -213,7 +206,7 @@ testcase tiTableObjectBar printlog "Inserting table into doc using the menu." Call hNewDocument printlog "Switching between Draw/Impress" - if (UCase(gApplication)) = "IMPRESS" then + if ( gApplication = "IMPRESS" ) then DocumentImpress.UseMenu hMenuSelectNr(4) hMenuSelectNr(14) @@ -229,7 +222,7 @@ testcase tiTableObjectBar printlog "Selecting table for geeting the TableObjectBar." printlog "Switching between Draw/Impress" - if (UCase(gApplication)) = "IMPRESS" then + if ( gApplication = "IMPRESS" )then Kontext "DocumentImpress" DocumentImpress.TypeKeys "<TAB>",3 else @@ -258,7 +251,7 @@ testcase tiTableObjectBar Kontext "TableObjectBar" TableObjectBar.Close - if (UCase(gApplication)) = "IMPRESS" then + if ( gApplication = "IMPRESS" ) then Kontext "DocumentImpress" else Kontext "DocumentDraw" @@ -278,7 +271,7 @@ testcase tiTableObjectBar endif Kontext "TableObjectBar" TableObjectBar.Close - if (UCase(gApplication)) = "IMPRESS" then + if ( gApplication = "IMPRESS" ) then Kontext "DocumentImpress" else Kontext "DocumentDraw" @@ -295,7 +288,7 @@ testcase tiTableObjectBar else warnlog "BordersTB is not up!" endif - if (UCase(gApplication)) = "IMPRESS" then + if ( gApplication = "IMPRESS" ) then Kontext "DocumentImpress" else Kontext "DocumentDraw" @@ -303,7 +296,7 @@ testcase tiTableObjectBar printlog "Checking merge cells." printlog "Inserting something into cell and select." - if (UCase(gApplication)) = "IMPRESS" then + if ( gApplication = "IMPRESS" ) then DocumentImpress.TypeKeys ("a") DocumentImpress.TypeKeys "<SHIFT RIGHT>" else @@ -312,29 +305,46 @@ testcase tiTableObjectBar endif Kontext "TableObjectBar" if TableObjectBar.NotExists(2) then ViewToolbarsTable + + printlog( "Merge cells" ) + Wait( 1000 ) ZellenVerbinden.Click - printlog "Cells merged." - printlog "Checking split cells." + printlog( "Split cells" ) + Wait( 1000 ) ZelleTeilen.Click - printlog "Cells split." + Kontext "ZellenTeilen" - WaitSlot(1000) - printlog "SplitCells dialog open." - Anzahl.ToMax - printlog "Maximum SplitCellCount is " & Anzahl.GetText & "." - Anzahl.ToMin - printlog "Minimum SplitCellCount is " & Anzahl.GetText & "." - if Horizontal.IsChecked = TRUE then - printlog "Horizontally is clicked." + if ( ZellenTeilen.exists( 2 ) ) then + + printlog "SplitCells dialog open." + + printlog( "Set number to maximum" ) + Anzahl.ToMax + printlog "Maximum SplitCellCount is " & Anzahl.GetText & "." + + printlog( "Set number to minimum" ) + Anzahl.ToMin + printlog "Minimum SplitCellCount is " & Anzahl.GetText & "." + + printlog( "<Horizontal> should be checked" ) + if ( Horizontal.IsChecked ) then + printlog "Horizontally is clicked." + else + warnlog "Horizontally should be clicked by default!" + endif + + printlog( "Distribute/Split equally" ) + GleichmaessigTeilen.Check + + printlog( "Check <Vertically>" ) + Vertikal.Check + + printlog( "Close dialog <Split Cells>" ) + hCloseDialog( ZellenTeilen, "close" ) else - warnlog "Horizontally should be clicked by default!" + warnlog( "Dialog <Split Cells> did not open" ) endif - GleichmaessigTeilen.Check - printlog "Split Equal checked." - Vertikal.Check - printlog "Cells vertically checked." - ZellenTeilen.OK printlog " Checking optimize button 'ToDo: button not working" 'Kontext "TableObjectBar" 'Optimieren.TearOff @@ -364,7 +374,7 @@ testcase tiTableObjectBar tabledesign.Click printlog "Checking for Table Design in Impress TaskBar or for Dialog in Draw." - if (UCase(gApplication)) = "IMPRESS" then + if ( gApplication = "IMPRESS" ) then kontext "Tasks" if (NOT Tasks.exists) then warnlog "Tasks Panel not visible. Opening now." @@ -395,6 +405,20 @@ testcase tiTableObjectBar kontext "TabFont" printlog "Checking Fonts Box." + + if ( Font.exists() ) then + printlog( "Western dialog layout -> good" ) + else + if ( FontWest.exists() ) then + warnlog( "<FontWest> exists, asian support is enabled which this test cannot handle" ) + else + warnlog( "Unknown error while trying to access <Font> listbox" ) + endif + hCloseDialog( TabFont, "close" ) + hFileCloseAll() + goto endsub + endif + iItemCount = Font.GetItemCount printlog "Fontbox has " & iItemCount & " entries." for iItemIndex = 1 to iItemCount diff --git a/testautomation/graphics/optional/includes/global/g_toolbars.inc b/testautomation/graphics/optional/includes/global/g_toolbars.inc index 10ea5cdba195..9f8d8a6b2fb4 100644 --- a/testautomation/graphics/optional/includes/global/g_toolbars.inc +++ b/testautomation/graphics/optional/includes/global/g_toolbars.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/g_tools.inc b/testautomation/graphics/optional/includes/global/g_tools.inc index 2d802af5b40c..b760ad7b1b0f 100644 --- a/testautomation/graphics/optional/includes/global/g_tools.inc +++ b/testautomation/graphics/optional/includes/global/g_tools.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : will be moved to autocorrection.bas/inc '* diff --git a/testautomation/graphics/optional/includes/global/g_zoom.inc b/testautomation/graphics/optional/includes/global/g_zoom.inc index 30a6798d9082..c82b6743966a 100644 --- a/testautomation/graphics/optional/includes/global/g_zoom.inc +++ b/testautomation/graphics/optional/includes/global/g_zoom.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/gallery.inc b/testautomation/graphics/optional/includes/global/gallery.inc index 8398395c3653..6eca0a5276e3 100755..100644 --- a/testautomation/graphics/optional/includes/global/gallery.inc +++ b/testautomation/graphics/optional/includes/global/gallery.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : wolfram.garten@sun.com +'* owner : wolfram.garten@oracle.com '* '* short description : Global Required/resource test: Checking the gallery '* diff --git a/testautomation/graphics/optional/includes/global/gallery2.inc b/testautomation/graphics/optional/includes/global/gallery2.inc index b86cedcf8154..d46d0ae4a99c 100644 --- a/testautomation/graphics/optional/includes/global/gallery2.inc +++ b/testautomation/graphics/optional/includes/global/gallery2.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : wolfram.garten@sun.com +'* owner : wolfram.garten@oracle.com '* '* short description : Checking all gallery themes '* diff --git a/testautomation/graphics/optional/includes/global/id_001.inc b/testautomation/graphics/optional/includes/global/id_001.inc index 1525074e027f..15a99c0d3f23 100644 --- a/testautomation/graphics/optional/includes/global/id_001.inc +++ b/testautomation/graphics/optional/includes/global/id_001.inc @@ -25,24 +25,10 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* -'*********************************************************************************** -' #1 tiFileSaveAs -' #1 tiFileReload (sFileIn as string) -' #1 tiFileVersion (sFileIn as string) -' #1 tiFilePassword -' #1 tiFileTemplates -' #1 tmFileNewFromTemplate -' #1 tmFileOpen -' #1 tmFileClose -' #1 tmFileSave -' #1 tmFileSaveAs -' #1 tmFileSaveAll -' #1 tmFileProperties -' #1 tmFilePrinterSetting '\********************************************************************************** @@ -141,7 +127,7 @@ testcase tiFileSaveAs printlog "("+i+"/"+x+"): "+sFilter(i) hFileOpen ( sFilter(i) ) WaitSlot (3000) - If hIsNamedDocLoaded (sFilter(i), true) Then + If hIsNamedDocLoaded (sFilter(i)) Then printlog " used filter: " + hGetUsedFilter() else sTemp = left(right(sFilter(i),2),1) diff --git a/testautomation/graphics/optional/includes/global/id_002.inc b/testautomation/graphics/optional/includes/global/id_002.inc index aed9631b4cd6..c199ab998524 100644 --- a/testautomation/graphics/optional/includes/global/id_002.inc +++ b/testautomation/graphics/optional/includes/global/id_002.inc @@ -25,26 +25,10 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* -'*********************************************************************************** -' #1 tiEditUndoRedo -' #1 tiEditRepeat -' #1 tiEditCutPasteCopySelectall -' #1 tiEditPasteSpecial -' #1 tiEditSearchAndReplace -' #1 tiEditDuplicate -' #1 tiEditFields -' #1 tdEditDeleteSlide -' #1 tiEditLinks -' #1 tiEditImageMap -' #1 tiEditObjectProperties -' #1 tiEditObjectEdit -' #1 tiEditPlugIn -' #1 tiEditHyperlink -' #1 tEditPoints '\********************************************************************************** testcase tiEditUndoRedo @@ -247,9 +231,9 @@ testcase tiEditLinks Link.Check Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp") Oeffnen.Click - sleep 2 + kontext "Messagebox" - if Messagebox.Exists then + if Messagebox.Exists( 2 ) then Warnlog Messagebox.GetText Messagebox.OK sleep 1 @@ -277,9 +261,9 @@ testcase tiEditImageMap Call hNewDocument EditImageMap + Kontext "ImageMapEditor" - sleep (1) - if ImageMapEditor.Exists (2) then + if ImageMapEditor.Exists( 5 ) then printlog "- ImageMap exists" DialogTest ( ImageMapEditor ) try @@ -319,7 +303,6 @@ testcase tiEditObjectProperties WaitSlot (1000) Kontext "TabEigenschaften" DialogTest ( TabEigenschaften ) - sleep(1) Oeffnen.Click Kontext "OeffnenDlg" Call DialogTest ( OeffnenDlg ) @@ -410,40 +393,48 @@ endcase testcase tiEditHyperlink hNewDocument InsertHyperlink - WaitSlot (5000) - Kontext "Hyperlink" - Auswahl.MouseDown 50, 5 - Auswahl.MouseUp 50, 5 - Auswahl.typekeys "<PAGEDOWN><PAGEUP>" - Auswahl.typekeys "<TAB>" - sleep 3 - Kontext "TabHyperlinkInternet" - - 'Workaround to get rid of a Focusing-problem... - NameText.Typekeys "alal <RETURN>" - NameText.Typekeys "<MOD1 A><DELETE>" - TabHyperlinkInternet.Typekeys "<TAB>", 6 - TabHyperlinkInternet.Typekeys "<LEFT>", 3 - 'End of workaround... - - Internet.Check 'Just to make sure the radio-button is addressable. - ZielUrl.Settext "http://www.liegerad-fahrer.de" - Kontext "Hyperlink" - Uebernehmen.Click - Hyperlink.Close - hTypeKeys "<TAB><F2>" - EditSelectAll - try - EditHyperlinkDraw + + kontext "HyperlinkDialog" + if ( HyperlinkDialog.exists( 2 ) ) then Kontext "Hyperlink" - if Hyperlink.Exists then - Hyperlink.Close - else - Warnlog "- Hyperlinkdialog not up" - end if - catch - Warnlog "- Not able to edit Hyperlink!" - endcatch + Auswahl.MouseDown 50, 5 + Auswahl.MouseUp 50, 5 + Auswahl.typekeys "<PAGEDOWN><PAGEUP>" + Auswahl.typekeys "<TAB>" + sleep( 1 ) + Kontext "TabHyperlinkInternet" + + 'Workaround to get rid of a Focusing-problem... + NameText.Typekeys "alal <RETURN>" + NameText.Typekeys "<MOD1 A><DELETE>" + TabHyperlinkInternet.Typekeys "<TAB>", 6 + TabHyperlinkInternet.Typekeys "<LEFT>", 3 + 'End of workaround... + + Internet.Check 'Just to make sure the radio-button is addressable. + ZielUrl.Settext "http://www.liegerad-fahrer.de" + + Uebernehmen.Click() + + kontext "HyperlinkDialog" + HyperlinkDialog.Close() + + hTypeKeys "<TAB><F2>" + EditSelectAll + try + EditHyperlinkDraw + Kontext "HyperlinkDialog" + if ( HyperlinkDialog.Exists( 1 ) ) then + HyperlinkDialog.Close() + else + Warnlog "- Hyperlinkdialog not up" + end if + catch + Warnlog "- Not able to edit Hyperlink!" + endcatch + else + warnlog( "Failed to open <HyperlinkDialog>" ) + endif Call hCloseDocument endcase diff --git a/testautomation/graphics/optional/includes/global/id_003.inc b/testautomation/graphics/optional/includes/global/id_003.inc index 27004c582828..4ada1beaaea4 100644 --- a/testautomation/graphics/optional/includes/global/id_003.inc +++ b/testautomation/graphics/optional/includes/global/id_003.inc @@ -25,18 +25,10 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* -'*********************************************************************************** -' #1 tiViewNavigator -' #1 tiViewZoom -' #1 tiViewToolbar -' #1 tiViewDisplayQuality -' #1 tiViewLayer -' #1 tViewSnapLines -' #1 tViewGrid '\********************************************************************************** testcase tiViewNavigator diff --git a/testautomation/graphics/optional/includes/global/id_004.inc b/testautomation/graphics/optional/includes/global/id_004.inc index b1034c331ded..2e1aa6db3cd1 100644 --- a/testautomation/graphics/optional/includes/global/id_004.inc +++ b/testautomation/graphics/optional/includes/global/id_004.inc @@ -25,29 +25,10 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* -'*********************************************************************************** -' #1 tiInsertSlide -' #1 tiInsertDuplicateSlide -' #1 tiInsertField -' #1 tiInsertSpecialCharacter -' #1 tiInsertHyperlink -' #1 tiInsertGraphic -' #1 tiInsertObjectSound -' #1 tiInsertObjectVideo -' #1 tiInsertChart -' #1 tiInsertObjectOLEObjects -' #1 tiInsertSpreadsheet -' #1 tiInsertFormula -' #1 tiInsertFloatingFrame -' #1 tiInsertFile -' #1 tiInsertPlugin -' #1 tiInsertScan -' #1 tiInsertSnappointLine -' #1 tdInsertLayer '\********************************************************************************** @@ -129,26 +110,30 @@ testcase tiInsertSpecialCharacter hTextrahmenErstellen ("This is a testtext",30,40,60,50) sleep 2 InsertSpecialCharacterDraw - WaitSlot (2000) + Kontext "Sonderzeichen" - Call DialogTest (Sonderzeichen) - Sonderzeichen.Cancel - sleep 2 + if ( Sonderzeichen.exists( 2 ) ) then + Call DialogTest (Sonderzeichen) + hCloseDialog( Sonderzeichen, "Cancel" ) + else + warnlog( "<Special Characters> dialog not open" ) + endif Call hCloseDocument endcase testcase tiInsertHyperlink + Call hNewDocument InsertHyperlink - WaitSlot (5000) - Kontext "Hyperlink" - if Hyperlink.exists (5) then + + kontext "HyperlinkDialog" + if ( HyperlinkDialog.exists( 2 ) ) then + + Kontext "TabHyperlinkInternet" Auswahl.MouseDown 50, 5 Auswahl.MouseUp 50, 5 Auswahl.typekeys "<PAGEDOWN><PAGEUP>" Auswahl.typekeys "<TAB>" - sleep 3 - Kontext "TabHyperlinkInternet" 'Workaround to get rid of a Focusing-problem... NameText.Typekeys "alal <RETURN>" @@ -158,12 +143,14 @@ testcase tiInsertHyperlink 'End of workaround... Internet.Check - ZielUrl.Settext "http://mahler" - Kontext "Hyperlink" - Uebernehmen.Click - Hyperlink.Close + ZielUrl.SetText( "http://www.nowhere.com" ) + Uebernehmen.Click() + + kontext "HyperlinkDialog" + HyperlinkDialog.Close() + else - warnlog "Failed to open hyperlink ??!!" + warnlog "Failed to open <HyperlinkDialog>" end if Call hCloseDocument endcase @@ -231,12 +218,11 @@ endcase testcase tiInsertChart Call hNewDocument InsertChart - WaitSlot (2000) + Kontext "Messagebox" - if Messagebox.Exists then + if ( Messagebox.Exists( 2 ) ) then Warnlog Messagebox.GetText - Messagebox.OK - sleep 1 + hCloseDialog( Messagebox, "OK" ) end if gMouseClick 1,1 sleep 2 @@ -274,9 +260,8 @@ testcase tiInsertSpreadsheet Kontext "Messagebox" if Messagebox.Exists (5) then Warnlog Messagebox.GetText - Messagebox.OK + hCloseDialog( Messagebox, "ok" ) end if - sleep 2 gMouseClick 1,1 sleep 1 hTypekeys "<Tab><Delete>" @@ -287,12 +272,11 @@ endcase testcase tiInsertFormula Call hNewDocument InsertObjectFormulaDraw - WaitSlot (2000) + Kontext "Messagebox" - if Messagebox.Exists then + if ( Messagebox.Exists( 2 ) ) then Warnlog Messagebox.GetText - Messagebox.OK - sleep 1 + hCloseDialog( Messagebox, "ok" ) end if gMouseClick 1,1 sleep 1 @@ -308,8 +292,7 @@ testcase tiInsertFloatingFrame Dialogtest (TabEigenschaften) Oeffnen.Click Kontext "OeffnenDlg" - sleep 1 - OeffnenDlg.Cancel + hCloseDialog( OeffnenDlg, "Cancel" ) Kontext "TabEigenschaften" TabEigenschaften.Cancel Call hCloseDocument @@ -343,7 +326,6 @@ testcase tiInsertPlugin end if Kontext "OeffnenDlG" if OeffnenDlG.exists (5) then - sleep 1 OeffnenDLG.Cancel end if Kontext "PluginEinfuegen" diff --git a/testautomation/graphics/optional/includes/global/id_005.inc b/testautomation/graphics/optional/includes/global/id_005.inc index 0741bc82c8a9..4aefb701a861 100755..100644 --- a/testautomation/graphics/optional/includes/global/id_005.inc +++ b/testautomation/graphics/optional/includes/global/id_005.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/id_006.inc b/testautomation/graphics/optional/includes/global/id_006.inc index d959d1cf828f..bcbfa3d7c24b 100644 --- a/testautomation/graphics/optional/includes/global/id_006.inc +++ b/testautomation/graphics/optional/includes/global/id_006.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* @@ -104,7 +104,7 @@ testcase tiToolsThesaurus else sFileName = (ConvertPath (gTesttoolPath + "graphics\required\input\engtext.odg")) end if - if hFileExists ( sFileName ) = FALSE then + if FileExists ( sFileName ) = FALSE then warnlog "The language-file was not found or accessible! The test ends." goto endsub end if diff --git a/testautomation/graphics/optional/includes/global/id_007.inc b/testautomation/graphics/optional/includes/global/id_007.inc index 214b468e04d5..bbc870953f3a 100644 --- a/testautomation/graphics/optional/includes/global/id_007.inc +++ b/testautomation/graphics/optional/includes/global/id_007.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/id_008.inc b/testautomation/graphics/optional/includes/global/id_008.inc index 0efbf5add49d..654cae0f00df 100644 --- a/testautomation/graphics/optional/includes/global/id_008.inc +++ b/testautomation/graphics/optional/includes/global/id_008.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/global/id_009.inc b/testautomation/graphics/optional/includes/global/id_009.inc index ff8f41a10917..7096a1a860a9 100644 --- a/testautomation/graphics/optional/includes/global/id_009.inc +++ b/testautomation/graphics/optional/includes/global/id_009.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Testcases to test the Help-Menu. '* diff --git a/testautomation/graphics/optional/includes/global/id_011.inc b/testautomation/graphics/optional/includes/global/id_011.inc index 6c2ecd7ff08c..b1880d0982e8 100644 --- a/testautomation/graphics/optional/includes/global/id_011.inc +++ b/testautomation/graphics/optional/includes/global/id_011.inc @@ -25,7 +25,7 @@ ' '/****************************************************************************** '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/impress/i_animation.inc b/testautomation/graphics/optional/includes/impress/i_animation.inc index 471ef1fada85..8ee7777e5994 100644 --- a/testautomation/graphics/optional/includes/impress/i_animation.inc +++ b/testautomation/graphics/optional/includes/impress/i_animation.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/impress/i_headerfooter.inc b/testautomation/graphics/optional/includes/impress/i_headerfooter.inc index 4237e7a070ca..3e4c54551525 100644 --- a/testautomation/graphics/optional/includes/impress/i_headerfooter.inc +++ b/testautomation/graphics/optional/includes/impress/i_headerfooter.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Tests the header-footer-function in Impress '* diff --git a/testautomation/graphics/optional/includes/impress/i_pengine.inc b/testautomation/graphics/optional/includes/impress/i_pengine.inc index 2d90d038b5d7..4f19f254b055 100644 --- a/testautomation/graphics/optional/includes/impress/i_pengine.inc +++ b/testautomation/graphics/optional/includes/impress/i_pengine.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Tests the shaddow-function on a picture '* diff --git a/testautomation/graphics/optional/includes/impress/i_pengine1.inc b/testautomation/graphics/optional/includes/impress/i_pengine1.inc index 5307cd665abd..44f531c47fcd 100644 --- a/testautomation/graphics/optional/includes/impress/i_pengine1.inc +++ b/testautomation/graphics/optional/includes/impress/i_pengine1.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Tests the Engine for Presentation '* diff --git a/testautomation/graphics/optional/includes/impress/i_pengine2.inc b/testautomation/graphics/optional/includes/impress/i_pengine2.inc index f10b77f30db3..f1fa908cf7b7 100644 --- a/testautomation/graphics/optional/includes/impress/i_pengine2.inc +++ b/testautomation/graphics/optional/includes/impress/i_pengine2.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Tests the Presentation-Engines effects '* diff --git a/testautomation/graphics/optional/includes/impress/i_saveloadlayout.inc b/testautomation/graphics/optional/includes/impress/i_saveloadlayout.inc index e5dbf1f53cc2..06a7ac89cf9d 100644 --- a/testautomation/graphics/optional/includes/impress/i_saveloadlayout.inc +++ b/testautomation/graphics/optional/includes/impress/i_saveloadlayout.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description: Save & Load testing of Layout -templates. '* diff --git a/testautomation/graphics/optional/includes/impress/i_shape.inc b/testautomation/graphics/optional/includes/impress/i_shape.inc index cd29dbb62e31..c33c92f2ec0f 100644 --- a/testautomation/graphics/optional/includes/impress/i_shape.inc +++ b/testautomation/graphics/optional/includes/impress/i_shape.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : owner : wolfram.garten@sun.com +'* owner : owner : wolfram.garten@oracle.com '* '* short description : import presentations with shapes in .ppt format '* diff --git a/testautomation/graphics/optional/includes/impress/i_slidecopy.inc b/testautomation/graphics/optional/includes/impress/i_slidecopy.inc index 73971c2e889f..92283b35a369 100644 --- a/testautomation/graphics/optional/includes/impress/i_slidecopy.inc +++ b/testautomation/graphics/optional/includes/impress/i_slidecopy.inc @@ -25,24 +25,23 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description: includefile for Slidecopy-testing '* -'******************************************************************************* -' #1 tiSlideCopyNewPresentation -' #1 tiSlideCopyDuplicate -' #1 tiSlideCopyPasteSpecial -' #1 tiSlideCopyInSlideSorter '\****************************************************************************** testcase tiSlideCopyNewPresentation + + const MENUITEM_RENAME = 27027 + Dim value1 as string Dim value2 as string Dim value12 as string Dim value13 as string - printlog "This test copies one slide from one presentation to another." - printlog "Make new presentation" + + printlog "This test copies one slide from one presentation to another." + printlog "Make new presentation" Call hNewDocument Call sSelectEmptyLayout printlog "Insert three objects: Connector, Door-plate, and Smiley." @@ -52,209 +51,228 @@ testcase tiSlideCopyNewPresentation sleep 1 try Verbinder.TearOff - catch + catch warnlog "bug for GH from FHA; .tearoff doesnt tell success" - endcatch - kontext "Connectorsbar" - sleep 2 - Verbinder.click - sleep 5 - gMouseDown (10,10) - gMouseMove (10,10,30,30) - gMouseUp (30,30) - kontext "Connectorsbar" - Connectorsbar.Close - hTypeKeys "<ESCAPE>" - hTypeKeys "<TAB>", 1 - printlog "We rename the object via the contextmenu." - sleep (1) - DocumentImpress.TypeKeys "<SHIFT F10>" - sleep (2) - printlog "then Choose rename." - if hMenuFindSelect(27027, true, 14) = false then + endcatch + kontext "Connectorsbar" + sleep 2 + Verbinder.click + sleep 5 + gMouseDown (10,10) + gMouseMove (10,10,30,30) + gMouseUp (30,30) + kontext "Connectorsbar" + Connectorsbar.Close + hTypeKeys "<ESCAPE>" + hTypeKeys "<TAB>", 1 + printlog "We rename the object via the contextmenu." + sleep (1) + DocumentImpress.TypeKeys "<SHIFT F10>" + sleep (2) + printlog "then Choose rename." + if hMenuFindSelect( MENUITEM_RENAME, true, 14) = false then Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif - sleep 2 - kontext "NameDlgObject" - NameField.SetText "First" - NameDlgObject.OK - kontext "DocumentImpress" - hMouseClick DocumentImpress, 90, 90 -'----------------------------------------------------------------------------1 - printlog "Then we insert the second object: a Door-plate." - kontext "Toolbar" - sleep 2 - try + endif + + kontext "NameDlgObject" + if ( NameDlgObject.exists( 2 ) ) then + NameField.SetText "First" + NameDlgObject.OK + else + warnlog( "<NameDlgObject> failed to open" ) + endif + + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 + '----------------------------------------------------------------------------1 + printlog "Then we insert the second object: a Door-plate." + + kontext "Toolbar" + sleep 2 + try StarShapes.TearOff - catch - warnlog "bug for GH from FHA; .tearoff doesnt tell success" - endcatch - sleep 2 - kontext "StarShapes" - StarShapesDoorplate.click - sleep (3) - gMouseDown (40,40) - gMouseMove (40,40,60,60) - gMouseUp (60,60) + catch + warnlog( "<StarShapes.TearOff> failed" ) + goto endsub + endcatch + kontext "StarShapes" - StarShapes.Close - hTypeKeys "<ESCAPE>" - hTypeKeys "<TAB>", 2 - printlog "And then we rename the object." - sleep (1) - DocumentImpress.TypeKeys "<SHIFT F10>" - sleep 2 - if hMenuFindSelect(27027, true, 15) = false then + if ( StarShapes.exists( 2 ) ) then + StarShapesDoorplate.click + else + warnlog( "<StarShapesDoorplate> could not be clicked" ) + endif + + sleep (3) + gMouseDown (40,40) + gMouseMove (40,40,60,60) + gMouseUp (60,60) + + kontext "StarShapes" + hCloseDialog( StarShapes, "close" ) + + hTypeKeys "<ESCAPE>" + hTypeKeys "<TAB>", 2 + printlog "And then we rename the object." + sleep (1) + DocumentImpress.TypeKeys "<SHIFT F10>" + sleep 2 + if hMenuFindSelect( MENUITEM_RENAME, true, 15) = false then Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif - kontext "NameDlgObject" - NameField.SetText "Second" - NameDlgObject.OK - kontext "DocumentImpress" - hMouseClick DocumentImpress, 90, 90 -'----------------------------------------------------------------------------2 - printlog "Then we insert the thrid object: a Smiley." - kontext "Toolbar" - sleep 1 - try + endif + kontext "NameDlgObject" + if ( NameDlgObject.exists( 2 ) ) then + NameField.SetText "Second" + NameDlgObject.OK + else + warnlog( "<NameDlgObject> could not be accessed" ) + endif + + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 + '----------------------------------------------------------------------------2 + printlog "Then we insert the thrid object: a Smiley." + kontext "Toolbar" + sleep 1 + try SymbolShapes.TearOff - catch + catch warnlog "bug for GH from FHA; .tearoff doesnt tell success" - endcatch - kontext "SymbolShapes" - sleep 1 - SymbolShapesSmiley.Click - sleep 2 - gMouseDown (70,70) - gMouseMove (70,70,89,89) - gMouseUp (89,89) - kontext "SymbolShapes" - SymbolShapes.Close - hTypeKeys "<ESCAPE>" - hTypeKeys "<TAB>", 3 - printlog "We rename the object via the Context-menu." - DocumentImpress.TypeKeys "<SHIFT F10>" - sleep (2) - 'Choose rename. - if hMenuFindSelect(27027, true, 15) = false then + endcatch + kontext "SymbolShapes" + sleep 1 + SymbolShapesSmiley.Click + sleep 2 + gMouseDown (70,70) + gMouseMove (70,70,89,89) + gMouseUp (89,89) + kontext "SymbolShapes" + SymbolShapes.Close + hTypeKeys "<ESCAPE>" + hTypeKeys "<TAB>", 3 + printlog "We rename the object via the Context-menu." + DocumentImpress.TypeKeys "<SHIFT F10>" + sleep (2) + 'Choose rename. + if hMenuFindSelect( MENUITEM_RENAME, true, 15) = false then Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif - kontext "NameDlgObject" - NameField.SetText "Third" - NameDlgObject.OK - kontext "DocumentImpress" - hMouseClick DocumentImpress, 90, 90 -'---------------------------------------------------------------------------3 - '/// Copy the slide to the clipboard ///' - kontext "Slides" - SlidesControl.TypeKeys "<PAGEUP>" - sleep (1) - SlidesControl.TypeKeys "<SHIFT F10>" - sleep 2 - printlog "We copy the object via the Context-menu." - - if hMenuFindSelect(5711, true, 10) = false then + endif + kontext "NameDlgObject" + NameField.SetText "Third" + NameDlgObject.OK + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 + '---------------------------------------------------------------------------3 + '/// Copy the slide to the clipboard ///' + kontext "Slides" + SlidesControl.TypeKeys "<PAGEUP>" + sleep (1) + SlidesControl.TypeKeys "<SHIFT F10>" + sleep 2 + printlog "We copy the object via the Context-menu." + + if hMenuFindSelect(5711, true, 10) = false then Warnlog "Context-Menu-entry `Copy` was not found. Therefore the test ends." Call hCloseDocument - Goto Endsub - endif - '/// Close the presentation-window ///' - Call hCloseDocument - '/// Open a new presentation ///' - Call hNewDocument - '/// Paste the slide from the clipboard ///' - kontext "Slides" - EditPaste - '/// Delete the first slide ///' - EditDeleteSlide - '/// Check if all three objects exists, and has the right values ///' - kontext "DocumentImpress" - hTypeKeys "<ESCAPE>" - hTypeKeys "<TAB>", 1 'Select the first object. - 'Bring up the kontext-menu for the object - sleep (1) - DocumentImpress.TypeKeys "<SHIFT F10>" - sleep 2 - printlog "We rename the object via the Context-menu." - if hMenuFindSelect(27027, true, 14) = false then + Goto Endsub + endif + '/// Close the presentation-window ///' + Call hCloseDocument + '/// Open a new presentation ///' + Call hNewDocument + '/// Paste the slide from the clipboard ///' + kontext "Slides" + hUseAsyncSlot( "EditPaste" ) + '/// Delete the first slide ///' + hUseAsyncSlot( "EditDeleteSlide" ) + '/// Check if all three objects exists, and has the right values ///' + kontext "DocumentImpress" + hTypeKeys "<ESCAPE>" + hTypeKeys "<TAB>", 1 'Select the first object. + 'Bring up the kontext-menu for the object + sleep (1) + DocumentImpress.TypeKeys "<SHIFT F10>" + sleep 2 + printlog "We rename the object via the Context-menu." + if hMenuFindSelect( MENUITEM_RENAME, true, 14) = false then Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif - printlog "Read out what the name is, and checks if it's correct." - kontext "NameDlgObject" - value1 = NameField.GetText - NameDlgObject.OK - if value1 = "First" then + endif + printlog "Read out what the name is, and checks if it's correct." + kontext "NameDlgObject" + value1 = NameField.GetText + NameDlgObject.OK + if value1 = "First" then printlog "First object was found correctly" - else + else Warnlog "Wrong object or object-name! The name found was: " + value1 - endif - kontext "DocumentImpress" - hMouseClick DocumentImpress, 90, 90 - DocumentImpress.TypeKeys "<TAB TAB>" 'Select the second object. - 'Bring up the kontext-menu for the object - sleep (1) - DocumentImpress.TypeKeys "<SHIFT F10>" - sleep 2 - printlog "We rename the object via the Context-menu." - if hMenuFindSelect(27027, true, 15) = false then + endif + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 + DocumentImpress.TypeKeys "<TAB TAB>" 'Select the second object. + 'Bring up the kontext-menu for the object + sleep (1) + DocumentImpress.TypeKeys "<SHIFT F10>" + sleep 2 + printlog "We rename the object via the Context-menu." + if hMenuFindSelect( MENUITEM_RENAME, true, 15) = false then Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif - printlog "Read out what the name is, and check if it's correct." - sleep 1 - kontext "NameDlgObject" - value12 = NameField.GetText - NameDlgObject.OK - - if value12 = "Second" then + endif + printlog "Read out what the name is, and check if it's correct." + sleep 1 + kontext "NameDlgObject" + value12 = NameField.GetText + NameDlgObject.OK + + if value12 = "Second" then printlog "Second object was found correctly" - else + else Warnlog "Wrong object or object-name! The name found was: " + value12 - endif - - kontext "DocumentImpress" - hMouseClick DocumentImpress, 90, 90 - DocumentImpress.TypeKeys "<TAB TAB TAB>" 'Select the third object. - 'Bring up the kontext-menu for the object - sleep (2) - DocumentImpress.TypeKeys "<SHIFT F10>" - sleep 2 - printlog "We rename the object via the Context-menu." - if hMenuFindSelect(27027, true, 15) = false then + endif + + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 + DocumentImpress.TypeKeys "<TAB TAB TAB>" 'Select the third object. + 'Bring up the kontext-menu for the object + sleep (2) + DocumentImpress.TypeKeys "<SHIFT F10>" + sleep 2 + printlog "We rename the object via the Context-menu." + if hMenuFindSelect( MENUITEM_RENAME, true, 15) = false then Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif - printlog "Read out what the name is, and check if it's correct." - kontext "NameDlgObject" - value13 = NameField.GetText - NameDlgObject.OK + endif + printlog "Read out what the name is, and check if it's correct." + kontext "NameDlgObject" + value13 = NameField.GetText + NameDlgObject.OK - if value13 = "Third" then + if value13 = "Third" then printlog "Third object was found correctly" - else + else Warnlog "Wrong object or object-name! The name found was: " + value13 - endif + endif - '/// Close the bars we opened before. ///' - kontext "Connectorsbar" - if Connectorsbar.Exists then Connectorsbar.Close - kontext "SymbolShapes" - if SymbolShapes.Exists then SymbolShapes.Close - kontext "StarShapes" - if StarShapes.Exists then StarShapes.Close + '/// Close the bars we opened before. ///' + kontext "Connectorsbar" + if Connectorsbar.Exists then Connectorsbar.Close + kontext "SymbolShapes" + if SymbolShapes.Exists then SymbolShapes.Close + kontext "StarShapes" + if StarShapes.Exists then StarShapes.Close - '/// Close Presentation. End testcase ///' - Call hCloseDocument + '/// Close Presentation. End testcase ///' + Call hCloseDocument endcase 'tiSlideCopyNewPresentation '------------------------------------------------------------------------- @@ -273,17 +291,17 @@ testcase tiSlideCopyDuplicate sleep 1 try Verbinder.TearOff ' insert connector - catch + catch warnlog "bug for GH from FHA; .tearoff doesnt tell success" - endcatch - kontext "Connectorsbar" - sleep 1 - Verbinder.click - sleep 1 - kontext "DocumentImpress" - gMouseDown (10,10) - gMouseMove (10,10,30,30) - gMouseUp (30,30) + endcatch + kontext "Connectorsbar" + sleep 1 + Verbinder.click + sleep 1 + kontext "DocumentImpress" + gMouseDown (10,10) + gMouseMove (10,10,30,30) + gMouseUp (30,30) hTypeKeys "<ESCAPE>" hTypeKeys "<TAB>", 1 @@ -298,14 +316,14 @@ testcase tiSlideCopyDuplicate Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif - kontext "NameDlgObject" - NameField.SetText "First" - NameDlgObject.OK - sleep 1 + endif + kontext "NameDlgObject" + NameField.SetText "First" + NameDlgObject.OK + sleep 1 - kontext "DocumentImpress" - hMouseClick DocumentImpress, 90, 90 + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 printlog "2 Insert Door-plate" kontext "Toolbar" @@ -314,19 +332,19 @@ testcase tiSlideCopyDuplicate StarShapes.TearOff catch warnlog "bug for GH from FHA; .tearoff doesnt tell success" - endcatch - kontext "StarShapes" - sleep 1 - StarShapesDoorplate.click - sleep 1 - kontext "DocumentImpress" - gMouseDown (40,40) - gMouseMove (40,40,60,60) - gMouseUp (60,60) - - hTypeKeys "<ESCAPE>" - hTypeKeys "<TAB>", 2 - sleep (1) + endcatch + kontext "StarShapes" + sleep 1 + StarShapesDoorplate.click + sleep 1 + kontext "DocumentImpress" + gMouseDown (40,40) + gMouseMove (40,40,60,60) + gMouseUp (60,60) + + hTypeKeys "<ESCAPE>" + hTypeKeys "<TAB>", 2 + sleep (1) printlog "Rename object" kontext "DocumentImpress" @@ -337,14 +355,14 @@ testcase tiSlideCopyDuplicate Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif - kontext "NameDlgObject" - NameField.SetText "Second" - NameDlgObject.OK - sleep 1 + endif + kontext "NameDlgObject" + NameField.SetText "Second" + NameDlgObject.OK + sleep 1 - kontext "DocumentImpress" - hMouseClick DocumentImpress, 90, 90 + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 printlog "Insert Smiley." kontext "Toolbar" @@ -353,18 +371,18 @@ testcase tiSlideCopyDuplicate SymbolShapes.TearOff catch warnlog "bug for GH from FHA; .tearoff doesnt tell success" - endcatch - kontext "SymbolShapes" - sleep 1 - SymbolShapesSmiley.Click - sleep 1 - gMouseDown (70,70) - gMouseMove (70,70,89,89) - gMouseUp (89,89) - - hTypeKeys "<ESCAPE>" - hTypeKeys "<TAB>", 3 - sleep (1) + endcatch + kontext "SymbolShapes" + sleep 1 + SymbolShapesSmiley.Click + sleep 1 + gMouseDown (70,70) + gMouseMove (70,70,89,89) + gMouseUp (89,89) + + hTypeKeys "<ESCAPE>" + hTypeKeys "<TAB>", 3 + sleep (1) printlog "rename object" DocumentImpress.TypeKeys "<SHIFT F10>" @@ -374,14 +392,14 @@ testcase tiSlideCopyDuplicate Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif - kontext "NameDlgObject" - NameField.SetText "Third" - NameDlgObject.OK - sleep 1 + endif + kontext "NameDlgObject" + NameField.SetText "Third" + NameDlgObject.OK + sleep 1 - kontext "DocumentImpress" - hMouseClick DocumentImpress, 90, 90 + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 printlog "Close the bars we opened before." kontext "Connectorsbar" @@ -402,24 +420,24 @@ testcase tiSlideCopyDuplicate Warnlog "Context-Menu-entry `Copy` was not found.Therefore the test ends." Call hCloseDocument Goto Endsub - endif + endif printlog "Paste the content from the Clipboard" kontext "Slides" printlog "open context-menu choose 'paste'" - EditPaste + EditPaste - kontext "InsertPaste" - if InsertPaste.Exists(1) then + kontext "InsertPaste" + if InsertPaste.Exists(1) then After.Check InsertPaste.OK endif sleep (2) printlog "Check if we have two slides, and that the objects exists, and has the right values " - kontext "Slides" - SlidesControl.TypeKeys "<PAGEUP>" + kontext "Slides" + SlidesControl.TypeKeys "<PAGEUP>" for i = 1 to 2 Printlog "Checking objects the " + i + " + time." @@ -443,21 +461,21 @@ testcase tiSlideCopyDuplicate NameDlgObject.OK if value1 = "First" then - printlog "First object was found correctly" + printlog "First object was found correctly" else - Warnlog "Wrong object or object-name! The name found was: " + value1 + Warnlog "Wrong object or object-name! The name found was: " + value1 endif hTypeKeys "<ESCAPE>" DocumentImpress.TypeKeys "<TAB>", 2 - sleep (1) + sleep (1) DocumentImpress.TypeKeys "<SHIFT F10>" printlog "Choose rename" if hMenuFindSelect(27027, true, 15) = false then - Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." - Call hCloseDocument - Goto Endsub + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub endif printlog "Read out what the name is, and check if its correct." @@ -466,9 +484,9 @@ testcase tiSlideCopyDuplicate NameDlgObject.OK if value12 = "Second" then - printlog "Second object was found correctly" + printlog "Second object was found correctly" else - Warnlog "Wrong object or object-name! The name found was: " + value12 + Warnlog "Wrong object or object-name! The name found was: " + value12 endif hTypeKeys "<ESCAPE>" @@ -481,9 +499,9 @@ testcase tiSlideCopyDuplicate sleep 1 printlog "Choose rename" if hMenuFindSelect(27027, true, 15) = false then - Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." - Call hCloseDocument - Goto Endsub + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub endif printlog "Read out what the name is, and check if its correct." @@ -492,13 +510,13 @@ testcase tiSlideCopyDuplicate NameDlgObject.OK if value13 = "Third" then - printlog "Third object was found correctly" + printlog "Third object was found correctly" else - Warnlog "Wrong object or object-name! The name found was: " + value13 + Warnlog "Wrong object or object-name! The name found was: " + value13 endif kontext "Slides" SlidesControl.TypeKeys "<DOWN>" - next i + next i printlog " Close Presentation. End testcase " Call hCloseDocument @@ -507,453 +525,453 @@ endcase 'tiSlidecopyDuplicate '----------------------------------------------------------------------- testcase tiSlideCopyPasteSpecial -qaerrorlog "#i93377#: Paste special dialog does not come up with kontext on slide pane" -goto endsub - + qaerrorlog "#i93377#: Paste special dialog does not come up with kontext on slide pane" + goto endsub + Dim value1 as string Dim value2 as string Dim value3 as string - '/// Copies slide, and pastes it with "Paste Special", ///' - '/// just to see if the office can handle it ///' - '/// Make new presentation ///' - Call hNewDocument - '/// Insert three objects: Connector, Door-plate, and Smiley ///' + '/// Copies slide, and pastes it with "Paste Special", ///' + '/// just to see if the office can handle it ///' + '/// Make new presentation ///' + Call hNewDocument + '/// Insert three objects: Connector, Door-plate, and Smiley ///' - '1 Insert Connector. - kontext "Toolbar" - sleep 1 - try + '1 Insert Connector. + kontext "Toolbar" + sleep 1 + try Verbinder.TearOff ' insert connector - catch + catch warnlog "bug for GH from FHA; .tearoff doesnt tell success" - endcatch - kontext "Connectorsbar" - sleep 1 - Verbinder.click - sleep 1 - gMouseDown (10,10) - gMouseMove (10,10,30,30) - gMouseUp (30,30) - - kontext "DocumentImpress" - hMouseClick DocumentImpress, 90, 90 - - '2 Insert Door-plate. - kontext "Toolbar" - sleep 1 - try + endcatch + kontext "Connectorsbar" + sleep 1 + Verbinder.click + sleep 1 + gMouseDown (10,10) + gMouseMove (10,10,30,30) + gMouseUp (30,30) + + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 + + '2 Insert Door-plate. + kontext "Toolbar" + sleep 1 + try StarShapes.TearOff ' insert connector - catch + catch warnlog "bug for GH from FHA; .tearoff doesnt tell success" - endcatch - kontext "StarShapes" - sleep 1 - StarShapesDoorplate.click - sleep 1 - gMouseDown (40,40) - gMouseMove (40,40,60,60) - gMouseUp (60,60) - - kontext "DocumentImpress" - hMouseClick DocumentImpress, 90, 90 - - '3 Insert Smiley. - kontext "Toolbar" - sleep 1 - try + endcatch + kontext "StarShapes" + sleep 1 + StarShapesDoorplate.click + sleep 1 + gMouseDown (40,40) + gMouseMove (40,40,60,60) + gMouseUp (60,60) + + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 + + '3 Insert Smiley. + kontext "Toolbar" + sleep 1 + try SymbolShapes.TearOff ' insert connector - catch + catch warnlog "bug for GH from FHA; .tearoff doesnt tell success" - endcatch - kontext "SymbolShapes" - sleep 1 - SymbolShapesSmiley.Click - sleep 1 - gMouseDown (70,70) - gMouseMove (70,70,89,89) - gMouseUp (89,89) - - '/// Copy the slide to the clipboard ///' - kontext "Slides" - SlidesControl.TypeKeys "<PAGEUP>" - SlidesControl.TypeKeys "<SHIFT F10>" - sleep 1 - 'Choose `Copy` - if hMenuFindSelect(5711, true, 10) = false then + endcatch + kontext "SymbolShapes" + sleep 1 + SymbolShapesSmiley.Click + sleep 1 + gMouseDown (70,70) + gMouseMove (70,70,89,89) + gMouseUp (89,89) + + '/// Copy the slide to the clipboard ///' + kontext "Slides" + SlidesControl.TypeKeys "<PAGEUP>" + SlidesControl.TypeKeys "<SHIFT F10>" + sleep 1 + 'Choose `Copy` + if hMenuFindSelect(5711, true, 10) = false then Warnlog "Context-Menu-entry `Copy` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif - - '/// Try to paste special. And check that the office still stays alive ///' - EditPasteSpecial - kontext "InhaltEinfuegen" - InhaltEinfuegen.OK - - '/// Close the bars we opened before. ///' - kontext "Connectorsbar" - if Connectorsbar.Exists then Connectorsbar.Close - kontext "SymbolShapes" - if SymbolShapes.Exists then SymbolShapes.Close - kontext "StarShapes" - if StarShapes.Exists then StarShapes.Close + endif + + '/// Try to paste special. And check that the office still stays alive ///' + EditPasteSpecial + kontext "InhaltEinfuegen" + InhaltEinfuegen.OK + + '/// Close the bars we opened before. ///' + kontext "Connectorsbar" + if Connectorsbar.Exists then Connectorsbar.Close + kontext "SymbolShapes" + if SymbolShapes.Exists then SymbolShapes.Close + kontext "StarShapes" + if StarShapes.Exists then StarShapes.Close - sleep 1 - kontext "DocumentImpress" - '/// Close Presentation. End testcase ///' + sleep 1 + kontext "DocumentImpress" + '/// Close Presentation. End testcase ///' - Call hCloseDocument + Call hCloseDocument endcase 'tiSlideCopyPasteSpecial '----------------------------------------------------------------------- testcase tiSlideCopyInSlideSorter -qaerrorlog "#i58418#: Pasting in slide sorter sets slide to wrong position" -goto endsub - + qaerrorlog "#i58418#: Pasting in slide sorter sets slide to wrong position" + goto endsub + Dim value1 as string Dim value2 as string Dim value3 as string - '/// Copies slides within the slidesorter, and makes sure they are pasted on the correct position ///' - '/// Make new presentation ///' - Call hNewDocument - '/// Insert an object: Connector, on the first slide ///' - kontext "Toolbar" - sleep 1 - try + '/// Copies slides within the slidesorter, and makes sure they are pasted on the correct position ///' + '/// Make new presentation ///' + Call hNewDocument + '/// Insert an object: Connector, on the first slide ///' + kontext "Toolbar" + sleep 1 + try Verbinder.TearOff - catch + catch warnlog "bug for GH from FHA; .tearoff doesnt tell success" - endcatch - kontext "Connectorsbar" - sleep 1 - Verbinder.click - Verbinder.click - Verbinder.click - sleep 1 - kontext "DocumentImpress" - gMouseDown (10,10) - gMouseMove (10,10,30,30) - gMouseUp (30,30) - Printlog " Inserted a Connector-object." - 'Rename object - hTypeKeys "<ESCAPE>" - hTypeKeys "<TAB>", 1 - DocumentImpress.TypeKeys "<SHIFT F10>" - - 'Rename - if hMenuFindSelect(27027, true, 14) = false then + endcatch + kontext "Connectorsbar" + sleep 1 + Verbinder.click + Verbinder.click + Verbinder.click + sleep 1 + kontext "DocumentImpress" + gMouseDown (10,10) + gMouseMove (10,10,30,30) + gMouseUp (30,30) + Printlog " Inserted a Connector-object." + 'Rename object + hTypeKeys "<ESCAPE>" + hTypeKeys "<TAB>", 1 + DocumentImpress.TypeKeys "<SHIFT F10>" + + 'Rename + if hMenuFindSelect(27027, true, 14) = false then Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif - kontext "NameDlgObject" - NameField.SetText "First" - NameDlgObject.OK - sleep 1 - Printlog " Renamed a the object to 'First'" - - sleep 3 - '/// Rename slide to "1" ///' - kontext "Slides" - SlidesControl.TypeKeys "<PAGEUP>" - SlidesControl.TypeKeys "<SHIFT F10>" - sleep 3 - 'Rename - if hMenuFindSelect(27268, true, 2) = false then + endif + kontext "NameDlgObject" + NameField.SetText "First" + NameDlgObject.OK + sleep 1 + Printlog " Renamed a the object to 'First'" + + sleep 3 + '/// Rename slide to "1" ///' + kontext "Slides" + SlidesControl.TypeKeys "<PAGEUP>" + SlidesControl.TypeKeys "<SHIFT F10>" + sleep 3 + 'Rename + if hMenuFindSelect(27268, true, 2) = false then Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif - - kontext "NameDlgPage" - NameField.SetText "1" - NameDlgPage.OK - sleep 1 - Printlog " Renamed the Slide to '1'" - - kontext "DocumentImpress" - hMouseClick DocumentImpress, 90, 90 - sleep 3 - - '/// Insert a new slide ///' - kontext "Slides" - SlidesControl.TypeKeys "<TAB><PAGEDOWN>" - SlidesControl.OpenContextMenu - sleep 3 - 'Insert slide - if hMenuFindSelect(27014, true, 1) = false then + endif + + kontext "NameDlgPage" + NameField.SetText "1" + NameDlgPage.OK + sleep 1 + Printlog " Renamed the Slide to '1'" + + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 + sleep 3 + + '/// Insert a new slide ///' + kontext "Slides" + SlidesControl.TypeKeys "<TAB><PAGEDOWN>" + SlidesControl.OpenContextMenu + sleep 3 + 'Insert slide + if hMenuFindSelect(27014, true, 1) = false then Warnlog "Context-Menu-entry `Insert slide` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif - Printlog " Inserted a new slide." - '/// Insert an object: Door-plate, on the second slide ///' - kontext "Toolbar" - sleep 1 - try + endif + Printlog " Inserted a new slide." + '/// Insert an object: Door-plate, on the second slide ///' + kontext "Toolbar" + sleep 1 + try StarShapes.TearOff - catch + catch warnlog "bug for GH from FHA; .tearoff doesnt tell success" - endcatch - kontext "StarShapes" - sleep 1 - StarShapesDoorplate.click - sleep 1 - kontext "DocumentImpress" - gMouseDown (40,40) - gMouseMove (40,40,60,60) - gMouseUp (60,60) - Printlog " Inserted a Door-Plate-object." - - hTypeKeys "<ESCAPE>" - hTypeKeys "<TAB>", 2 - hTypeKeys "<SHIFT F10>" - - ' Rename - if hMenuFindSelect(27027, true, 15) = false then + endcatch + kontext "StarShapes" + sleep 1 + StarShapesDoorplate.click + sleep 1 + kontext "DocumentImpress" + gMouseDown (40,40) + gMouseMove (40,40,60,60) + gMouseUp (60,60) + Printlog " Inserted a Door-Plate-object." + + hTypeKeys "<ESCAPE>" + hTypeKeys "<TAB>", 2 + hTypeKeys "<SHIFT F10>" + + ' Rename + if hMenuFindSelect(27027, true, 15) = false then Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif - - kontext "NameDlgObject" - NameField.SetText "Second" - NameDlgObject.OK - sleep 1 - Printlog " Renamed a the object to 'Second'" - - kontext "DocumentImpress" - hMouseClick DocumentImpress, 90, 90 - sleep 2 - '/// Rename slide to "2" ///' - kontext "Slides" - SlidesControl.OpenContextMenu - sleep 3 - ' Rename - if hMenuFindSelect(27268, true, 3) = false then + endif + + kontext "NameDlgObject" + NameField.SetText "Second" + NameDlgObject.OK + sleep 1 + Printlog " Renamed a the object to 'Second'" + + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 + sleep 2 + '/// Rename slide to "2" ///' + kontext "Slides" + SlidesControl.OpenContextMenu + sleep 3 + ' Rename + if hMenuFindSelect(27268, true, 3) = false then Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif - kontext "NameDlgPage" - NameField.SetText "2" - NameDlgPage.OK - sleep 1 - Printlog " Renamed the slide '2'" - - '/// Insert a new slide ///' - kontext "Slides" - Slidescontrol.TypeKeys "<PAGEDOWN>", 2 - Slidescontrol.TypeKeys "<SHIFT F10>" - sleep 3 - 'Insert slide - if hMenuFindSelect(27014, true, 1) = false then + endif + kontext "NameDlgPage" + NameField.SetText "2" + NameDlgPage.OK + sleep 1 + Printlog " Renamed the slide '2'" + + '/// Insert a new slide ///' + kontext "Slides" + Slidescontrol.TypeKeys "<PAGEDOWN>", 2 + Slidescontrol.TypeKeys "<SHIFT F10>" + sleep 3 + 'Insert slide + if hMenuFindSelect(27014, true, 1) = false then Warnlog "Context-Menu-entry `Insert slide` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif - Printlog " Inserted a new slide." + endif + Printlog " Inserted a new slide." - '/// Insert an object: Smiley, on the second slide ///' - kontext "Toolbar" - sleep 1 - try + '/// Insert an object: Smiley, on the second slide ///' + kontext "Toolbar" + sleep 1 + try SymbolShapes.TearOff - catch + catch warnlog "bug for GH from FHA; .tearoff doesnt tell success" - endcatch - kontext "SymbolShapes" - sleep 1 - SymbolShapesSmiley.Click - sleep 1 - gMouseDown (70,70) - gMouseMove (70,70,89,89) - gMouseUp (89,89) - Printlog " Inserted a Smiley-object." - - 'Rename object - hTypeKeys "<ESCAPE>" - hTypeKeys "<TAB>", 2 - hTypeKeys "<SHIFT F10>" - - 'Choose rename. - if hMenuFindSelect(27027, true, 15) = false then + endcatch + kontext "SymbolShapes" + sleep 1 + SymbolShapesSmiley.Click + sleep 1 + gMouseDown (70,70) + gMouseMove (70,70,89,89) + gMouseUp (89,89) + Printlog " Inserted a Smiley-object." + + 'Rename object + hTypeKeys "<ESCAPE>" + hTypeKeys "<TAB>", 2 + hTypeKeys "<SHIFT F10>" + + 'Choose rename. + if hMenuFindSelect(27027, true, 15) = false then Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif - kontext "NameDlgObject" - NameField.SetText "Third" - NameDlgObject.OK - Printlog " Renamed a the object to 'Third'" - - '/// Rename slide to "3" ///' - kontext "Slides" - Slidescontrol.TypeKeys "<PAGEDOWN>", 2 - SlidesControl.OpenContextMenu - sleep 3 - ' Rename - if hMenuFindSelect(27268, true, 3) = false then + endif + kontext "NameDlgObject" + NameField.SetText "Third" + NameDlgObject.OK + Printlog " Renamed a the object to 'Third'" + + '/// Rename slide to "3" ///' + kontext "Slides" + Slidescontrol.TypeKeys "<PAGEDOWN>", 2 + SlidesControl.OpenContextMenu + sleep 3 + ' Rename + if hMenuFindSelect(27268, true, 3) = false then Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif + endif + + kontext "NameDlgPage" + NameField.SetText "3" + NameDlgPage.OK + sleep 1 + Printlog " Renamed the slide '3'" + + '/// Close the bars we opened before. ///' + kontext "Connectorsbar" + if Connectorsbar.Exists then Connectorsbar.Close + kontext "SymbolShapes" + if SymbolShapes.Exists then SymbolShapes.Close + kontext "StarShapes" + if StarShapes.Exists then StarShapes.Close - kontext "NameDlgPage" - NameField.SetText "3" - NameDlgPage.OK - sleep 1 - Printlog " Renamed the slide '3'" + '/// Change to Slidesorter ///' + kontext "DocumentImpress" + ViewSlideSorter - '/// Close the bars we opened before. ///' - kontext "Connectorsbar" - if Connectorsbar.Exists then Connectorsbar.Close - kontext "SymbolShapes" - if SymbolShapes.Exists then SymbolShapes.Close - kontext "StarShapes" - if StarShapes.Exists then StarShapes.Close + '/// Now we have changed view to the slidesorter ///' - '/// Change to Slidesorter ///' - kontext "DocumentImpress" - ViewSlideSorter + kontext "Slides" + Printlog " Changed view to 'SlideSorter'" + '/// Make sure the last slide is selcted ///' + SlidesControl.TypeKeys "<TAB>" + SlidesControl.TypeKeys "<PAGEDOWN>", 3 - '/// Now we have changed view to the slidesorter ///' - - kontext "Slides" - Printlog " Changed view to 'SlideSorter'" - '/// Make sure the last slide is selcted ///' - SlidesControl.TypeKeys "<TAB>" - SlidesControl.TypeKeys "<PAGEDOWN>", 3 - - '/// Cut the last slide ///' - SlidesControl.TypeKeys "<MOD1 X>" + '/// Cut the last slide ///' + SlidesControl.TypeKeys "<MOD1 X>" - '/// Make sure the first slide is selected ///' - SlidesControl.TypeKeys "<TAB>" - SlidesControl.TypeKeys "<PAGEUP>", 2 - sleep 1 + '/// Make sure the first slide is selected ///' + SlidesControl.TypeKeys "<TAB>" + SlidesControl.TypeKeys "<PAGEUP>", 2 + sleep 1 - '/// Paste the Slide ///' - kontext "Slides" - SlidesControl.TypeKeys "<MOD1 V>" + '/// Paste the Slide ///' + kontext "Slides" + SlidesControl.TypeKeys "<MOD1 V>" - '/// choose "Before" as specification for where - Kontext "InsertPaste" - if InsertPaste.Exists(3) then + '/// choose "Before" as specification for where + Kontext "InsertPaste" + if InsertPaste.Exists(3) then Before.Check InsertPaste.OK Printlog " Pasted slide 'Before'" - else + else warnlog " Problem when copying/pasting slide." - endif - - '/// Check where the slide ended up ///' - kontext "Slides" - SlidesControl.TypeKeys "<TAB>" - SlidesControl.TypeKeys "<PAGEUP>", 3 'to get to the first slide - SlidesControl.TypeKeys "<SHIFT F10>" - sleep 3 - ' Rename - if hMenuFindSelect(27268, true, 3) = false then + endif + + '/// Check where the slide ended up ///' + kontext "Slides" + SlidesControl.TypeKeys "<TAB>" + SlidesControl.TypeKeys "<PAGEUP>", 3 'to get to the first slide + SlidesControl.TypeKeys "<SHIFT F10>" + sleep 3 + ' Rename + if hMenuFindSelect(27268, true, 3) = false then Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif + endif - kontext "NameDlgPage" - if NameField.GetText <> "3" then + kontext "NameDlgPage" + if NameField.GetText <> "3" then Warnlog "Wrong slide found! Expected nr 3, but found " + NameField.GetText + "." - else + else Printlog " Slide nr 3 was found correctly." - endif - NameDlgPage.OK - sleep 1 - - kontext "Slides" - '/// Choose the slide in the middle (named "1") ///' - SlidesControl.TypeKeys "<TAB>" - SlidesControl.TypeKeys "<PAGEDOWN>", 3 'to get to the last slide - SlidesControl.TypeKeys "<PAGEUP>" 'to go back one step - SlidesControl.OpenContextMenu (true) - ' Check the name of that slide (via Rename) - if hMenuFindSelect(27268, true, 3) = false then + endif + NameDlgPage.OK + sleep 1 + + kontext "Slides" + '/// Choose the slide in the middle (named "1") ///' + SlidesControl.TypeKeys "<TAB>" + SlidesControl.TypeKeys "<PAGEDOWN>", 3 'to get to the last slide + SlidesControl.TypeKeys "<PAGEUP>" 'to go back one step + SlidesControl.OpenContextMenu (true) + ' Check the name of that slide (via Rename) + if hMenuFindSelect(27268, true, 3) = false then Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif + endif - kontext "NameDlgPage" - if NameField.GetText <> "1" then + kontext "NameDlgPage" + if NameField.GetText <> "1" then Warnlog "Wrong slide found! Expected nr 1, but found " + NameField.GetText + "." - else + else Printlog " Slide nr 1 was found correctly in the middle position." - endif - NameDlgPage.OK - sleep 1 - kontext "Slides" - - '/// Cut the slide ///' - SlidesControl.TypeKeys "<SHIFT F10>" - sleep 3 - if hMenuFindSelect(5710, true, 10) = false then + endif + NameDlgPage.OK + sleep 1 + kontext "Slides" + + '/// Cut the slide ///' + SlidesControl.TypeKeys "<SHIFT F10>" + sleep 3 + if hMenuFindSelect(5710, true, 10) = false then Warnlog "Context-Menu-entry `Cut` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif + endif - '/// Make sure we have selected the last slide ///' - SlidesControl.TypeKeys "<TAB>" - SlidesControl.TypeKeys "<PAGEDOWN>", 2 + '/// Make sure we have selected the last slide ///' + SlidesControl.TypeKeys "<TAB>" + SlidesControl.TypeKeys "<PAGEDOWN>", 2 - '/// Place the mousepointer to the left of the first slide ///' - sleep 1 - kontext "Slides" - SlidesControl.MouseMove 2, 3 - SlidesControl.OpenContextMenu true - sleep 3 + '/// Place the mousepointer to the left of the first slide ///' + sleep 1 + kontext "Slides" + SlidesControl.MouseMove 2, 3 + SlidesControl.OpenContextMenu true + sleep 3 - '/// Paste the Slide ///' - if hMenuFindSelect(5712, true, 12) = false then + '/// Paste the Slide ///' + if hMenuFindSelect(5712, true, 12) = false then Warnlog "Context-Menu-entry `Paste` were not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif - sleep 1 + endif + sleep 1 - '/// Choose "After" as specification for where ///' - Kontext "InsertPaste" - if InsertPaste.Exists(3) then + '/// Choose "After" as specification for where ///' + Kontext "InsertPaste" + if InsertPaste.Exists(3) then After.Check InsertPaste.OK Printlog " Pasted slide 'After'" - else + else warnlog " Problem when copying/pasting slide." - endif - - '/// Check where the slide ended up. Should have showed up at the last position ///' - kontext "Slides" - SlidesControl.TypeKeys "<TAB>" - SlidesControl.TypeKeys "<PAGEDOWN>", 3 'to get to the last slide - SlidesControl.TypeKeys "<SHIFT F10>" '= open context menu - sleep 3 - ' Rename - if hMenuFindSelect(27268, true, 3) = false then + endif + + '/// Check where the slide ended up. Should have showed up at the last position ///' + kontext "Slides" + SlidesControl.TypeKeys "<TAB>" + SlidesControl.TypeKeys "<PAGEDOWN>", 3 'to get to the last slide + SlidesControl.TypeKeys "<SHIFT F10>" '= open context menu + sleep 3 + ' Rename + if hMenuFindSelect(27268, true, 3) = false then Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." Call hCloseDocument Goto Endsub - endif + endif - kontext "NameDlgPage" - if NameField.GetText <> "1" then + kontext "NameDlgPage" + if NameField.GetText <> "1" then Warnlog "Wrong slide found! Expected nr 1, but found " + NameField.GetText + "." - else + else Printlog " Slide nr 1 was found correctly." - endif - NameDlgPage.OK - sleep 1 + endif + NameDlgPage.OK + sleep 1 - '/// Close Presentation. End testcase ///' - Call hCloseDocument + '/// Close Presentation. End testcase ///' + Call hCloseDocument endcase 'tiSlideCopyInSlideSorter '------------------------------------------------------------------------ diff --git a/testautomation/graphics/optional/includes/impress/i_slidelayer.inc b/testautomation/graphics/optional/includes/impress/i_slidelayer.inc index 597762e8cf7e..441e0a323099 100644 --- a/testautomation/graphics/optional/includes/impress/i_slidelayer.inc +++ b/testautomation/graphics/optional/includes/impress/i_slidelayer.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/impress/i_slideshow.inc b/testautomation/graphics/optional/includes/impress/i_slideshow.inc index 3a2b56fa5511..d313f444994b 100755..100644 --- a/testautomation/graphics/optional/includes/impress/i_slideshow.inc +++ b/testautomation/graphics/optional/includes/impress/i_slideshow.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/impress/i_slideshow2.inc b/testautomation/graphics/optional/includes/impress/i_slideshow2.inc index 1b88116f1b5a..b15beb28932d 100644 --- a/testautomation/graphics/optional/includes/impress/i_slideshow2.inc +++ b/testautomation/graphics/optional/includes/impress/i_slideshow2.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/impress/i_slideshow3.inc b/testautomation/graphics/optional/includes/impress/i_slideshow3.inc index 0cf806cd74cd..63a04aa6f8d5 100644 --- a/testautomation/graphics/optional/includes/impress/i_slideshow3.inc +++ b/testautomation/graphics/optional/includes/impress/i_slideshow3.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/impress/i_stylist.inc b/testautomation/graphics/optional/includes/impress/i_stylist.inc index 97ddb39999df..7efe28089365 100644 --- a/testautomation/graphics/optional/includes/impress/i_stylist.inc +++ b/testautomation/graphics/optional/includes/impress/i_stylist.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/impress/i_us2_present.inc b/testautomation/graphics/optional/includes/impress/i_us2_present.inc index 6c8fede6a530..1a844f299c2d 100644 --- a/testautomation/graphics/optional/includes/impress/i_us2_present.inc +++ b/testautomation/graphics/optional/includes/impress/i_us2_present.inc @@ -25,13 +25,10 @@ ' '/************************************************************************** '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Impress User-Scenario: Beginner makes presentation. '* -'*************************************************************************** -' #1 i_us2_pres1 -' #1 i_us2_pres2 '\************************************************************************** testcase i_us2_pres1 @@ -43,218 +40,217 @@ testcase i_us2_pres1 kontext "DocumentImpress" printlog "New - Wizard - Presentation." FileAutopilotPresentation - printlog "Called File-Autopilot-Presentation." - printlog "Create from Template" - kontext "AutoPilotPraesentation1" - FromTemplate.Check - 'This part is for language-indepencancy - if gOOO = TRUE then - TemplateRegion.Select (1) - printlog "Choose a Presentation" - TemplateList.Select (2) - else - TemplateRegion.Select (1) - if TemplateList.GetItemCount < 40 then + printlog "Called File-Autopilot-Presentation." + printlog "Create from Template" + kontext "AutoPilotPraesentation1" + FromTemplate.Check + 'This part is for language-indepencancy + if gOOO = TRUE then + TemplateRegion.Select (1) + printlog "Choose a Presentation" + TemplateList.Select (2) + else + TemplateRegion.Select (1) + if TemplateList.GetItemCount < 40 then TemplateRegion.Select (2) if TemplateList.GetItemCount < 40 then - TemplateRegion.Select (3) - if TemplateList.GetItemCount < 40 then - Warnlog " No Templates selectable in the wizard. Please check." - goto endsub - endif + TemplateRegion.Select (3) + if TemplateList.GetItemCount < 40 then + Warnlog " No Templates selectable in the wizard. Please check." + goto endsub + endif endif - endif - printlog "Choose a Presentation" - TemplateList.Select (4) - endif - printlog "Next" - Nextbutton.Click - sleep (1) - Backbutton.Click - sleep (1) - Nextbutton.Click + endif + printlog "Choose a Presentation" + TemplateList.Select (4) + endif + printlog "Next" + Nextbutton.Click + sleep (1) + Backbutton.Click + sleep (1) + Nextbutton.Click - printlog " Switched to the second Wizard-page." - sleep (1) - printlog "Presentations" - kontext "AutoPilotPraesentation2" - printlog "Output: Screen" - if gOOO = TRUE then 'OpenOffice.org - Background.Select (2) - if Backgroundchoice.GetItemCount < 2 then + printlog " Switched to the second Wizard-page." + sleep (1) + printlog "Presentations" + kontext "AutoPilotPraesentation2" + printlog "Output: Screen" + if gOOO = TRUE then 'OpenOffice.org + Background.Select (2) + if Backgroundchoice.GetItemCount < 2 then Background.Select (1) if Backgroundchoice.GetItemCount = 0 then - Warnlog " No Backgrounds selectable in the wizard. Please check." - goto endsub + Warnlog " No Backgrounds selectable in the wizard. Please check." + goto endsub endif - endif - Backgroundchoice.Select (2) - else 'StarOffice - Background.Select (3) - if Backgroundchoice.GetItemCount < 10 then + endif + Backgroundchoice.Select (2) + else 'StarOffice + Background.Select (3) + if Backgroundchoice.GetItemCount < 10 then Background.Select (2) if Backgroundchoice.GetItemCount < 10 then - Background.Select (3) - if Backgroundchoice.GetItemCount < 10 then - Warnlog " No Backgrounds selectable in the wizard. Please check." - goto endsub - endif + Background.Select (3) + if Backgroundchoice.GetItemCount < 10 then + Warnlog " No Backgrounds selectable in the wizard. Please check." + goto endsub + endif endif - endif - Backgroundchoice.Select (5) - endif - Screen.Check - printlog "Next" - Nextbutton.Click + endif + Backgroundchoice.Select (5) + endif + Screen.Check + printlog "Next" + Nextbutton.Click - printlog " Switched to the third Wizard-page." - sleep (1) - kontext "AutoPilotPraesentation3" - printlog "Random Effect. Random Speed. Click through every choice." - Effect.Select (15) - Speed.Select (3) - WaitSlot (5000) - Automatic.Check - Timebutton.SetText "00:00:15" - Break.SetText "00:00:20" - Logo.Check - printlog "Next" - Nextbutton.Click + printlog " Switched to the third Wizard-page." + sleep (1) + kontext "AutoPilotPraesentation3" + printlog "Random Effect. Random Speed. Click through every choice." + Effect.Select (15) + Speed.Select (3) + WaitSlot (5000) + Automatic.Check + Timebutton.SetText "00:00:15" + Break.SetText "00:00:20" + Logo.Check + printlog "Next" + Nextbutton.Click - printlog " Switched to the fourth Wizard-page." - sleep (1) - kontext "AutoPilotPraesentation4" - printlog "Fill in some company-name-subject-text" - AddName.SetText "Lala1" - AddTopic.SetText "Lala2" - Askinformation.SetText "Lala3" - printlog "Next" - Nextbutton.Click - printlog " Switched to the fifth Wizard-page." - sleep (1) - kontext "AutoPilotPraesentation5" - Summary.Check - printlog "Create" - WaitSlot (2000) - AutoPilotPraesentation5.OK + printlog " Switched to the fourth Wizard-page." + sleep (1) + kontext "AutoPilotPraesentation4" + printlog "Fill in some company-name-subject-text" + AddName.SetText "Lala1" + AddTopic.SetText "Lala2" + Askinformation.SetText "Lala3" + printlog "Next" + Nextbutton.Click + printlog " Switched to the fifth Wizard-page." + sleep (1) + kontext "AutoPilotPraesentation5" + Summary.Check + printlog "Create" + WaitSlot (2000) + AutoPilotPraesentation5.OK - sleep (1) - printlog " Pressed 'Create'." - printlog "Add a Slide via Insert - Slide." - Kontext "DocumentImpress" - hTypeKeys "What we will talk about" - gMouseClick 1,1 - Kontext "DocumentImpress" - DocumentImpress.UseMenu - hMenuSelectNr (4) - hMenuSelectNr (1) - sleep (1) + sleep (1) + printlog " Pressed 'Create'." + printlog "Add a Slide via Insert - Slide." + Kontext "DocumentImpress" + hTypeKeys "What we will talk about" + gMouseClick 1,1 + Kontext "DocumentImpress" + DocumentImpress.UseMenu + hMenuSelectNr (4) + hMenuSelectNr (1) + sleep (1) - kontext "Slides" - SlidesControl.TypeKeys "<HOME><RETURN>" - kontext "DocumentImpress" - DocumentImpress.TypeKeys "<TAB>Text we just wrote..." - printlog "Switch to the second slide." - kontext "Slides" - SlidesControl.TypeKeys "<DOWN><RETURN>" - SlidesControl.TypeKeys "<RETURN>" - kontext "DocumentImpress" - printlog "Insert three lines with text, all with different formatting." - call hTextrahmenErstellen ("First line with text",20,50,70,50) - call hTextrahmenErstellen ("Second line with text",20,60,70,60) - call hTextrahmenErstellen ("Third line with text",20,70,70,70) - printlog "Go down to the eleventh slide." - kontext "Slides" - SlidesControl.TypeKeys "<HOME>" - SlidesControl.TypeKeys "<PAGEDOWN>", 10 - SlidesControl.TypeKeys "<RETURN>" -call sSelectEmptyLayout - printlog "Insert Smiley, + two circles around the eyes, + two new pupils," - printlog "placed at some interesteing place inside the circles." - Kontext "Toolbar" - SymbolShapes.TearOff - sleep (1) - kontext "SymbolShapes" - SymbolShapesSmiley.Click - sleep (1) - kontext "DrawingObjectbar" - AreaFilling.TypeKeys "<HOME>" - AreaFilling.TypeKeys "<DOWN>", 10 - printlog "Select (11) 'Lime-Green" - AreaFilling.TypeKeys "<RETURN>" - sleep (1) - gMouseMove (53,50,90,80) - Kontext "Toolbar" - Ellipsen.Click - kontext "SymbolShapes" - SymbolShapes.Close - Kontext "DocumentImpress" - gMouseMove (60,43,70,65) - hTypeKeys "<Escape>" - Kontext "Toolbar" - Ellipsen.Click - gMouseMove (65,57,69,63) - hTypeKeys "<Escape>" - Kontext "Toolbar" - Ellipsen.Click - gMouseMove (70,50,82,65) - hTypeKeys "<Escape>" - Kontext "Toolbar" - Ellipsen.Click - gMouseMove (77,57,80,63) - hTypeKeys "<Escape>" - sleep (1) + kontext "Slides" + SlidesControl.TypeKeys "<HOME><RETURN>" + kontext "DocumentImpress" + DocumentImpress.TypeKeys "<TAB>Text we just wrote..." + printlog "Switch to the second slide." + kontext "Slides" + SlidesControl.TypeKeys "<DOWN><RETURN>" + SlidesControl.TypeKeys "<RETURN>" + kontext "DocumentImpress" + printlog "Insert three lines with text, all with different formatting." + call hTextrahmenErstellen ("First line with text",20,50,70,50) + call hTextrahmenErstellen ("Second line with text",20,60,70,60) + call hTextrahmenErstellen ("Third line with text",20,70,70,70) + printlog "Go down to the eleventh slide." + kontext "Slides" + SlidesControl.TypeKeys "<HOME>" + SlidesControl.TypeKeys "<PAGEDOWN>", 10 + SlidesControl.TypeKeys "<RETURN>" + printlog "Insert Smiley, + two circles around the eyes, + two new pupils," + printlog "placed at some interesteing place inside the circles." + Kontext "Toolbar" + SymbolShapes.TearOff + sleep (1) + kontext "SymbolShapes" + SymbolShapesSmiley.Click + sleep (1) + kontext "DrawingObjectbar" + AreaFilling.TypeKeys "<HOME>" + AreaFilling.TypeKeys "<DOWN>", 10 + printlog "Select (11) 'Lime-Green" + AreaFilling.TypeKeys "<RETURN>" + sleep (1) + gMouseMove (53,50,90,80) + Kontext "Toolbar" + Ellipsen.Click + kontext "SymbolShapes" + SymbolShapes.Close + Kontext "DocumentImpress" + gMouseMove (60,43,70,65) + hTypeKeys "<Escape>" + Kontext "Toolbar" + Ellipsen.Click + gMouseMove (65,57,69,63) + hTypeKeys "<Escape>" + Kontext "Toolbar" + Ellipsen.Click + gMouseMove (70,50,82,65) + hTypeKeys "<Escape>" + Kontext "Toolbar" + Ellipsen.Click + gMouseMove (77,57,80,63) + hTypeKeys "<Escape>" + sleep (1) - printlog "Insert new slide." - kontext "Slides" - printlog "get to the last slide." - SlidesControl.TypeKeys "<PAGEDOWN>", 15 - SlidesControl.TypeKeys "<RETURN>" - printlog "Delete the two fields the stylist has." - kontext "DocumentImpress" - gMouseClick 1,1 - EditSelectAll - DocumentImpress.TypeKeys "<DELETE>" - printlog "Insert-Picture-From File. (some crazy picture which fits the theme)" - InsertGraphicsFromFile - Kontext "GrafikEinfuegenDlg" - printlog "Open graphic" - Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\ball.eps") - Oeffnen.Click - gMouseClick 1,1 - printlog "Add a text above the picture. 'There is movement..." - call hTextrahmenErstellen ("There is movement...",20,20,70,30) + printlog "Insert new slide." + kontext "Slides" + printlog "get to the last slide." + SlidesControl.TypeKeys "<PAGEDOWN>", 15 + SlidesControl.TypeKeys "<RETURN>" + printlog "Delete the two fields the stylist has." + kontext "DocumentImpress" + gMouseClick 1,1 + EditSelectAll + DocumentImpress.TypeKeys "<DELETE>" + printlog "Insert-Picture-From File. (some crazy picture which fits the theme)" + InsertGraphicsFromFile + Kontext "GrafikEinfuegenDlg" + printlog "Open graphic" + Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\ball.eps") + Oeffnen.Click + gMouseClick 1,1 + printlog "Add a text above the picture. 'There is movement..." + call hTextrahmenErstellen ("There is movement...",20,20,70,30) - printlog "Add a new slide." - InsertSlide - printlog " Inserted new slide." - kontext "DocumentImpress" - printlog "Bla bla about everything..." - call hTextrahmenErstellen ("Bla bla about everything...",20,20,70,30) + printlog "Add a new slide." + InsertSlide + printlog " Inserted new slide." + kontext "DocumentImpress" + printlog "Bla bla about everything..." + call hTextrahmenErstellen ("Bla bla about everything...",20,20,70,30) - printlog "Add a new slide." - InsertSlide - printlog " Inserted new slide." - kontext "DocumentImpress" - printlog "Write text: Q & A" - call hTextrahmenErstellen ("Q & A",20,20,70,30) - DocumentImpress.TypeKeys "<SHIFT HOME>" - sleep (1) + printlog "Add a new slide." + InsertSlide + printlog " Inserted new slide." + kontext "DocumentImpress" + printlog "Write text: Q & A" + call hTextrahmenErstellen ("Q & A",20,20,70,30) + DocumentImpress.TypeKeys "<SHIFT HOME>" + sleep (1) - printlog "Add a new slide." - InsertSlide - kontext "DocumentImpress" + printlog "Add a new slide." + InsertSlide + kontext "DocumentImpress" - printlog "Thanks for listening, time for coffee... (ending)" - call hTextrahmenErstellen ("Class dismissed...",20,20,70,30) + printlog "Thanks for listening, time for coffee... (ending)" + call hTextrahmenErstellen ("Class dismissed...",20,20,70,30) - printlog "Save Document" - call hFileSaveAsKill (PresentationFile1) - printlog "OK saved at ", PresentationFile1 - sleep (1) + printlog "Save Document" + call hFileSaveAsKill (PresentationFile1) + printlog "OK saved at ", PresentationFile1 + sleep (1) - printlog "Close Document" - Call hCloseDocument + printlog "Close Document" + Call hCloseDocument endcase 'i_us2_pres1 '------------------------------------------------------------------------------ @@ -262,74 +258,74 @@ endcase 'i_us2_pres1 testcase i_us2_pres2 qaerrorlog "not yet ready." goto endsub - dim Result1, Result2 as integer - dim iPictures as integer - dim PresentationFile1, PresentationFile2, PresentationFileToBeLoaded as string - PresentationFile1 = (ConvertPath (gTesttoolPath + "graphics\required\input\rightfont.odp")) - PresentationFile2 = (ConvertPath (gOfficePath + "user\work\xxxxxx9.odp")) - kontext "DocumentImpress" - printlog "New - Wizard - Presentation" - FileAutopilotPresentation - printlog " Called File-Autopilot-Presentation." - printlog "Create from Template" - kontext "AutoPilotPraesentation1" - EmptyPresentation.Check - AutoPilotPraesentation1.TypeKeys "<DOWN>" - sleep (3) - AutoPilotPraesentation1.TypeKeys "<DOWN>" - if Existingpresentation.IsChecked(5) then - printlog " Pressing down worked fine" - else - warnlog " Pressing down didnt work as expected." - endif - printlog "Click the Open-button" - ExistingOpen.Click - printlog "Check if the Open-dialogue is there" - kontext "GeneralFileDialog" - if GeneralFileDialog.Exists(10) = FALSE then - warnlog " Open-file-dialogue didnt show up." - else - GeneralFileDialog.Cancel - endif - sleep (3) - kontext "AutoPilotPraesentation1" - AutoPilotPraesentation1.TypeKeys "<SHIFT TAB>" - AutoPilotPraesentation1.TypeKeys "<UP>" - AutoPilotPraesentation1.TypeKeys "<DOWN>" - AutoPilotPraesentation1.TypeKeys "<TAB><TAB>" - sleep (1) - Existinglist.TypeKeys "<HOME>" - sleep (1) - Existinglist.TypeKeys "<DOWN>" - sleep (3) - if Existinglist.GetSelText = "" then - Warnlog " No entries in the recently-opened-files-list. Check if it's correct." - else - PresentationFileToBeLoaded = Existinglist.GetSelText - AutoPilotPraesentation1.OK - endif + dim Result1, Result2 as integer + dim iPictures as integer + dim PresentationFile1, PresentationFile2, PresentationFileToBeLoaded as string + PresentationFile1 = (ConvertPath (gTesttoolPath + "graphics\required\input\rightfont.odp")) + PresentationFile2 = (ConvertPath (gOfficePath + "user\work\xxxxxx9.odp")) + kontext "DocumentImpress" + printlog "New - Wizard - Presentation" + FileAutopilotPresentation + printlog " Called File-Autopilot-Presentation." + printlog "Create from Template" + kontext "AutoPilotPraesentation1" + EmptyPresentation.Check + AutoPilotPraesentation1.TypeKeys "<DOWN>" + sleep (3) + AutoPilotPraesentation1.TypeKeys "<DOWN>" + if Existingpresentation.IsChecked(5) then + printlog " Pressing down worked fine" + else + warnlog " Pressing down didnt work as expected." + endif + printlog "Click the Open-button" + ExistingOpen.Click + printlog "Check if the Open-dialogue is there" + kontext "GeneralFileDialog" + if GeneralFileDialog.Exists(10) = FALSE then + warnlog " Open-file-dialogue didnt show up." + else + GeneralFileDialog.Cancel + endif + sleep (3) + kontext "AutoPilotPraesentation1" + AutoPilotPraesentation1.TypeKeys "<SHIFT TAB>" + AutoPilotPraesentation1.TypeKeys "<UP>" + AutoPilotPraesentation1.TypeKeys "<DOWN>" + AutoPilotPraesentation1.TypeKeys "<TAB><TAB>" + sleep (1) + Existinglist.TypeKeys "<HOME>" + sleep (1) + Existinglist.TypeKeys "<DOWN>" + sleep (3) + if Existinglist.GetSelText = "" then + Warnlog " No entries in the recently-opened-files-list. Check if it's correct." + else + PresentationFileToBeLoaded = Existinglist.GetSelText + AutoPilotPraesentation1.OK + endif - kontext "DocumentImpress" - if DocumentImpress.Exists(10) = FALSE then - if DocumentImpress.StatusIsProgress = FALSE then - sleep (10) - if DocumentImpress.StatusIsProgress then - warnlog " Took over 20 seconds to load the document Document: " + PresentationFileToBeLoaded + ". Stalled?" - endif - goto endsub - endif - else - printlog " Document " + PresentationFileToBeLoaded + " seemed to have been loaded correctly." - endif - sleep (3) - if DocumentImpress.StatusIsProgress then - sleep (5) - endif - printlog "Save Document" - call hFileSaveAsKill (PresentationFile2) - printlog "OK saved at ", PresentationFile2 - sleep (1) + kontext "DocumentImpress" + if DocumentImpress.Exists(10) = FALSE then + if DocumentImpress.StatusIsProgress = FALSE then + sleep (10) + if DocumentImpress.StatusIsProgress then + warnlog " Took over 20 seconds to load the document Document: " + PresentationFileToBeLoaded + ". Stalled?" + endif + goto endsub + endif + else + printlog " Document " + PresentationFileToBeLoaded + " seemed to have been loaded correctly." + endif + sleep (3) + if DocumentImpress.StatusIsProgress then + sleep (5) + endif + printlog "Save Document" + call hFileSaveAsKill (PresentationFile2) + printlog "OK saved at ", PresentationFile2 + sleep (1) - printlog "Close Document" - Call hCloseDocument + printlog "Close Document" + Call hCloseDocument endcase 'i_us2_pres2 diff --git a/testautomation/graphics/optional/includes/impress/i_us_present.inc b/testautomation/graphics/optional/includes/impress/i_us_present.inc index 26a17b3a80be..4a711cf0a902 100644 --- a/testautomation/graphics/optional/includes/impress/i_us_present.inc +++ b/testautomation/graphics/optional/includes/impress/i_us_present.inc @@ -25,29 +25,25 @@ ' '/************************************************************************** '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Include-file for impress User-Scenario: Presentation. '* -'*************************************************************************** -' #1 i_us_presentation1 -' #1 i_us_presentation2 -' #1 i_us_presentation3 -' #1 i_us_presentation4 -' #1 i_us_presentation5 -' #1 i_us_presentation6 -' #1 i_us_presentation7 '\******************************************************************** testcase i_us_presentation1 - dim iPictures as integer + + dim iPictures as integer dim PresentationFile1 as string - PresentationFile1 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes1.odp"))) + + PresentationFile1 = ConvertPath( gOfficePath + "user\work\PowerPes1.odp" ) + printlog "New impress document" Call hNewDocument Call sSelectEmptyLayout WaitSlot (2000) kontext "DocumentImpress" + printlog "Add second Master-Page " ViewMasterPage kontext "Slides" @@ -64,6 +60,7 @@ testcase i_us_presentation1 sleep (1) printlog " Inserted second Master-Slide" + printlog "set background to picture(Gallery)" Kontext "Gallery" if Gallery.Exists(2) then @@ -76,32 +73,32 @@ testcase i_us_presentation1 if gOOO = TRUE then 'OpenOffice.org select case iSprache - case 01 : iPictures = 1 'English - case else : iPictures = 1 'Unknown - warnlog "Please insert the entrienumbers for 'Backgrounds'. Language: " + iSprache + case 01 : iPictures = 1 'English + case else : iPictures = 1 'Unknown + warnlog "Please insert the entrienumbers for 'Backgrounds'. Language: " + iSprache end select else ' StarOffice... select case iSprache - case 01 : iPictures = 21 'English - case 07 : iPictures = 28 'Russian - case 31 : iPictures = 04 'Netherlands - case 33 : iPictures = 22 'French - case 34 : iPictures = 12 'Spanish - case 36 : iPictures = 17 'Hungaria - case 39 : iPictures = 23 'Italian - case 46 : iPictures = 09 'Swedish - case 48 : iPictures = 20 'Polish - case 49 : iPictures = 11 'German - case 55 : iPictures = 16 'Portuguese - case 81 : iPictures = 22 'Japanese - case 82 : iPictures = 04 'Korean - case 86 : iPictures = 06 'Simplified - case 88 : iPictures = 17 'Traditional - case else : iPictures = 21 'Unknown - warnlog "Please insert the entrienumbers for 'Backgrounds'. Language: " + iSprache + case 01 : iPictures = 21 'English + case 07 : iPictures = 28 'Russian + case 31 : iPictures = 04 'Netherlands + case 33 : iPictures = 22 'French + case 34 : iPictures = 12 'Spanish + case 36 : iPictures = 17 'Hungaria + case 39 : iPictures = 23 'Italian + case 46 : iPictures = 09 'Swedish + case 48 : iPictures = 20 'Polish + case 49 : iPictures = 11 'German + case 55 : iPictures = 16 'Portuguese + case 81 : iPictures = 22 'Japanese + case 82 : iPictures = 04 'Korean + case 86 : iPictures = 06 'Simplified + case 88 : iPictures = 17 'Traditional + case else : iPictures = 21 'Unknown + warnlog "Please insert the entrienumbers for 'Backgrounds'. Language: " + iSprache end select - end if + end if kontext "Gallery" Gallerys.Select (iPictures) @@ -123,6 +120,33 @@ testcase i_us_presentation1 if ExportierenDlg.IsVisible(5) then printlog " Gallery-object correctly copied into Slide." ExportierenDlg.Close + ToolsGallery + WaitSlot (2000) + end if + kontext "GraphicObjectbar" + if GraphicObjectbar.Exists(5) = FALSE then + kontext "DocumentImpress" + ViewToolbarsPicture + end if + Kontext "Gallery" + View.TypeKeys "<HOME><RIGHT><RIGHT>" + printlog "'OpenContextMenu" + View.TypeKeys "<SHIFT F10>" + sleep (2) + MenuSelect(MenuGetItemID(1)) 'Insert + sleep (2) + MenuSelect(MenuGetItemID(1)) 'Copy + sleep (2) + printlog "Check that we really got a copy of the object " + kontext "DocumentImpress" + DocumentImpress.OpenContextMenu(true) + sleep (2) + MenuSelect 27353 + sleep (2) + Kontext "ExportierenDlg" + if ExportierenDlg.IsVisible(5) then + printlog " Gallery-object correctly copied into Slide." + ExportierenDlg.Close else warnlog " Doesn't seem like we copied anything from the Gallery... ?" end if @@ -131,41 +155,13 @@ testcase i_us_presentation1 kontext "DocumentImpress" ViewToolbarsPicture end if - - Kontext "Gallery" - View.TypeKeys "<HOME><RIGHT><RIGHT>" - printlog "'OpenContextMenu" - View.TypeKeys "<SHIFT F10>" - sleep (2) - MenuSelect(MenuGetItemID(1)) 'Insert - sleep (2) - MenuSelect(MenuGetItemID(1)) 'Copy - sleep (2) - printlog "Check that we really got a copy of the object " - kontext "DocumentImpress" - DocumentImpress.OpenContextMenu(true) - sleep (2) - MenuSelect 27353 - sleep (2) - Kontext "ExportierenDlg" - if ExportierenDlg.IsVisible(5) then - printlog " Gallery-object correctly copied into Slide." - ExportierenDlg.Close - else - warnlog " Doesn't seem like we copied anything from the Gallery... ?" - end if - kontext "GraphicObjectbar" - if GraphicObjectbar.Exists(5) = FALSE then - kontext "DocumentImpress" - ViewToolbarsPicture - end if - + kontext "Gallery" + Gallerys.Select (iPictures) printlog " 50% Transparency" WaitSlot (2000) kontext "GraphicObjectbar" Transparenz.SetText "50" sleep (1) - printlog "Mosaic 16px x 16px" Filter.TearOff sleep (1) @@ -176,66 +172,86 @@ testcase i_us_presentation1 Width.SetText "16" Height.SetText "16" Mosaic.OK - kontext "GraphicFilterBar" GraphicFilterBar.Close - ToolsGallery WaitSlot (1000) kontext "DocumentImpress" hTypeKeys "<TAB>" + sleep (1) + + kontext "GraphicFilterBar" + Mosaic.Click + + kontext "Mosaic" + if ( Mosaic.exists( 2 ) ) then + Width.SetText "16" + Height.SetText "16" + Mosaic.OK + else + warnlog( "Dialog <Mosaic> did not open" ) + endif + + kontext "GraphicFilterBar" + GraphicFilterBar.Close + + ToolsGallery + WaitSlot (1000) + kontext "DocumentImpress" + gMouseClick 50,50 sleep (1) + FormatPositionAndSize - WaitSlot (1000) + kontext - active.setPage(TabPositionAndSize) - kontext "TabPositionAndSize" - Width.SetText "800" - Height.SetText "600" - SizePosition.TypeKeys "<RIGHT><DOWN>" - TabPositionAndSize.OK + if ( Active.exists( 2 ) ) then + active.setPage(TabPositionAndSize) + kontext "TabPositionAndSize" + Width.SetText "800" + Height.SetText "600" + SizePosition.TypeKeys "<RIGHT><DOWN>" + TabPositionAndSize.OK + else + warnlog( "Page <TabPositionAndSize> did not open" ) + endif printlog "Close Master" - ViewNormal - WaitSlot (1000) + hUseAsyncSlot( "ViewNormal" ) printlog "Save Document" call hFileSaveAsKill (PresentationFile1) - printlog "OK saved at ", PresentationFile1 - WaitSlot (1000) ActiveDeactivateCTLSupport (FALSE) - WaitSlot (2000) + printlog "Close Document" - Call hCloseDocument + hFileCloseAll() + endcase 'i_us_presentation1 '------------------------------------------------------------------------------- + testcase i_us_presentation2 + dim PresentationFile1 as string dim PresentationFile2 as string - PresentationFile1 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes1.odp"))) - PresentationFile2 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes2.odp"))) - if Dir(PresentationFile1) <> "" then 'if file exists... - hFileOpen (PresentationFile1) - WaitSlot (10000) + PresentationFile1 = ConvertPath( gOfficePath + "user\work\PowerPes1.odp" ) + PresentationFile2 = ConvertPath( gOfficePath + "user\work\PowerPes2.odp" ) + + if ( FileExists( PresentationFile1 ) ) then 'if file exists... + hFileOpen (PresentationFile1) else warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester." - printlog "New impress document" - Call hNewDocument - WaitSlot (2000) + goto endsub end if printlog "New Slide" kontext "slides" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - + SlidesControl.TypeKeys( "<PAGEDOWN>", 3 ) SlidesControl.TypeKeys "<SHIFT F10>" 'OpenContextMenu(true) sleep (1) + MenuSelect(MenuGetItemID(1)) 'New Slide 'No 2 printlog " Inserted second normal Slide" @@ -244,11 +260,10 @@ testcase i_us_presentation2 printlog "to get to the very first position" LayoutsPreview.TypeKeys "<HOME>" printlog "'to get to the right position" - LayoutsPreview.TypeKeys "<RIGHT>", 9 + LayoutsPreview.TypeKeys "<RIGHT>", 9 LayoutsPreview.TypeKeys "<RETURN>" - Sleep (1) - ViewNormal + hUseAsyncSlot( "ViewNormal" ) printlog "3. Hide Slidepane (Oops! The user were too fast: accidently hide the pane)" kontext "Slides" @@ -259,7 +274,7 @@ testcase i_us_presentation2 SlidesControl.FadeIn printlog " Did the 'mistake' to FadeIn/Out the Slidepane" - + printlog "activating the input picture area" kontext "DocumentImpress" DocumentImpress.TypeKeys "<TAB>",2 @@ -268,68 +283,67 @@ testcase i_us_presentation2 printlog "Graphics-Import-dialogue. Select i_us_large.jpg" Kontext "GrafikEinfuegenDlg" - sleep (2) - Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\i_us_large.jpg") - sleep (2) - Oeffnen.Click - WaitSlot (1000) - Kontext "DocumentImpress" + if ( GrafikEinfuegenDlg.exists( 2 ) ) then - printlog "Deselect graphic" - DocumentImpress.MouseDoubleClick 90,90 - printlog " Inserted Graphic into the second Slide" + Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\i_us_large.jpg") + Oeffnen.Click - printlog "Change text on the two text-boxes" - DocumentImpress.TypeKeys "<TAB>" 'First text. - DocumentImpress.TypeKeys "<RETURN>" 'To get into edit-mode. - DocumentImpress.TypeKeys "The World has just become a bit easier" - DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>" - DocumentImpress.TypeKeys "<TAB><TAB><TAB>" - DocumentImpress.TypeKeys "<RETURN>" - DocumentImpress.TypeKeys "100% Recyclable" - DocumentImpress.TypeKeys "<RETURN>" - DocumentImpress.TypeKeys "Very durable" - DocumentImpress.TypeKeys "<RETURN>" - DocumentImpress.TypeKeys "Priced lower than its predecessor!" - DocumentImpress.TypeKeys "<RETURN>" - DocumentImpress.TypeKeys "Sexy" - DocumentImpress.TypeKeys "<RETURN>" - DocumentImpress.TypeKeys "Energy-efficient" - DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>" + Kontext "DocumentImpress" + printlog "Deselect graphic" + DocumentImpress.MouseDoubleClick 90,90 + printlog " Inserted Graphic into the second Slide" + + printlog "Change text on the two text-boxes" + DocumentImpress.TypeKeys "<TAB>" 'First text. + DocumentImpress.TypeKeys "<RETURN>" 'To get into edit-mode. + DocumentImpress.TypeKeys "The World has just become a bit easier" + DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>" + DocumentImpress.TypeKeys "<TAB><TAB><TAB>" + DocumentImpress.TypeKeys "<RETURN>" + DocumentImpress.TypeKeys "100% Recyclable" + DocumentImpress.TypeKeys "<RETURN>" + DocumentImpress.TypeKeys "Very durable" + DocumentImpress.TypeKeys "<RETURN>" + DocumentImpress.TypeKeys "Priced lower than its predecessor!" + DocumentImpress.TypeKeys "<RETURN>" + DocumentImpress.TypeKeys "Sexy" + DocumentImpress.TypeKeys "<RETURN>" + DocumentImpress.TypeKeys "Energy-efficient" + DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>" + else + warnlog( "Failed to open <Insert Graphics> dialog" ) + endif printlog "Save Document" call hFileSaveAsKill (PresentationFile2) - printlog "OK saved at ", PresentationFile1 - sleep (1) ActiveDeactivateCTLSupport (FALSE) - sleep (2) + printlog "Close Document" - Call hCloseDocument + hFileCloseAll() + endcase 'i_us_presentation2 '------------------------------------------------------------------------------- + testcase i_us_presentation3 + dim PresentationFile2 as string dim PresentationFile3 as string - PresentationFile2 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes2.odp"))) - PresentationFile3 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes3.odp"))) - if Dir(PresentationFile2) <> "" then 'if file exists... - hFileOpen (PresentationFile2) - WaitSlot (10000) + PresentationFile2 = ConvertPath( gOfficePath + "user\work\PowerPes2.odp" ) + PresentationFile3 = ConvertPath( gOfficePath + "user\work\PowerPes3.odp" ) + + if ( FileExists( PresentationFile2 ) ) then 'if file exists... + hFileOpen( PresentationFile2 ) else warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester." - printlog "New impress document" - Call hNewDocument - WaitSlot (2000) + goto endsub end if printlog "Insert New Slide" kontext "slides" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" + SlidesControl.TypeKeys( "<PAGEDOWN>", 3 ) kontext "DocumentImpress" InsertSlide 'No 3 @@ -340,8 +354,7 @@ testcase i_us_presentation3 LayoutsPreview.TypeKeys "<RIGHT>", 4 'to get to the right position LayoutsPreview.TypeKeys "<RETURN>" - sleep (1) - ViewNormal + hUseAsyncSlot( "ViewNormal" ) kontext "DocumentImpress" Call gMouseClick 50,50 @@ -353,10 +366,10 @@ testcase i_us_presentation3 InsertGraphicsFromFile WaitSlot (1000) Kontext "GrafikEinfuegenDlg" - Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\i_us_large.jpg") - sleep (2) - Oeffnen.Click - WaitSlot (2000) + Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\i_us_large.jpg") + sleep (2) + Oeffnen.Click + WaitSlot (2000) Kontext "DocumentImpress" printlog "The user corrects the picture" @@ -371,101 +384,97 @@ testcase i_us_presentation3 printlog "Save Document" call hFileSaveAsKill (PresentationFile3) - printlog "OK saved at ", PresentationFile3 - sleep (1) ActiveDeactivateCTLSupport (FALSE) - sleep (2) + printlog "Close Document" - Call hCloseDocument + hFileCloseAll() + endcase 'i_us_presentation3 '------------------------------------------------------------------------------- + testcase i_us_presentation4 + dim PresentationFile3 as string dim PresentationFile4 as string dim iAnimations as Integer - PresentationFile3 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes3.odp"))) - PresentationFile4 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes4.odp"))) + dim iSize as integer + + PresentationFile3 = ConvertPath( gOfficePath + "user\work\PowerPes3.odp" ) + PresentationFile4 = ConvertPath( gOfficePath + "user\work\PowerPes4.odp" ) - if Dir(PresentationFile3) <> "" then 'if file exists... - hFileOpen (PresentationFile3) - WaitSlot (10000) + select case iSprache + case 01 : iAnimations = 01 'English + case 07 : iAnimations = 01 'Russian + case 31 : iAnimations = 03 'Netherlands + case 33 : iAnimations = 01 'French + case 34 : iAnimations = 01 'Spanish + case 36 : iAnimations = 01 'Hungaria + case 39 : iAnimations = 01 'Italian + case 46 : iAnimations = 01 'Swedish + case 48 : iAnimations = 01 'Polish + case 49 : iAnimations = 01 'German + case 55 : iAnimations = 01 'Portuguese + case 81 : iAnimations = 02 'Japanese + case 82 : iAnimations = 17 'Korean + case 86 : iAnimations = 07 'Simplified + case 88 : iAnimations = 15 'Traditional + case else : iAnimations = 01 'Unknown + warnlog "Please insert the entrienumbers for 'Backgrounds'. Language: " + iSprache + end select + + if ( FileExists( PresentationFile3 ) ) then 'if file exists... + hFileOpen( PresentationFile3 ) else warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester." - printlog "New impress document" - Call hNewDocument - WaitSlot (2000) + goto endsub end if kontext "slides" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - kontext "DocumentImpress" + SlidesControl.TypeKeys( "<PAGEDOWN>", 5 ) -printlog "insert slide no 4" -InsertSlide + kontext "DocumentImpress" + printlog "insert slide no 4" + hUseAsyncSlot( "InsertSlide" ) printlog "Background: picture (Gallery)" Kontext "Gallery" - if Gallery.Exists(2) then - warnlog " The Gallery was already visible. Check earlier ran tests for inconsistency." - sleep (2) - else + if ( Not Gallery.Exists() ) then ToolsGallery - WaitSlot (2000) end if - select case iSprache - case 01 : iAnimations = 01 'English - case 07 : iAnimations = 01 'Russian - case 31 : iAnimations = 03 'Netherlands - case 33 : iAnimations = 01 'French - case 34 : iAnimations = 01 'Spanish - case 36 : iAnimations = 01 'Hungaria - case 39 : iAnimations = 01 'Italian - case 46 : iAnimations = 01 'Swedish - case 48 : iAnimations = 01 'Polish - case 49 : iAnimations = 01 'German - case 55 : iAnimations = 01 'Portuguese - case 81 : iAnimations = 02 'Japanese - case 82 : iAnimations = 17 'Korean - case 86 : iAnimations = 07 'Simplified - case 88 : iAnimations = 15 'Traditional - case else : iAnimations = 01 'Unknown - warnlog "Please insert the entrienumbers for 'Backgrounds'. Language: " + iSprache - end select - kontext "Gallery" - Gallerys.Select (iAnimations) + if ( Gallery.exists( 2 ) ) then + Gallerys.Select (iAnimations) - kontext "Gallery" + kontext "Gallery" View.TypeKeys "<HOME><RIGHT><RIGHT>" - sleep (1) + wait( 200 ) View.TypeKeys "<SHIFT F10>" 'OpenContextMenu - sleep (1) + wait( 200 ) MenuSelect(MenuGetItemID(1)) 'Insert - sleep (1) + wait( 200 ) MenuSelect(MenuGetItemID(1)) 'Copy + else + warnlog( "Could not access Gallery" ) + endif - printlog "Check that we really got a copy of the object" - kontext "DocumentImpress" - DocumentImpress.OpenContextMenu(true) - WaitSlot (1000) - MenuSelect 27353 + printlog "Check that we really got a copy of the object" + kontext "DocumentImpress" + DocumentImpress.OpenContextMenu(true) + WaitSlot (1000) + MenuSelect 27353 Kontext "ExportierenDlg" - if ExportierenDlg.IsVisible(5) then + if ( ExportierenDlg.exists( 5 ) ) then printlog " Gallery-object correctly copied into Slide." ExportierenDlg.Close else warnlog " Doesn't seem like we copied anything from the Gallery... ?" end if - kontext "DocumentImpress" + kontext "DocumentImpress" DocumentImpress.TypeKeys "<UP>", 82 DocumentImpress.TypeKeys "<LEFT>", 130 @@ -484,84 +493,53 @@ InsertSlide ActiveDeactivateCTLSupport (TRUE) - CreateTextSetEffectAndAngle - DocumentImpress.TypeKeys "<DOWN>", 80 - DocumentImpress.TypeKeys "<LEFT>", 100 - gMouseClick 90,90 - - CreateTextSetEffectAndAngle - DocumentImpress.TypeKeys "<DOWN>", 80 - DocumentImpress.TypeKeys "<LEFT>", 75 - gMouseClick 90,90 - - CreateTextSetEffectAndAngle - DocumentImpress.TypeKeys "<DOWN>", 80 - DocumentImpress.TypeKeys "<LEFT>", 50 - gMouseClick 90,90 - - CreateTextSetEffectAndAngle - DocumentImpress.TypeKeys "<DOWN>", 80 - DocumentImpress.TypeKeys "<LEFT>", 25 - gMouseClick 90,90 - - CreateTextSetEffectAndAngle - DocumentImpress.TypeKeys "<DOWN>", 80 - DocumentImpress.TypeKeys "<RIGHT>", 25 - gMouseClick 90,90 - - CreateTextSetEffectAndAngle - DocumentImpress.TypeKeys "<DOWN>", 80 - DocumentImpress.TypeKeys "<RIGHT>", 50 - gMouseClick 90,90 - - CreateTextSetEffectAndAngle - DocumentImpress.TypeKeys "<DOWN>", 80 - DocumentImpress.TypeKeys "<RIGHT>", 75 - gMouseClick 90,90 - - CreateTextSetEffectAndAngle - DocumentImpress.TypeKeys "<DOWN>", 80 - DocumentImpress.TypeKeys "<RIGHT>", 100 - gMouseClick 90,90 + printlog( "Decrease..." ) + for iSize = 100 to 25 step -25 + CreateTextSetEffectAndAngle + DocumentImpress.TypeKeys "<DOWN>", 80 + DocumentImpress.TypeKeys "<LEFT>", iSize + gMouseClick 90,90 + next iSize + + printlog( "Increase..." ) + for iSize = 25 to 100 step 25 + CreateTextSetEffectAndAngle + DocumentImpress.TypeKeys "<DOWN>", 80 + DocumentImpress.TypeKeys "<LEFT>", iSize + gMouseClick 90,90 + next iSize printlog " Inserted fourth slide with Gallery-object." printlog "Save Document" call hFileSaveAsKill (PresentationFile4) - printlog "OK saved at ", PresentationFile4 - sleep (1) ActiveDeactivateCTLSupport (FALSE) - sleep (2) + printlog "Close Document" - Call hCloseDocument + hFileCloseAll() + endcase 'i_us_presentation4 '------------------------------------------------------------------------------- + testcase i_us_presentation5 + dim PresentationFile4 as string dim PresentationFile5 as string - PresentationFile4 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes4.odp"))) - PresentationFile5 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes5.odp"))) - if Dir(PresentationFile4) <> "" then 'if file exists... - hFileOpen (PresentationFile4) - WaitSlot (10000) + PresentationFile4 = ConvertPath( gOfficePath + "user\work\PowerPes4.odp" ) + PresentationFile5 = ConvertPath( gOfficePath + "user\work\PowerPes5.odp" ) + + if ( FileExists( PresentationFile4 ) ) then 'if file exists... + hFileOpen( PresentationFile4 ) else warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester." - printlog "New impress document" - Call hNewDocument - WaitSlot (2000) + goto endsub end if kontext "slides" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" + SlidesControl.TypeKeys( "<PAGEDOWN>", 7 ) kontext "DocumentImpress" printlog "8. New Slide. (Insert Menu) (Duplicate slide)" @@ -570,119 +548,109 @@ testcase i_us_presentation5 gMouseClick 90,90 DocumentImpress.TypeKeys "<TAB>" DocumentImpress.TypeKeys "<RETURN>" - EditSelectAll + hUseAsyncSlot( "EditSelectAll" ) DocumentImpress.TypeKeys "And does it with strength..." printlog " Inserted fifth slide with audience-joke." printlog "Save Document" call hFileSaveAsKill (PresentationFile5) - printlog "OK saved at ", PresentationFile5 - sleep (1) ActiveDeactivateCTLSupport (FALSE) - sleep (2) + printlog "Close Document" - Call hCloseDocument + hFileCloseAll() + endcase 'i_us_presentation5 '------------------------------------------------------------------------------- + testcase i_us_presentation6 + dim PresentationFile5 as string dim PresentationFile6 as string - PresentationFile5 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes5.odp"))) - PresentationFile6 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes6.odp"))) - if Dir(PresentationFile5) <> "" then 'if file exists... - hFileOpen (PresentationFile5) - WaitSlot (10000) + PresentationFile5 = ConvertPath( gOfficePath + "user\work\PowerPes5.odp" ) + PresentationFile6 = ConvertPath( gOfficePath + "user\work\PowerPes6.odp" ) + + if ( FileExists( PresentationFile5 ) ) then 'if file exists... + hFileOpen( PresentationFile5 ) else warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester." - printlog "New impress document" - Call hNewDocument - WaitSlot (2000) + goto endsub end if kontext "slides" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" + SlidesControl.TypeKeys( "<PAGEDOWN>", 6 ) kontext "DocumentImpress" printlog "9. Q&A Slide" - InsertSlide + InsertSlide WaitSlot (1000) kontext "DocumentImpress" DocumentImpress.TypeKeys "<TAB>" DocumentImpress.TypeKeys "<RETURN>" DocumentImpress.TypeKeys "Q&A" - WaitSlot (1000) - kontext "DocumentImpress" DocumentImpress.TypeKeys "<SHIFT HOME>" + wait( 500 ) + Kontext "TextObjectbar" - if TextObjectbar.Exists = FALSE then - ViewToolbarsTextFormatting - end if - WaitSlot (2000) - Printlog "- Change size of font" - Schriftgroesse.Select "26" - Schriftgroesse.TypeKeys "<RETURN>" - Fett.Click + if ( not TextObjectbar.Exists() ) then + ViewToolbarsTextFormatting + end if + + Kontext "TextObjectbar" + wait( 500 ) + Printlog "- Change size of font" + Schriftgroesse.Select "26" + Schriftgroesse.TypeKeys "<RETURN>" + Fett.Click kontext "DocumentImpress" DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>" kontext "Toolbar" - Auswahl.Click + Auswahl.Click gMouseClick 60,60 - EditSelectAll - WaitSlot (1000) + hUseAsyncSlot( "EditSelectAll" ) + DocumentImpress.TypeKeys "<DOWN>", 50 kontext "DocumentImpress" printlog " Inserted sixth slide with Q&A." printlog "Save Document" call hFileSaveAsKill (PresentationFile6) - printlog "OK saved at ", PresentationFile6 - sleep (1) ActiveDeactivateCTLSupport (FALSE) - WaitSlot (2000) + printlog "Close Document" - Call hCloseDocument + hFileCloseAll() + endcase 'i_us_presentation6 '------------------------------------------------------------------------------- + testcase i_us_presentation7 + const KEY_STROKE_REPEAT = 8 + dim sFilter as string dim sFileName as string dim PresentationFile6 as string dim PresentationFile7 as string - PresentationFile6 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes6.odp"))) - PresentationFile7 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes7.odp"))) - sFileName = (ConvertPath (gOfficePath + "user\work\export-test.ppt")) + dim iKeyStroke as integer + + PresentationFile6 = ConvertPath( gOfficePath + "user\work\PowerPes6.odp" ) + PresentationFile7 = ConvertPath( gOfficePath + "user\work\PowerPes7.odp" ) + sFileName = ConvertPath( gOfficePath + "user\work\export-test.ppt" ) - if Dir(PresentationFile6) <> "" then 'if file exists... - hFileOpen (PresentationFile6) - WaitSlot (10000) + if ( FileExists( PresentationFile6 ) ) then 'if file exists... + hFileOpen( PresentationFile6 ) else warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester." - printlog "New impress document" - Call hNewDocument - WaitSlot (2000) + goto endsub end if kontext "slides" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" - SlidesControl.TypeKeys "<PAGEDOWN>" + SlidesControl.TypeKeys( "<PAGEDOWN>", KEY_STROKE_REPEAT ) kontext "DocumentImpress" printlog " inserting Ending Slide" @@ -705,62 +673,64 @@ testcase i_us_presentation7 SlidesControl.TypeKeys "<RETURN>" 'At the first slide hTypeKeys "<F5>" + + kontext "DocumentPresentation" + for iKeyStroke = 1 to KEY_STROKE_REPEAT + wait( 3000 ) + DocumentPresentation.TypeKeys "<PAGEDOWN>" + wait( 2000 ) + next iKeyStroke + kontext "DocumentPresentation" - sleep (5) - DocumentPresentation.TypeKeys "<PAGEDOWN>" - sleep (5) - DocumentPresentation.TypeKeys "<PAGEDOWN>" - sleep (5) - DocumentPresentation.TypeKeys "<PAGEDOWN>" - sleep (10) - DocumentPresentation.TypeKeys "<PAGEDOWN>" - sleep (10) - DocumentPresentation.TypeKeys "<PAGEDOWN>" - sleep (5) - DocumentPresentation.TypeKeys "<PAGEDOWN>" - sleep (5) - DocumentPresentation.TypeKeys "<PAGEDOWN>" - sleep (5) - DocumentPresentation.TypeKeys "<PAGEDOWN>" - - if DocumentPresentation.Exists(5) then - hTypeKeys "<ESC>" - warnlog " Presentation should have ended. Please inform Automatic Tester." + if ( DocumentPresentation.notExists( 5 ) ) then + printlog( "Presentation closed. Good." ) + else + warnlog " Presentation not finished, fullscreen view still open." + DocumentPresentation.typeKeys "<ESC>" + + kontext "DocumentPresentation" + if ( DocumentPresentation.notExists( 3 ) ) then + printlog( "Recovery attempt successful" ) + else + goto endsub + endif end if - kontext "DocumentImpress" + kontext "DocumentImpress" printlog "Save Document" call hFileSaveAsKill (PresentationFile7) - printlog "OK saved at ", PresentationFile7 - sleep (1) - printlog "Save as Powerpoint-file" + printlog( "Save as Powerpoint-file (Using filter at pos. 5 in the filter list)" ) FileSaveAs - Kontext "SpeichernDlg" + + Kontext "SpeichernDlg" + if ( SpeichernDlg.exists( 2 ) ) then + Dateiname.SetText sFileName - Dateityp.Select 5 ' Powerpoint + Dateityp.Select 5 ' Powerpoint (possibly) printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(5) Speichern.Click + Kontext "Messagebox" - if Messagebox.Exists(2) then Messagebox.Yes + hCloseDialog( Messagebox, "Yes, optional" ) + Kontext "AlienWarning" - if AlienWarning.Exists(2) then AlienWarning.OK - printlog "Saved as: " + sFileName - sleep (3) - - printlog "Close the office and reload the file" - FileClose - Kontext "Messagebox" - if Messagebox.Exists(2) then Messagebox.Yes - sleep (3) - printlog "Open the saved file" + hCloseDialog( AlienWarning, "ok, optional" ) + else + warnlog( "<FileSaveAs> dialog did not open" ) + endif + + printlog "Close all open documents" + hFileCloseAll() + + printlog( "Reload file: " & sFileName ) hFileOpen sFileName - printlog "File opened: " + sFileName - sleep (3) + sleep( 3 ) printlog "Close the office-session" ActiveDeactivateCTLSupport (FALSE) - sleep (2) - printlog "Close Document" - Call hCloseDocument + + printlog "Close Documents" + hFileCloseAll() + endcase 'i_us_presentation7 diff --git a/testautomation/graphics/optional/includes/impress/i_view.inc b/testautomation/graphics/optional/includes/impress/i_view.inc index 56c5654315bf..54ba5132d16e 100644 --- a/testautomation/graphics/optional/includes/impress/i_view.inc +++ b/testautomation/graphics/optional/includes/impress/i_view.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : '* diff --git a/testautomation/graphics/optional/includes/impress/im_002_.inc b/testautomation/graphics/optional/includes/impress/im_002_.inc index 2a7dd1dffa2e..d1fa457ae8b2 100644 --- a/testautomation/graphics/optional/includes/impress/im_002_.inc +++ b/testautomation/graphics/optional/includes/impress/im_002_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Impress Required Test Library (2) '* diff --git a/testautomation/graphics/optional/includes/impress/im_003_.inc b/testautomation/graphics/optional/includes/impress/im_003_.inc index 6197e75c0fb4..1db0627e4a4e 100644 --- a/testautomation/graphics/optional/includes/impress/im_003_.inc +++ b/testautomation/graphics/optional/includes/impress/im_003_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Impress Resource Test: View Menu '* diff --git a/testautomation/graphics/optional/includes/impress/im_004_.inc b/testautomation/graphics/optional/includes/impress/im_004_.inc index 230da47a4e87..17d00addc847 100644 --- a/testautomation/graphics/optional/includes/impress/im_004_.inc +++ b/testautomation/graphics/optional/includes/impress/im_004_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Impress Required Test Library (4) '* diff --git a/testautomation/graphics/optional/includes/impress/im_005_.inc b/testautomation/graphics/optional/includes/impress/im_005_.inc index b743f32fb695..1aa218f3ecba 100644 --- a/testautomation/graphics/optional/includes/impress/im_005_.inc +++ b/testautomation/graphics/optional/includes/impress/im_005_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Impress Required Test Library (5) '* diff --git a/testautomation/graphics/optional/includes/impress/im_007_.inc b/testautomation/graphics/optional/includes/impress/im_007_.inc index fcd80a8d8f5a..fc9ba2800e0c 100644 --- a/testautomation/graphics/optional/includes/impress/im_007_.inc +++ b/testautomation/graphics/optional/includes/impress/im_007_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Impress Required Test Library (7) '* @@ -33,52 +33,52 @@ ' this menue is only in impress availble testcase tSlideShowSlideShow -'/// open application ///' - Call hNewDocument -'/// Slide Show->Slide Show Settings ///' + '/// open application ///' + Call hNewDocument + '/// Slide Show->Slide Show Settings ///' SlideShowPresentationSettings - Kontext "Bildschirmpraesentation" - '/// check if 'type' 'default' is checked, it has to be the default !///' - if standard.IsChecked then - if LogoAnzeigen.isEnabled then - Warnlog "'Show Logo' is Enabled :-(" - endif - else - Warnlog "type 'default' is not checked as default :-(" - endif - '/// check checkbox 'Window' ///' - Fenster.Check - Printlog "- Presentation in window mode is checked" - '/// close dialog with OK 'Slide Show' ///' + Kontext "Bildschirmpraesentation" + '/// check if 'type' 'default' is checked, it has to be the default !///' + if standard.IsChecked then + if LogoAnzeigen.isEnabled then + Warnlog "'Show Logo' is Enabled :-(" + endif + else + Warnlog "type 'default' is not checked as default :-(" + endif + '/// check checkbox 'Window' ///' + Fenster.Check + Printlog "- Presentation in window mode is checked" + '/// close dialog with OK 'Slide Show' ///' Bildschirmpraesentation.Ok sleep 3 -'/// Slide Show->Slide Show ///' + '/// Slide Show->Slide Show ///' SlideShowSlideshow Sleep 5 try - Kontext "DocumentPresentation" - sleep 3 -'/// Press <Esc> to leave presentation mode ///' - DocumentPresentation.Typekeys ("<Escape>") - Sleep 3 - Kontext "DocumentImpress" - DocumentImpress.MouseDoubleClick ( 50, 50 ) - Sleep 3 + Kontext "DocumentPresentation" + sleep 3 + '/// Press <Esc> to leave presentation mode ///' + DocumentPresentation.Typekeys ("<Escape>") + Sleep 3 + Kontext "DocumentImpress" + DocumentImpress.MouseDoubleClick ( 50, 50 ) + Sleep 3 catch -' FileClose - warnlog "had to catch <the ball> :-( " -' Kontext "Messagebox" -' if Messagebox.Exists (5) Then Messagebox.No -' Kontext -' sleep (12) -' start sAppExe$ -' sleep (6) -' Kontext -' if Office.Exists(2) then Resetapplication -' Warnlog "Slide didn't end, application wasn't in document edit mode" + ' FileClose + warnlog "had to catch <the ball> :-( " + ' Kontext "Messagebox" + ' if Messagebox.Exists (5) Then Messagebox.No + ' Kontext + ' sleep (12) + ' start sAppExe$ + ' sleep (6) + ' Kontext + ' if Office.Exists(2) then Resetapplication + ' Warnlog "Slide didn't end, application wasn't in document edit mode" endcatch -'/// close application ///' - Call hCloseDocument + '/// close application ///' + Call hCloseDocument endcase testcase tSlideShowRehearseTimings @@ -97,157 +97,157 @@ testcase tSlideShowRehearseTimings sleep 2 Kontext "DocumentPresentation" '/// Press <Esc> to leave presentation mode ///' - if DocumentPresentation.Exists (5) then - DocumentPresentation.Typekeys ("<Escape>") - else - Warnlog "SlideShowRehearseTimings mode not accessible" - endif - Sleep 3 - if DocumentPresentation.Exists then ' the kontext hasnt to be available, else ERROR - DocumentPresentation.TypeKeys "<ESCAPE>" ' => I mustn't be here ever ! - Warnlog "- Slide show mode should have ended" - else - printlog "SlideShowRehearseTimings mode not accessible :-) " - end if - sleep 3 - try - Kontext "DocumentImpress" - DocumentImpress.MouseDoubleClick ( 50, 50 ) + if DocumentPresentation.Exists (5) then + DocumentPresentation.Typekeys ("<Escape>") + else + Warnlog "SlideShowRehearseTimings mode not accessible" + endif + Sleep 3 + if DocumentPresentation.Exists then ' the kontext hasnt to be available, else ERROR + DocumentPresentation.TypeKeys "<ESCAPE>" ' => I mustn't be here ever ! + Warnlog "- Slide show mode should have ended" + else + printlog "SlideShowRehearseTimings mode not accessible :-) " + end if + sleep 3 + try + Kontext "DocumentImpress" + DocumentImpress.MouseDoubleClick ( 50, 50 ) - sleep 3 - catch - warnlog "Had to catch <the ball> :-( " - endcatch + sleep 3 + catch + warnlog "Had to catch <the ball> :-( " + endcatch sleep 3 -'/// close application ///' - Call hCloseDocument + '/// close application ///' + Call hCloseDocument endcase testcase tSlideShowSlideShowSettings -'/// open application ///' - Call hNewDocument - sleep 2 -'/// Slide Show->Slide Show Settings ///' - SlideShowPresentationSettings - Kontext "Bildschirmpraesentation" - call Dialogtest (Bildschirmpraesentation) - '/// check checkbox in section 'Range' - 'From: ///' - AbDia.Check - '/// select the 3rd item from the top from listbox 'From:' ///' - AbDiaName.GetSelText - '/// check checkbox 'All Slides' ///' - AlleDias.Check -'///' RangeCustomSlideShow ' gets tested in tSlideShowCustomSlideShow ///' -' IndividuellePraesentationName - '///<b> check checkbox 'window' </b>///' - Fenster.Check - '/// check checkbox 'default' ///' - Standard.Check - '///<b> check check box 'Auto' -> implies looping of slideshow in fullscreen mode </b>///' - Auto.Check - '/// set duration of pause to '00:00:05' ///' - Zeit.GetText - '/// check check box 'Show logo' ///' - LogoAnzeigen.Check - '///<b> check checkbox 'Change slides maually' </b>///' - DiawechselManuel.Check - '///<b> check checkbox 'Mouse pointer as pen' </b>///' - MauszeigerAlsStift.Check - '///<b> UNcheck checkbox 'Mouse pointer visible' </b>///' - MauszeigerSichtbar.UnCheck - '///<b> check checkbox 'Navigator visible' </b>///' - NavigatorSichtbar.Check - '///<b> UNcheck checkbox 'animations allowed' </b>///' - AnimationenZulassen.UnCheck - '///<b> UNcheck checkbox 'Change slides by clicking on background' </b>///' - DiaWechselAufHintergrund.UnCheck - '///<b> check checkbox 'Presentation always on top' </b>///' - PraesentationImmerImVordergrund.Check - '/// cancel dialog 'Slide Show' ///' - Bildschirmpraesentation.Cancel -'/// close application ///' - Call hCloseDocument + '/// open application ///' + Call hNewDocument + sleep 2 + '/// Slide Show->Slide Show Settings ///' + SlideShowPresentationSettings + Kontext "Bildschirmpraesentation" + call Dialogtest (Bildschirmpraesentation) + '/// check checkbox in section 'Range' - 'From: ///' + AbDia.Check + '/// select the 3rd item from the top from listbox 'From:' ///' + AbDiaName.GetSelText + '/// check checkbox 'All Slides' ///' + AlleDias.Check + '///' RangeCustomSlideShow ' gets tested in tSlideShowCustomSlideShow ///' + ' IndividuellePraesentationName + '///<b> check checkbox 'window' </b>///' + Fenster.Check + '/// check checkbox 'default' ///' + Standard.Check + '///<b> check check box 'Auto' -> implies looping of slideshow in fullscreen mode </b>///' + Auto.Check + '/// set duration of pause to '00:00:05' ///' + Zeit.GetText + '/// check check box 'Show logo' ///' + LogoAnzeigen.Check + '///<b> check checkbox 'Change slides maually' </b>///' + DiawechselManuel.Check + '///<b> check checkbox 'Mouse pointer as pen' </b>///' + MauszeigerAlsStift.Check + '///<b> UNcheck checkbox 'Mouse pointer visible' </b>///' + MauszeigerSichtbar.UnCheck + '///<b> check checkbox 'Navigator visible' </b>///' + NavigatorSichtbar.Check + '///<b> UNcheck checkbox 'animations allowed' </b>///' + AnimationenZulassen.UnCheck + '///<b> UNcheck checkbox 'Change slides by clicking on background' </b>///' + DiaWechselAufHintergrund.UnCheck + '///<b> check checkbox 'Presentation always on top' </b>///' + PraesentationImmerImVordergrund.Check + '/// cancel dialog 'Slide Show' ///' + Bildschirmpraesentation.Cancel + '/// close application ///' + Call hCloseDocument endcase testcase tSlideShowCustomSlideShow - '/// open application ///' - Call hNewDocument - sleep 2 - '/// Slide Show->Custom Slide Show ///' - SlideShowCustomSlideshow - Kontext "IndividuellePraesentation" - call Dialogtest (IndividuellePraesentation) - '/// click button 'New' ///' - Neu.Click - Kontext "IndividuellePraesentationDefinieren" - Call DialogTest (IndividuellePraesentationDefinieren) - '/// select the first entry in the list 'Existing Slides' ///' - SeitenPraesentation.Select 1 - '/// click button '>>' ///' - Hinzufuegen.Click - '/// close dialog 'Define Custom Slide Show' with OK ///' - IndividuellePraesentationDefinieren.OK - Kontext "IndividuellePraesentation" - '/// click button 'Copy' ///' - Kopieren.Click - '/// click button 'Delete' ///' - Loeschen.Click - '/// click button 'Edit' ///' - Bearbeiten.Click - Kontext "IndividuellePraesentationDefinieren" - '/// select 1st entry in the list 'Selected Slides' ///' - SelectedSlides.Select 1 - '/// click button '<<' ///' - Entfernen.Click - '/// close dialog 'Define Custom Slide Show' with Cancel ///' - IndividuellePraesentationDefinieren.Cancel - Kontext "IndividuellePraesentation" - '/// check checkbox 'Use Custom Slide Show' ///' - IndividuellePraesentationBenutzen.Check - sleep 1 - '///+ UNcheck checkbox 'Use Custom Slide Show' ///' - IndividuellePraesentationBenutzen.UnCheck - '/// click button 'Start...' ///' - Starten.Click - sleep 5 - '/// press key [space] 2 times ///' - kontext "DocumentPresentation" - DocumentPresentation.TypeKeys "<space>" - sleep 1 - DocumentPresentation.TypeKeys "<space>" - sleep 1 - '/// close dialog 'Custom Slide Shows' ///' -' IndividuellePraesentation.Close ' slide show ends dialog ! - '/// Slide Show->Slide Show Settings ///' - try - SlideShowPresentationSettings - catch - warnlog "Presentation did not end :-(" - DocumentPresentation.TypeKeys "<escape>" - endcatch - Kontext "Bildschirmpraesentation" - if Bildschirmpraesentation.exists (5) then - '/// check checkbox 'Custom Slide Show' ///' - RangeCustomSlideShow.Check - printlog "check: '" + IndividuellePraesentationName.GetSelText + "'" - '/// cancel dialog 'Slide Show' ///' - Bildschirmpraesentation.Cancel - else - warnlog "Dialog not open? SlideShowPresentationSettings" - endif - '/// Slide Show->Custom Slide Show ///' - SlideShowCustomSlideshow - Kontext "IndividuellePraesentation" - if (IndividuellePraesentation.exists (5)) then - '/// click button 'Delete' ///' - Loeschen.Click - '/// close dialog 'Custom Slide Shows' ///' - IndividuellePraesentation.Close - else - warnlog "Dialog not open? SlideShowCustomSlideshow" - endif - '/// close application ///' - Call hCloseDocument + '/// open application ///' + Call hNewDocument + sleep 2 + '/// Slide Show->Custom Slide Show ///' + SlideShowCustomSlideshow + Kontext "IndividuellePraesentation" + call Dialogtest (IndividuellePraesentation) + '/// click button 'New' ///' + Neu.Click + Kontext "IndividuellePraesentationDefinieren" + Call DialogTest (IndividuellePraesentationDefinieren) + '/// select the first entry in the list 'Existing Slides' ///' + SeitenPraesentation.Select 1 + '/// click button '>>' ///' + Hinzufuegen.Click + '/// close dialog 'Define Custom Slide Show' with OK ///' + IndividuellePraesentationDefinieren.OK + Kontext "IndividuellePraesentation" + '/// click button 'Copy' ///' + Kopieren.Click + '/// click button 'Delete' ///' + Loeschen.Click + '/// click button 'Edit' ///' + Bearbeiten.Click + Kontext "IndividuellePraesentationDefinieren" + '/// select 1st entry in the list 'Selected Slides' ///' + SelectedSlides.Select 1 + '/// click button '<<' ///' + Entfernen.Click + '/// close dialog 'Define Custom Slide Show' with Cancel ///' + IndividuellePraesentationDefinieren.Cancel + Kontext "IndividuellePraesentation" + '/// check checkbox 'Use Custom Slide Show' ///' + IndividuellePraesentationBenutzen.Check + sleep 1 + '///+ UNcheck checkbox 'Use Custom Slide Show' ///' + IndividuellePraesentationBenutzen.UnCheck + '/// click button 'Start...' ///' + Starten.Click + sleep 5 + '/// press key [space] 2 times ///' + kontext "DocumentPresentation" + DocumentPresentation.TypeKeys "<space>" + sleep 1 + DocumentPresentation.TypeKeys "<space>" + sleep 1 + '/// close dialog 'Custom Slide Shows' ///' + ' IndividuellePraesentation.Close ' slide show ends dialog ! + '/// Slide Show->Slide Show Settings ///' + try + SlideShowPresentationSettings + catch + warnlog "Presentation did not end :-(" + DocumentPresentation.TypeKeys "<escape>" + endcatch + Kontext "Bildschirmpraesentation" + if Bildschirmpraesentation.exists (5) then + '/// check checkbox 'Custom Slide Show' ///' + RangeCustomSlideShow.Check + printlog "check: '" + IndividuellePraesentationName.GetSelText + "'" + '/// cancel dialog 'Slide Show' ///' + Bildschirmpraesentation.Cancel + else + warnlog "Dialog not open? SlideShowPresentationSettings" + endif + '/// Slide Show->Custom Slide Show ///' + SlideShowCustomSlideshow + Kontext "IndividuellePraesentation" + if (IndividuellePraesentation.exists (5)) then + '/// click button 'Delete' ///' + Loeschen.Click + '/// close dialog 'Custom Slide Shows' ///' + IndividuellePraesentation.Close + else + warnlog "Dialog not open? SlideShowCustomSlideshow" + endif + '/// close application ///' + Call hCloseDocument endcase testcase tSlideShowSlideTransition @@ -266,191 +266,191 @@ testcase tSlideShowSlideTransition sleep 2 '/// The 'Slide Transition' in the right 'Tasks' Pane has to come up ///' Kontext "Tasks" - '/// Select the second entry from teh Listbox 'Applay to selected slides' ///' - TransitionApplyToSelectedSlide.select (2) - sleep 5 ' takes some time, until it is run - Printlog "Count of effects : "+TransitionApplyToSelectedSlide.GetItemCount - Printlog "Count of Speeds : "+TransitionSpeed.GetItemCount - iCount = TransitionSound.GetItemCount - Printlog "Count of Sounds : " + iCount + '/// Select the second entry from teh Listbox 'Applay to selected slides' ///' + TransitionApplyToSelectedSlide.select (2) + sleep 5 ' takes some time, until it is run + Printlog "Count of effects : "+TransitionApplyToSelectedSlide.GetItemCount + Printlog "Count of Speeds : "+TransitionSpeed.GetItemCount + iCount = TransitionSound.GetItemCount + Printlog "Count of Sounds : " + iCount - '/// One Entry of the Listbox 'Sound' is 'Other sound...', select it ///' - TransitionSound.typeKeys "<home>" - i = 0 - for a = 1 to iCount - TransitionSound.select (a) - kontext "OeffnenDlg" - if (OeffnenDlg.exists (5)) then - if (0=i) then - ' remember when dialog came up - i = a - OeffnenDlg.cancel - else - warnlog "File Open Dialog comes up a second time!" - OeffnenDlg.cancel - endif - endif - kontext "Tasks" - ' the Checkbox is disabled on teh first three entries: <No Sound>, <Stop previous sound>... - if (TransitionLoopUntilNextSound.isEnabled AND (a<4)) then - qaErrorLog "May be Language specific -> Evaluation of TBO; " + a - endif - next a - TransitionSound.select (i) - '/// The dialog 'Open' comes up///' - sleep 1 + '/// One Entry of the Listbox 'Sound' is 'Other sound...', select it ///' + TransitionSound.typeKeys "<home>" + i = 0 + for a = 1 to iCount + TransitionSound.select (a) kontext "OeffnenDlg" if (OeffnenDlg.exists (5)) then - '/// Read all entries in Listbox 'File type' ///' - for i = 1 to Dateityp.getItemCount - printlog "" + i + ":" + Dateityp.getItemText(i) - next i - '/// cancel dialog 'Open' ///' - OeffnenDlg.cancel - else - warnlog "Impress:Tasks Pane:Slide Transition:Sound:Other sound... disdn't bring up teh File Open Dialog!" + if (0=i) then + ' remember when dialog came up + i = a + OeffnenDlg.cancel + else + warnlog "File Open Dialog comes up a second time!" + OeffnenDlg.cancel + endif endif kontext "Tasks" - sleep (2) - '/// check checkbox 'Automatically after' ///' - TransitionAutomaticallyAfter.check - sleep (2) - '/// press key 'Page Up' in box ///' - TransitionAutomaticallyAfterTime.typeKeys "<PageUp>" - sleep 9 - '/// check the standard checkbox 'On mouse click' ///' - TransitionOnMouseClick.check - sleep (2) - '/// press button 'Apply to All Slides' ///' - TransitionApplyToAllSlides.click - sleep (2) - '/// press button 'Play' ///' - TransitionPlay.click - sleep 10 - '/// press button 'Slide Show' ///' - TransitionSlideShow.click - sleep 2 - kontext "DocumentPresentation" - if DocumentPresentation.exists (10) then - printlog "Presentation started :-)" - DocumentPresentation.typeKeys "<escape>" - else - warnlog "Impress:Tasks Pane:Slide Transition:Slide Show button doesn't start slideshow!" + ' the Checkbox is disabled on teh first three entries: <No Sound>, <Stop previous sound>... + if (TransitionLoopUntilNextSound.isEnabled AND (a<4)) then + qaErrorLog "May be Language specific -> Evaluation of TBO; " + a endif - kontext "Tasks" + next a + TransitionSound.select (i) + '/// The dialog 'Open' comes up///' + sleep 1 + kontext "OeffnenDlg" + if (OeffnenDlg.exists (5)) then + '/// Read all entries in Listbox 'File type' ///' + for i = 1 to Dateityp.getItemCount + printlog "" + i + ":" + Dateityp.getItemText(i) + next i + '/// cancel dialog 'Open' ///' + OeffnenDlg.cancel + else + warnlog "Impress:Tasks Pane:Slide Transition:Sound:Other sound... disdn't bring up teh File Open Dialog!" + endif + kontext "Tasks" + sleep (2) + '/// check checkbox 'Automatically after' ///' + TransitionAutomaticallyAfter.check + sleep (2) + '/// press key 'Page Up' in box ///' + TransitionAutomaticallyAfterTime.typeKeys "<PageUp>" + sleep 9 + '/// check the standard checkbox 'On mouse click' ///' + TransitionOnMouseClick.check + sleep (2) + '/// press button 'Apply to All Slides' ///' + TransitionApplyToAllSlides.click + sleep (2) + '/// press button 'Play' ///' + TransitionPlay.click + sleep 10 + '/// press button 'Slide Show' ///' + TransitionSlideShow.click + sleep 2 + kontext "DocumentPresentation" + if DocumentPresentation.exists (10) then + printlog "Presentation started :-)" + DocumentPresentation.typeKeys "<escape>" + else + warnlog "Impress:Tasks Pane:Slide Transition:Slide Show button doesn't start slideshow!" + endif + kontext "Tasks" - '/// uncheck and check Checkbox 'Automatic Preview' ///' - '/// default is checked ///' - if (NOT TransitionAutomaticPreview.isChecked) then - warnlog "Impress:Tasks Pane:Slide Transition: Automatic preview has to be checked by default, wasn't!" - endif - sleep (2) - TransitionAutomaticPreview.unCheck - sleep (2) - TransitionAutomaticPreview.Check + '/// uncheck and check Checkbox 'Automatic Preview' ///' + '/// default is checked ///' + if (NOT TransitionAutomaticPreview.isChecked) then + warnlog "Impress:Tasks Pane:Slide Transition: Automatic preview has to be checked by default, wasn't!" + endif + sleep (2) + TransitionAutomaticPreview.unCheck + sleep (2) + TransitionAutomaticPreview.Check '/// close application ///' Call hCloseDocument endcase testcase tSlideShowShowHideSlide -'/// open application ///' - Call hNewDocument -'/// create rectangle ///' - Call hRechteckErstellen ( 10, 10, 20, 40 ) -'/// View->Master View->Slides View ///' - ViewWorkspaceSlidesView - sleep 1 -'/// Slide Show->Hide Slide ///' - SlideShowHideSlide - sleep 1 -'/// Slide Show->Show Slide ///' - SlideShowShowSlide -'/// close application ///' - Call hCloseDocument + '/// open application ///' + Call hNewDocument + '/// create rectangle ///' + Call hRechteckErstellen ( 10, 10, 20, 40 ) + '/// View->Master View->Slides View ///' + ViewWorkspaceSlidesView + sleep 1 + '/// Slide Show->Hide Slide ///' + SlideShowHideSlide + sleep 1 + '/// Slide Show->Show Slide ///' + SlideShowShowSlide + '/// close application ///' + Call hCloseDocument endcase testcase tSlideShowAnimation -'/// open application ///' - Call hNewDocument - sleep 1 -'/// create rectangle ///' - Call hRechteckErstellen ( 10, 10, 20, 40 ) - sleep 1 -'/// Insert ->Animated image ///' - Opl_SD_EffekteZulassen - Kontext "Animation" - sleep 1 -'/// click button 'Apply Object' ///' - BildAufnehmen.Click 'BildAufnehmen -'/// click button 'Create' ///' - Erstellen.Click - sleep 1 -'/// Select 1st entry from top in 'Alignment' ///' - Anpassung.Select 1 - sleep 1 -'/// click button 'Create' ///' - Erstellen.Click - sleep 1 -'/// click button 'Apply Objects Individually' ///' - AlleAufnehmen.Click - sleep 1 -'/// click button 'First Image' ///' - ErstesBild.Click - sleep 1 -'/// click button 'Last Image' ///' - LetztesBild.Click - sleep 1 -'/// click button 'BAckwards' ///' - Rueckwaerts.Click - sleep 1 -'/// click button 'Play' ///' - Abspielen.Click - sleep 1 -'/// click in Number field 'Image Number' Less - More ///' - AnzahlBilder.Less - sleep 1 - AnzahlBilder.More - sleep 1 -'/// check 'Bitmap Object' ///' - AnimationsgruppeBitmapobjekt.Check - sleep 1 -'/// Type '10' into the field 'Duration' ///' - AnzeigedauerProBild.SetText "10" -'/// click button 'Play' ///' - Abspielen.Click -'/// wait 5 seconds ///' - sleep 5 -'/// click button 'Stop' ///' - try + '/// open application ///' + Call hNewDocument + sleep 1 + '/// create rectangle ///' + Call hRechteckErstellen ( 10, 10, 20, 40 ) + sleep 1 + '/// Insert ->Animated image ///' + Opl_SD_EffekteZulassen + Kontext "Animation" + sleep 1 + '/// click button 'Apply Object' ///' + BildAufnehmen.Click 'BildAufnehmen + '/// click button 'Create' ///' + Erstellen.Click + sleep 1 + '/// Select 1st entry from top in 'Alignment' ///' + Anpassung.Select 1 + sleep 1 + '/// click button 'Create' ///' + Erstellen.Click + sleep 1 + '/// click button 'Apply Objects Individually' ///' + AlleAufnehmen.Click + sleep 1 + '/// click button 'First Image' ///' + ErstesBild.Click + sleep 1 + '/// click button 'Last Image' ///' + LetztesBild.Click + sleep 1 + '/// click button 'BAckwards' ///' + Rueckwaerts.Click + sleep 1 + '/// click button 'Play' ///' + Abspielen.Click + sleep 1 + '/// click in Number field 'Image Number' Less - More ///' + AnzahlBilder.Less + sleep 1 + AnzahlBilder.More + sleep 1 + '/// check 'Bitmap Object' ///' + AnimationsgruppeBitmapobjekt.Check + sleep 1 + '/// Type '10' into the field 'Duration' ///' + AnzeigedauerProBild.SetText "10" + '/// click button 'Play' ///' + Abspielen.Click + '/// wait 5 seconds ///' + sleep 5 + '/// click button 'Stop' ///' + try Stopp.Click - catch + catch warnlog "Stopbutton doesn't work" - endcatch - sleep 1 -'/// Select 1st entry from top in 'Loop Count' ///' - AnzahlDurchlaeufe.Select 1 - sleep 1 -'/// click button 'Delete Current Image' ///' - BildLoeschen.Click - sleep 1 -'/// check 'Group Object' ///' - AnimationsgruppeGruppenobjekt.Check - sleep 1 -'/// click button 'Delete All Images' ///' - AlleLoeschen.Click - kontext "Messagebox" -'/// there has to be a messagebox 'Really delete?' say YES!; else ERROR ///' - if Messagebox.exists (5) then - Messagebox.YES - else - warnlog "No one cares about my data :-( No one asked if all shall be deleted :-( " - endif - sleep 1 - kontext "Animation" -'/// close dialog 'Animation' ///' - Animation.Close -'/// close application ///' - Call hCloseDocument + endcatch + sleep 1 + '/// Select 1st entry from top in 'Loop Count' ///' + AnzahlDurchlaeufe.Select 1 + sleep 1 + '/// click button 'Delete Current Image' ///' + BildLoeschen.Click + sleep 1 + '/// check 'Group Object' ///' + AnimationsgruppeGruppenobjekt.Check + sleep 1 + '/// click button 'Delete All Images' ///' + AlleLoeschen.Click + kontext "Messagebox" + '/// there has to be a messagebox 'Really delete?' say YES!; else ERROR ///' + if Messagebox.exists (5) then + Messagebox.YES + else + warnlog "No one cares about my data :-( No one asked if all shall be deleted :-( " + endif + sleep 1 + kontext "Animation" + '/// close dialog 'Animation' ///' + Animation.Close + '/// close application ///' + Call hCloseDocument endcase testcase tSlideShowCustomAnimation @@ -462,229 +462,229 @@ testcase tSlideShowCustomAnimation Call hTextrahmenErstellen ("Test text to test text effects", 10, 10, 20, 40 ) '/// Slide Show->Custom Animation... ///' SlideShowCustomAnimation - Kontext "Tasks" - '/// click button 'Add...' ///' - EffectAdd.click + Kontext "Tasks" + '/// click button 'Add...' ///' + EffectAdd.click + '/// Dialog 'Custom Animation' comes up ///' + kontext + '/// Switch to TabPage: Entrance ///' + active.setPage(TabEntrance) + kontext "TabEntrance" + if TabEntrance.exists(5) then + DialogTest(TabEntrance) + '/// select in the listbox 'Effects' the second entry///' + Effects.select(2) + Speed.getItemCount + AutomaticPreview.unCheck + sleep 1 + AutomaticPreview.Check + kontext + '/// Switch to TabPage: Emphasis ///' + active.setPage(TabEmphasis) + kontext "TabEmphasis" + if TabEmphasis.exists(5) then + DialogTest(TabEmphasis) + else + bError = true + warnlog "Impress:Tasks Pane:Custom Animation:TabEmphasis tabPage doesn't work." + endif + kontext + '/// Switch to TabPage: Exit ///' + active.setPage(TabExit) + kontext "TabExit" + if TabExit.exists(5) then + DialogTest(TabExit) + else + bError = true + warnlog "Impress:Tasks Pane:Custom Animation:TabExit tabPage doesn't work." + endif + kontext + '/// Switch to TabPage: Motion Paths ///' + active.setPage(TabMotionPaths) + kontext "TabMotionPaths" + if TabMotionPaths.exists(5) then + DialogTest(TabMotionPaths) + Effects.select(7) + else + bError = true + warnlog "Impress:Tasks Pane:Custom Animation:TabMotionPaths tabPage doesn't work." + endif + '/// Close dialog 'Custom Animation' with 'OK' ///' + TabMotionPaths.OK + bError = false + else + bError = true + warnlog "Impress:Tasks Pane:Custom Animation:Add... button didn't work." + endif + Kontext "Tasks" + if (NOT bError) then + '/// click button 'Change...' ///' + EffectChange.click '/// Dialog 'Custom Animation' comes up ///' kontext '/// Switch to TabPage: Entrance ///' active.setPage(TabEntrance) kontext "TabEntrance" - if TabEntrance.exists(5) then - DialogTest(TabEntrance) - '/// select in the listbox 'Effects' the second entry///' - Effects.select(2) - Speed.getItemCount - AutomaticPreview.unCheck - sleep 1 - AutomaticPreview.Check - kontext - '/// Switch to TabPage: Emphasis ///' - active.setPage(TabEmphasis) - kontext "TabEmphasis" - if TabEmphasis.exists(5) then - DialogTest(TabEmphasis) - else - bError = true - warnlog "Impress:Tasks Pane:Custom Animation:TabEmphasis tabPage doesn't work." - endif - kontext - '/// Switch to TabPage: Exit ///' - active.setPage(TabExit) - kontext "TabExit" - if TabExit.exists(5) then - DialogTest(TabExit) + if (NOT TabEntrance.exists(5)) then + warnlog "Impress:Tasks Pane:Custom Animation:Change... button didn't work." + endif + TabEntrance.cancel + Kontext "Tasks" + EffectStart.getItemCount + if EffectProperty.isEnabled then + EffectProperty.getItemCount + endif + '/// CLick on button '...' (Options) ///' + EffectOptions.click + kontext "TabEffect" + if TabEffect.exists(5) then + dialogTest(TabEffect) + Sound.getItemCount + AfterAnimation.getItemCount + '/// switch to TabPage 'Timing' ///' + Kontext + active.setPage TabTiming + kontext "TabTiming" + if TabTiming.exists(5) then + dialogTest(TabTiming) + TimingStart.getItemCount + Delay.getText + Speed.getItemCount + Repeat.getItemCount + Rewind.ischecked + TriggerAnimate.isChecked + TriggerStart.isChecked + Shape.getItemCount else - bError = true - warnlog "Impress:Tasks Pane:Custom Animation:TabExit tabPage doesn't work." + warnlog "Impress:Tasks Pane:Custom Animation:Effect Options: Timing TabPage didn't work." endif - kontext - '/// Switch to TabPage: Motion Paths ///' - active.setPage(TabMotionPaths) - kontext "TabMotionPaths" - if TabMotionPaths.exists(5) then - DialogTest(TabMotionPaths) - Effects.select(7) + '/// switch to TabPage 'Timing' ///' + Kontext + active.setPage TabTextAnimation + kontext "TabTextAnimation" + if TabTextAnimation.exists(5) then + dialogTest(TabTextAnimation) + GroupText.getItemCount + AnimateAttachedShape.isChecked + TabTextAnimation.cancel else - bError = true - warnlog "Impress:Tasks Pane:Custom Animation:TabMotionPaths tabPage doesn't work." + warnlog "Impress:Tasks Pane:Custom Animation:Effect Options: TextAnimation TabPage didn't work." endif - '/// Close dialog 'Custom Animation' with 'OK' ///' - TabMotionPaths.OK - bError = false else - bError = true - warnlog "Impress:Tasks Pane:Custom Animation:Add... button didn't work." + warnlog "Impress:Tasks Pane:Custom Animation:... button didn't work." endif Kontext "Tasks" - if (NOT bError) then - '/// click button 'Change...' ///' - EffectChange.click - '/// Dialog 'Custom Animation' comes up ///' - kontext - '/// Switch to TabPage: Entrance ///' - active.setPage(TabEntrance) - kontext "TabEntrance" - if (NOT TabEntrance.exists(5)) then - warnlog "Impress:Tasks Pane:Custom Animation:Change... button didn't work." - endif - TabEntrance.cancel - Kontext "Tasks" - EffectStart.getItemCount - if EffectProperty.isEnabled then - EffectProperty.getItemCount - endif - '/// CLick on button '...' (Options) ///' - EffectOptions.click - kontext "TabEffect" - if TabEffect.exists(5) then - dialogTest(TabEffect) - Sound.getItemCount - AfterAnimation.getItemCount - '/// switch to TabPage 'Timing' ///' - Kontext - active.setPage TabTiming - kontext "TabTiming" - if TabTiming.exists(5) then - dialogTest(TabTiming) - TimingStart.getItemCount - Delay.getText - Speed.getItemCount - Repeat.getItemCount - Rewind.ischecked - TriggerAnimate.isChecked - TriggerStart.isChecked - Shape.getItemCount - else - warnlog "Impress:Tasks Pane:Custom Animation:Effect Options: Timing TabPage didn't work." - endif - '/// switch to TabPage 'Timing' ///' - Kontext - active.setPage TabTextAnimation - kontext "TabTextAnimation" - if TabTextAnimation.exists(5) then - dialogTest(TabTextAnimation) - GroupText.getItemCount - AnimateAttachedShape.isChecked - TabTextAnimation.cancel - else - warnlog "Impress:Tasks Pane:Custom Animation:Effect Options: TextAnimation TabPage didn't work." - endif - else - warnlog "Impress:Tasks Pane:Custom Animation:... button didn't work." - endif - Kontext "Tasks" - EffectSpeed.getItemCount - EffectList.getItemCount - EffectPlay.click - '/// Wait five seconds so the Playfunction has ended ///' - sleep 5 - EffectSlideShow.click - sleep 1 - kontext "DocumentPresentation" - if DocumentPresentation.exists (5) then - printlog "Presentation started :-)" - DocumentPresentation.typeKeys "<escape>" - else - warnlog "Impress:Tasks Pane:Custom Animation:Slide Show button doesn't start slideshow!" - endif - kontext "Tasks" - EffectAutomaticPreview.isChecked - '/// click button 'Remove' ///' - EffectRemove.click + EffectSpeed.getItemCount + EffectList.getItemCount + EffectPlay.click + '/// Wait five seconds so the Playfunction has ended ///' + sleep 5 + EffectSlideShow.click + sleep 1 + kontext "DocumentPresentation" + if DocumentPresentation.exists (5) then + printlog "Presentation started :-)" + DocumentPresentation.typeKeys "<escape>" + else + warnlog "Impress:Tasks Pane:Custom Animation:Slide Show button doesn't start slideshow!" endif + kontext "Tasks" + EffectAutomaticPreview.isChecked + '/// click button 'Remove' ///' + EffectRemove.click + endif '/// close application ///' Call hCloseDocument endcase testcase tSlideShowInteraction -'/// open application ///' - Call hNewDocument - sleep 2 -'/// create rectangle ///' - Call hRechteckErstellen (10, 10, 20, 20) - sleep 3 -'/// Slide Show->Interaction ///' - SlideShowInteraction - Kontext "TabInteraktion" - Call DialogTest (TabInteraktion, 1) - '///+ Select 6th entry from top in 'Action at mouse click' : 'Go to page or object' ///' - AktionBeiMausklick.select 6 - Printlog AktionBeiMausklick.GetSelText + " chosen" - Call DialogTest (TabInteraktion, 2) - '///+ click button 'Find' ///' - sleep 1 - suchen.click - Kontext "TabInteraktion" -'/// Select 7th entry from top in 'Action at mouse click' : 'Go to document' ///' - sleep 1 - AktionBeiMausklick.select 7 - sleep 1 - Printlog AktionBeiMausklick.GetSelText + " chosen" - Kontext "TabInteraktion" - Call DialogTest (TabInteraktion, 3) - '///+ click button 'Browse...' ///' - Durchsuchen.click - sleep 1 - kontext "OeffnenDlg" - call Dialogtest (OeffnenDlg) - '///+ cancel dialog 'open' ///' - OeffnenDlg.cancel - Kontext "TabInteraktion" - sleep 1 -'/// Select 9th entry from top in 'Action at mouse click' : 'Play Sound' ///' - AktionBeiMausklick.select 8 - Printlog AktionBeiMausklick.GetSelText + " chosen" - Call DialogTest (TabInteraktion, 4) - '///+ click button 'Browse...' ///' - Durchsuchen.click - sleep 1 - Kontext "OeffnenDlg" - Call dialogTest (OeffnenDlg) - '///+ cancel dialog 'open' ///' - OeffnenDlg.Cancel - sleep 1 - Kontext "TabInteraktion" -'/// Select 8th entry from top in 'Action at mouse click' : 'Run Program' ///' - AktionBeiMausklick.select 9 - Printlog AktionBeiMausklick.GetSelText + " chosen" - Call DialogTest (TabInteraktion, 7) - Kontext "TabInteraktion" - '///+ click button 'Browse...' ///' - Durchsuchen.Click - sleep 1 - Kontext "OeffnenDlg" - Call dialogTest (OeffnenDlg) - '///+ cancel dialog 'open' ///' - OeffnenDlg.Cancel - sleep 1 -'/// Select 9th entry from top in 'Action at mouse click' : 'Run Macro' ///' - Kontext "TabInteraktion" - AktionBeiMausklick.select 10 - Printlog AktionBeiMausklick.GetSelText + " chosen" - sleep 3 - Call DialogTest (TabInteraktion, 6) - '///+ click button 'Browse...' ///' - Durchsuchen.Click - sleep 1 - Kontext "ScriptSelector" - sleep 1 - Call DialogTest ( ScriptSelector, 1) - sleep 1 - '///+ cancel dialog 'ScriptSelector' ///' - ScriptSelector.Cancel - sleep 1 -'/// Select 10th entry from top in 'Action at mouse click' : 'Exit Presentation' ///' - Kontext "TabInteraktion" - AktionBeiMausklick.select 11 - Printlog AktionBeiMausklick.GetSelText + " chosen" - Call DialogTest (TabInteraktion, 7) - Kontext "TabInteraktion" -'/// close dialog 'Interaction' ///' - TabInteraktion.Close - sleep 2 -'/// close application ///' - Call hCloseDocument + '/// open application ///' + Call hNewDocument + sleep 2 + '/// create rectangle ///' + Call hRechteckErstellen (10, 10, 20, 20) + sleep 3 + '/// Slide Show->Interaction ///' + SlideShowInteraction + Kontext "TabInteraktion" + Call DialogTest (TabInteraktion, 1) + '///+ Select 6th entry from top in 'Action at mouse click' : 'Go to page or object' ///' + AktionBeiMausklick.select 6 + Printlog AktionBeiMausklick.GetSelText + " chosen" + Call DialogTest (TabInteraktion, 2) + '///+ click button 'Find' ///' + sleep 1 + suchen.click + Kontext "TabInteraktion" + '/// Select 7th entry from top in 'Action at mouse click' : 'Go to document' ///' + sleep 1 + AktionBeiMausklick.select 7 + sleep 1 + Printlog AktionBeiMausklick.GetSelText + " chosen" + Kontext "TabInteraktion" + Call DialogTest (TabInteraktion, 3) + '///+ click button 'Browse...' ///' + Durchsuchen.click + sleep 1 + kontext "OeffnenDlg" + call Dialogtest (OeffnenDlg) + '///+ cancel dialog 'open' ///' + OeffnenDlg.cancel + Kontext "TabInteraktion" + sleep 1 + '/// Select 9th entry from top in 'Action at mouse click' : 'Play Sound' ///' + AktionBeiMausklick.select 8 + Printlog AktionBeiMausklick.GetSelText + " chosen" + Call DialogTest (TabInteraktion, 4) + '///+ click button 'Browse...' ///' + Durchsuchen.click + sleep 1 + Kontext "OeffnenDlg" + Call dialogTest (OeffnenDlg) + '///+ cancel dialog 'open' ///' + OeffnenDlg.Cancel + sleep 1 + Kontext "TabInteraktion" + '/// Select 8th entry from top in 'Action at mouse click' : 'Run Program' ///' + AktionBeiMausklick.select 9 + Printlog AktionBeiMausklick.GetSelText + " chosen" + Call DialogTest (TabInteraktion, 7) + Kontext "TabInteraktion" + '///+ click button 'Browse...' ///' + Durchsuchen.Click + sleep 1 + Kontext "OeffnenDlg" + Call dialogTest (OeffnenDlg) + '///+ cancel dialog 'open' ///' + OeffnenDlg.Cancel + sleep 1 + '/// Select 9th entry from top in 'Action at mouse click' : 'Run Macro' ///' + Kontext "TabInteraktion" + AktionBeiMausklick.select 10 + Printlog AktionBeiMausklick.GetSelText + " chosen" + sleep 3 + Call DialogTest (TabInteraktion, 6) + '///+ click button 'Browse...' ///' + Durchsuchen.Click + sleep 1 + Kontext "ScriptSelector" + sleep 1 + Call DialogTest ( ScriptSelector, 1) + sleep 1 + '///+ cancel dialog 'ScriptSelector' ///' + ScriptSelector.Cancel + sleep 1 + '/// Select 10th entry from top in 'Action at mouse click' : 'Exit Presentation' ///' + Kontext "TabInteraktion" + AktionBeiMausklick.select 11 + Printlog AktionBeiMausklick.GetSelText + " chosen" + Call DialogTest (TabInteraktion, 7) + Kontext "TabInteraktion" + '/// close dialog 'Interaction' ///' + TabInteraktion.Close + sleep 2 + '/// close application ///' + Call hCloseDocument endcase diff --git a/testautomation/graphics/optional/includes/impress/im_011_.inc b/testautomation/graphics/optional/includes/impress/im_011_.inc index d31586b9079c..30ab1bebb74e 100644 --- a/testautomation/graphics/optional/includes/impress/im_011_.inc +++ b/testautomation/graphics/optional/includes/impress/im_011_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Impress Required Test Library (11) '* diff --git a/testautomation/graphics/optional/includes/impress/options.inc b/testautomation/graphics/optional/includes/impress/options.inc index 3443ecf91198..cfce04e68805 100644 --- a/testautomation/graphics/optional/includes/impress/options.inc +++ b/testautomation/graphics/optional/includes/impress/options.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* Owner : wolfram.garten@sun.com +'* Owner : wolfram.garten@oracle.com '* '* short description : Tests the Presentation-Engines effects '* |