diff options
author | Jan Holesovsky <kendy@suse.cz> | 2011-05-30 13:12:16 +0200 |
---|---|---|
committer | Jan Holesovsky <kendy@suse.cz> | 2011-05-30 13:12:16 +0200 |
commit | c568fb896f6d3442e98002eaa062c31b8ed0f518 (patch) | |
tree | 41daba02634e4a0861ecd99dce2d733df7510172 /testautomation | |
parent | 9b5f814f6fcbbd1679594bca40e2375394011c3c (diff) | |
parent | 815aa34f904b794cc6100fc1e2812bb92b4dbac5 (diff) |
Merge commit 'libreoffice-3.4.0.2'
Diffstat (limited to 'testautomation')
-rw-r--r-- | testautomation/global/win/bars.win | 4 | ||||
-rw-r--r-- | testautomation/graphics/optional/includes/global/g_mediaplayer.inc | 56 |
2 files changed, 28 insertions, 32 deletions
diff --git a/testautomation/global/win/bars.win b/testautomation/global/win/bars.win index 9bd0d252cd55..850baef4f598 100644 --- a/testautomation/global/win/bars.win +++ b/testautomation/global/win/bars.win @@ -1231,7 +1231,7 @@ DruckLayout .uno:PrintLayout Effekt .uno:EffectWindow Edit .uno:EditDoc Einfuegen .uno:InsertCtrl -Ellipsen .uno:Ellipse +Ellipsen .uno:BasicShapes.ellipse ExecuteBtn .uno:SbaExecuteSql Feldbefehle .uno:InsertFieldCtrl Filter .uno:DataFilterStandardFilter @@ -1271,7 +1271,7 @@ OnlineLayout .uno:BrowseView Paste .uno:Paste Praesentation .uno:Presentation PrintDefault .uno:PrintDefault -Rechteck .uno:Rect +Rechteck .uno:BasicShapes.rectangle Rechtschreibung .uno:Spelling RecSearch .uno:RecSearch RecSave .uno:RecSave diff --git a/testautomation/graphics/optional/includes/global/g_mediaplayer.inc b/testautomation/graphics/optional/includes/global/g_mediaplayer.inc index f78cdf816815..e3e824a8d7c6 100644 --- a/testautomation/graphics/optional/includes/global/g_mediaplayer.inc +++ b/testautomation/graphics/optional/includes/global/g_mediaplayer.inc @@ -39,13 +39,9 @@ testcase g_mediaplayer dim timevalue2 dim timevalue3 dim timecounter, iWaitIndex, timefound as integer - + if iSprache <> 39 then Printlog "- MediaPlayer" - if gPlatgroup = "unx" then - QaErrorLog "Solaris / Linux: Soundcard + Java Media Framework (JMF) Media-Libraries is needed." - goto endsub - endif Datei$ = ConvertPath (convertPath (gTesttoolPath + "graphics\required\input\29secsound.wav")) printlog "Open New Document" Call hNewDocument @@ -53,12 +49,12 @@ testcase g_mediaplayer printlog "Check if the Media Player already exists - if so - close it" kontext "mPlayer" printlog "Close the MediaPlayer if it is open already" - if mPlayer.exists then + if mPlayer.exists then warnlog "The MediaPlayer was visible since some earlier test." ToolsMediaPlayer printlog "Closed the Media Player" endif - + printlog "Tools - MediaPlayer" ToolsMediaPlayer sleep 2 @@ -76,11 +72,11 @@ testcase g_mediaplayer kontext "OeffnenDlg" Pfad.SetText Datei$ Oeffnen.Click - + printlog "This test wont work correctly under Solaris and Linux," printlog "unless some optional Media-libraries are installed." printlog "Therefore we warn the tester about it if we cannot open the file." - + iWaitIndex = 0 do while OeffnenDlg.Exists AND iWaitIndex < 10 sleep (1) @@ -93,15 +89,15 @@ testcase g_mediaplayer kontext "Mplayer" ToolsMediaPlayer printlog "close document" - Call hCloseDocument + Call hCloseDocument goto endsub else kontext "Mplayer" if Mplayer.exists then printlog "Media Player was opened." endif - + timevalue1 = mTimeedit.GetText - + printlog "Stop" sleep 2 mStop.Click @@ -144,7 +140,7 @@ testcase g_mediaplayer else Printlog "the play-button seemed to work. Good." endif - + printlog "Pause" mPlay.Click sleep 10 @@ -159,10 +155,10 @@ testcase g_mediaplayer else Printlog "the pause-button seemed to work. Good." endif - + printlog "Time" printlog " Click Stop to get to the beginning." - mStop.Click + mStop.Click sleep 1 printlog "And make sure it's really the beginning." timevalue1 = mTimeedit.GetText @@ -173,13 +169,13 @@ testcase g_mediaplayer else printlog "Sound stopped, time-value set to 00:00:00." endif - + printlog "We press 'Play'" printlog "Click play to get it running" - mPlay.Click + mPlay.Click sleep 5 timefound = 0 - + for timecounter = 1 to 50000 timevalue1 = mTimeedit.GetText if timevalue1 = "00:00:20 / 00:00:29" then @@ -191,7 +187,7 @@ testcase g_mediaplayer timefound = 2 endif next timecounter - + if timefound = 1 then Printlog "the time-counter seemed to work. Good." elseif timefound = 2 then @@ -199,34 +195,34 @@ testcase g_mediaplayer elseif timefound = 0 then warnlog "Either the time didnt change, or the test-computer is too fast." endif - + printlog "Loop" mLoop.Click - + printlog "Volume" - + printlog "Mute" mMute.Click sleep 1 mMute.Click - + printlog "Time-slider" ' mTimeslider. 'Click '-Position slider 'Moves to a different position in the file. - + printlog "Scroll-whatever" 'mZoomlistbox. '-Zoom 'Adjusts the size of the movie playback. - + printlog "Apply" mInsert.Click sleep 10 - + printlog "Close the MediaPlayer via Tools - MediaPlayer" ToolsMediaPlayer - + printlog "Check if there is an object available." if (gApplication = "IMPRESS") then kontext "DocumentImpress" @@ -236,7 +232,7 @@ testcase g_mediaplayer hTypeKeys ("<escape><tab><tab><tab>") hOpenContextMenu() hMenuSelectNr(1) - + Kontext "TabPositionAndSize" Kontext Active.SetPage TabPositionAndSize @@ -250,8 +246,8 @@ testcase g_mediaplayer endif sleep 2 printlog "close document" - Call hCloseDocument + Call hCloseDocument else qaerrorLog "#74350# - Different strings in g_mediaplayer under Italian." endif -endcase
\ No newline at end of file +endcase |