diff options
author | Joerg Skottke [jsk] <jsk@openoffice.org> | 2010-04-22 12:24:41 +0200 |
---|---|---|
committer | Joerg Skottke [jsk] <jsk@openoffice.org> | 2010-04-22 12:24:41 +0200 |
commit | 8ea12b2273375008f127d7b285304d509a9ea925 (patch) | |
tree | 8d2d1e38cbf57b9bcb227d54b29375a95570cc2a /testautomation/math | |
parent | vitomation01: #i108621 - Removed two QAErrorLogs that stated that the tests a... (diff) | |
download | core-8ea12b2273375008f127d7b285304d509a9ea925.tar.gz core-8ea12b2273375008f127d7b285304d509a9ea925.zip |
vitomation01: #i109696 - sub hTBOTypeInMathDoc removed as it was only a wrapper for another function.
Diffstat (limited to 'testautomation/math')
-rw-r--r-- | testautomation/math/required/includes/m_001_.inc | 1152 | ||||
-rwxr-xr-x[-rw-r--r--] | testautomation/math/required/includes/m_002_.inc | 4 | ||||
-rwxr-xr-x[-rw-r--r--] | testautomation/math/required/includes/m_007_.inc | 8 | ||||
-rwxr-xr-x[-rw-r--r--] | testautomation/math/required/includes/m_020_.inc | 2 |
4 files changed, 580 insertions, 586 deletions
diff --git a/testautomation/math/required/includes/m_001_.inc b/testautomation/math/required/includes/m_001_.inc index 371f7f090d52..1e9a1be3fae3 100644 --- a/testautomation/math/required/includes/m_001_.inc +++ b/testautomation/math/required/includes/m_001_.inc @@ -31,347 +31,344 @@ '* '\***************************************************************** - global cActFilter as string ' used filter for save - Const cActFilterExt = ".odf" ' used filter for save (extension) +global cActFilter as string ' used filter for save +Const cActFilterExt = ".odf" ' used filter for save (extension) ' "StarMath 5.0" ".smf" ' Datei$ = convertpath( gOfficePath + "user\work\killme" + cActFilterExt) ' Datei$ = convertpath( gOfficePath + "user\work\Erwin2"+cActFilterExt) ' Datei = convertpath(gofficepath + "user\work\test"+cActFilterExt) -sub M_001_ - Printlog Chr(13) + "-- File Menu m_001_ --" - - cActFilter = gMathFilter - - Call tmFileNew - Call tmFileOpen -' Call Autopilot 'in Inc\desktop\autopilo.inc - Call tmFileClose - Call tmFileSave - Call tmFileSaveAs - Call tmFileSaveAll - Call tmFileReload - Call tmFileVersions - Call tmExportAsPDF - Call tExportAsPDFButton - Call tmFileProperties - Call tmFilePrinterSetting - Call tmFilePassword +sub M_001Printlog Chr(13) + "-- File Menu m_001_ --" + + cActFilter = gMathFilter + + Call tmFileNew + Call tmFileOpen + ' Call Autopilot 'in Inc\desktop\autopilo.inc + Call tmFileClose + Call tmFileSave + Call tmFileSaveAs + Call tmFileSaveAll + Call tmFileReload + Call tmFileVersions + Call tmExportAsPDF + Call tExportAsPDFButton + Call tmFileProperties + Call tmFilePrinterSetting + Call tmFilePassword end sub testcase tmFileNew -'/// open application ///' - Call hNewDocument - '/// File->New->Templates and Documents ///' - FileNewFromTemplate - sleep 3 - Kontext "TemplateAndDocuments" - if TemplateAndDocuments.exists (5) then - try - '/// klick button 'Organize' ///' - Organize.click - kontext "DVVerwalten" - if DVVerwalten.exists (5) then - Call DialogTest (DVVerwalten) - sleep 1 - '/// close dialog 'Template Management' ///' - DVVerwalten.close - else - warnlog "DVVerwalten didn't exist :-(" - endif - catch - warnlog "error ;-) - 1" - endcatch - else - warnlog "templates and dokuments didn't exist :-(" - endif - try - sleep 1 - kontext "TemplateAndDocuments" - sleep 1 - Call DialogTest ( TemplateAndDocuments ) - catch - warnlog "no dialogtest possibele :-(" - endcatch - -' TBO i don't get in deep here, because it is not math specific -' and IMHO it doesn't make that sense here! -' should be enoug in writer... - '/// close dialog 'Templates and Documents' ///' - TemplateAndDocuments.Cancel -'/// close application ///' - Call hCloseDocument + '/// open application ///' + Call hNewDocument + '/// File->New->Templates and Documents ///' + FileNewFromTemplate + sleep 3 + Kontext "TemplateAndDocuments" + if TemplateAndDocuments.exists (5) then + try + '/// klick button 'Organize' ///' + Organize.click + kontext "DVVerwalten" + if DVVerwalten.exists (5) then + Call DialogTest (DVVerwalten) + sleep 1 + '/// close dialog 'Template Management' ///' + DVVerwalten.close + else + warnlog "DVVerwalten didn't exist :-(" + endif + catch + warnlog "error ;-) - 1" + endcatch + else + warnlog "templates and dokuments didn't exist :-(" + endif + try + sleep 1 + kontext "TemplateAndDocuments" + sleep 1 + Call DialogTest ( TemplateAndDocuments ) + catch + warnlog "no dialogtest possibele :-(" + endcatch + + ' TBO i don't get in deep here, because it is not math specific + ' and IMHO it doesn't make that sense here! + ' should be enoug in writer... + '/// close dialog 'Templates and Documents' ///' + TemplateAndDocuments.Cancel + '/// close application ///' + Call hCloseDocument endcase testcase tmFilePassword - Dim DokumentPfad$ - Dim Datei$ -'/// open application ///' -while (getDocumentCount > 0) -hCloseDocument -wend - hNewDocument - '/// type a formula ///' - SchreibenInMathdok "a over b" - - printlog "'/// - save doc as "+cActFilter+" with passwd - ///'" - FileSaveAs - Kontext "SpeichernDlg" - Datei$ = convertpath( gOfficePath + "user\work\killme" + cActFilterExt) - if Dir (Datei$) <> "" then kill Datei$ - printlog " Testfile: "+Datei$ - 'Dateityp.Select (cActFilter) - Passwort.Check - Dateiname.SetText Datei$ - Speichern.Click - Kontext "Active" - if Active.Exists (5) then - ' TBO: ??? what will be ??! - Printlog "(1/5) " + Active.GetText - Active.Yes - end if - - printlog "'/// Try wrong passwd confirmation ///'" - Sleep 2 - Kontext "PasswordFileSave" - sleep (2) - try - Password.SetText "12345" - PasswordConfirm.Settext "54321" - PasswordFileSave.OK - Sleep 2 - catch - warnlog "had to ask for passwd!!!!" - endcatch - Kontext - if (Active.Exists (5) = FALSE ) then - Warnlog "Wrong passwordinput not detected" - else - Printlog "(2/5) " + Active.GetText - Active.OK - end if - - printlog "'/// Now do it right ///'" - Kontext "PasswordFileSave" - try - Password.SetText "12345" - PasswordConfirm.Settext "12345" - PasswordFileSave.OK - catch - warnlog "had to ask for passwd!!!!" - endcatch - - Sleep 2 - printlog "'/// Gotcha & Close file/window ///'" - FileClose - sleep 1 - - printlog "'/// load again with wrong passwd ///'" - Call hFileOpen Datei$ - sleep 1 - Kontext "PasswordFileOpen" - try - Passwortname.SetText "34567" - PasswordFileOpen.OK - catch - warnlog "had to ask for passwd!!!!" - endcatch - Kontext "Active" - if Active.Exists(5) then - Printlog "(3/5) " + Active.GetText - Active.Ok - else - Warnlog "Wrong passwordinput not detected by loading the document" - end if - - printlog "'///load now with right passwd ///'" - Sleep 3 - 'Call hDateiOeffnen Datei$ - Kontext "PasswordFileOpen" - try - Passwortname.SetText "12345" - PasswordFileOpen.OK - catch - warnlog "had to ask for passwd!!!!" - endcatch - Sleep 2 - - printlog "'/// - save doc with new name under 6.... (has to be automagical selected by loading this doc!) w/o passwd - ///'" - Datei$ = convertpath( gOfficePath + "user\work\Erwin2"+cActFilterExt) - if Dir (Datei$) <> "" then kill Datei$ - FileSaveAs - Kontext "SpeichernDlg" - Dateiname.SetText Datei$ - if (Passwort.IsChecked <> TRUE) then - Warnlog "#i36015# Password has to be checked! :-(" - Passwort.Check - printlog "will be forced checked no!" - endif - Speichern.Click - Kontext "Messagebox" - '/// (if messagebox comes up, say YES) ///' - if Messagebox.Exists(2) then - Messagebox.Yes - endif - '/// password dialog has to show up! ///' - Kontext "PasswordFileSave" - if (PasswordFileSave.Exists(5) = FALSE)then - Warnlog "- Password dialog Didn't popped up after pressing save" - else - Kontext "PasswordFileSave" - '/// type password "a12345", confirm password: "a12345" -> RIGHT ///' - Password.SetText "a12345" - PasswordConfirm.SetText "a12345" - PasswordFileSave.OK - sleep 2 - '/// close document ///' - FileClose - sleep 1 - endif - '/// open document ///' - FileOpen - sleep 1 - Kontext "OeffnenDlg" - Dateiname.SetText Datei$ - Oeffnen.Click - Kontext "PasswordFileOpen" - sleep 1 - '/// type password: "a12345" -> RIGHT ///' - PasswortName.SetText "a12345" - PasswordFileOpen.OK - sleep 5 - '/// File->SaveAs ///' - FileSaveAs - Kontext "SpeichernDlg" - Dateiname.SetText Datei$ - if (Passwort.IsChecked <> TRUE) then - Warnlog "#i36015# Password has to be checked! :-(" - Passwort.Check - printlog "will be forced checked no!" - endif - Passwort.UnCheck - '/// press 'save', without changing any checkbox! -> file has to be saved WITH password protection ///' - Speichern.Click - Kontext "Messagebox" - '/// (if messagebox comes up, say YES) ///' - if Messagebox.Exists(2) then Messagebox.Yes - '/// password dialog needn't to show up! ///' - Kontext "PasswordFileSave" - if (PasswordFileSave.Exists(5))then - Warnlog "- Password dialog neeedn't popped up after pressing save" - Kontext "PasswordFileSave" - passwordFileSave.cancel - '/// close document ///' - FileClose - else - '/// close document ///' - hCloseDocument - end if + Dim DokumentPfad$ + Dim Datei$ + '/// open application ///' + hFileCloseAll() + hNewDocument + '/// type a formula ///' + SchreibenInMathdok "a over b" + + printlog "'/// - save doc as "+cActFilter+" with passwd - ///'" + FileSaveAs + Kontext "SpeichernDlg" + Datei$ = convertpath( gOfficePath + "user\work\killme" + cActFilterExt) + if Dir (Datei$) <> "" then kill Datei$ + printlog " Testfile: "+Datei$ + 'Dateityp.Select (cActFilter) + Passwort.Check + Dateiname.SetText Datei$ + Speichern.Click + Kontext "Active" + if Active.Exists (5) then + ' TBO: ??? what will be ??! + Printlog "(1/5) " + Active.GetText + Active.Yes + end if + + printlog "'/// Try wrong passwd confirmation ///'" + Sleep 2 + Kontext "PasswordFileSave" + sleep (2) + try + Password.SetText "12345" + PasswordConfirm.Settext "54321" + PasswordFileSave.OK + Sleep 2 + catch + warnlog "had to ask for passwd!!!!" + endcatch + Kontext + if (Active.Exists (5) = FALSE ) then + Warnlog "Wrong passwordinput not detected" + else + Printlog "(2/5) " + Active.GetText + Active.OK + end if + + printlog "'/// Now do it right ///'" + Kontext "PasswordFileSave" + try + Password.SetText "12345" + PasswordConfirm.Settext "12345" + PasswordFileSave.OK + catch + warnlog "had to ask for passwd!!!!" + endcatch + + Sleep 2 + printlog "'/// Gotcha & Close file/window ///'" + FileClose + sleep 1 + + printlog "'/// load again with wrong passwd ///'" + Call hFileOpen Datei$ + sleep 1 + Kontext "PasswordFileOpen" + try + Passwortname.SetText "34567" + PasswordFileOpen.OK + catch + warnlog "had to ask for passwd!!!!" + endcatch + Kontext "Active" + if Active.Exists(5) then + Printlog "(3/5) " + Active.GetText + Active.Ok + else + Warnlog "Wrong passwordinput not detected by loading the document" + end if + + printlog "'///load now with right passwd ///'" + Sleep 3 + 'Call hDateiOeffnen Datei$ + Kontext "PasswordFileOpen" + try + Passwortname.SetText "12345" + PasswordFileOpen.OK + catch + warnlog "had to ask for passwd!!!!" + endcatch + Sleep 2 + + printlog "'/// - save doc with new name under 6.... (has to be automagical selected by loading this doc!) w/o passwd - ///'" + Datei$ = convertpath( gOfficePath + "user\work\Erwin2"+cActFilterExt) + if Dir (Datei$) <> "" then kill Datei$ + FileSaveAs + Kontext "SpeichernDlg" + Dateiname.SetText Datei$ + if (Passwort.IsChecked <> TRUE) then + Warnlog "#i36015# Password has to be checked! :-(" + Passwort.Check + printlog "will be forced checked no!" + endif + Speichern.Click + Kontext "Messagebox" + '/// (if messagebox comes up, say YES) ///' + if Messagebox.Exists(2) then + Messagebox.Yes + endif + '/// password dialog has to show up! ///' + Kontext "PasswordFileSave" + if (PasswordFileSave.Exists(5) = FALSE)then + Warnlog "- Password dialog Didn't popped up after pressing save" + else + Kontext "PasswordFileSave" + '/// type password "a12345", confirm password: "a12345" -> RIGHT ///' + Password.SetText "a12345" + PasswordConfirm.SetText "a12345" + PasswordFileSave.OK + sleep 2 + '/// close document ///' + FileClose + sleep 1 + endif + '/// open document ///' + FileOpen + sleep 1 + Kontext "OeffnenDlg" + Dateiname.SetText Datei$ + Oeffnen.Click + Kontext "PasswordFileOpen" + sleep 1 + '/// type password: "a12345" -> RIGHT ///' + PasswortName.SetText "a12345" + PasswordFileOpen.OK + sleep 5 + '/// File->SaveAs ///' + FileSaveAs + Kontext "SpeichernDlg" + Dateiname.SetText Datei$ + if (Passwort.IsChecked <> TRUE) then + Warnlog "#i36015# Password has to be checked! :-(" + Passwort.Check + printlog "will be forced checked no!" + endif + Passwort.UnCheck + '/// press 'save', without changing any checkbox! -> file has to be saved WITH password protection ///' + Speichern.Click + Kontext "Messagebox" + '/// (if messagebox comes up, say YES) ///' + if Messagebox.Exists(2) then Messagebox.Yes + '/// password dialog needn't to show up! ///' + Kontext "PasswordFileSave" + if (PasswordFileSave.Exists(5))then + Warnlog "- Password dialog neeedn't popped up after pressing save" + Kontext "PasswordFileSave" + passwordFileSave.cancel + '/// close document ///' + FileClose + else + '/// close document ///' + hCloseDocument + end if endcase testcase tmFileReload - Dim Datei as String - dim sFilterName as string - dim sFilter as string - dim sFilterExt() as string - - Datei = convertpath(gofficepath + "user\work\test"+cActFilterExt) - if Dir (Datei) <> "" then kill (Datei) - - ' make sure saving in latest math filter works, checking global filtername and if necessary change it - sFilter = hGetUIFiltername("math8") - - '/// open application ///' - hNewDocument - '/// type a formula ///' - call hTBOtypeInDoc - '/// File->Save As ///' - FileSaveAs - Kontext "SpeichernDlg" - '/// select the actual default file format ///' - Dateityp.Select (hFindFilterPosition( sFilter )) - '/// type a file name ///' - Dateiname.SetText Datei - '/// click button 'save' ///' - Speichern.Click - Kontext "Active" - if Active.Exists(2) then Active.Yes - sleep 3 - '/// File->Close ///' - FileClose - Kontext - if MessageBox.Exists (1) then - WarnLog "After Saving and Closing the following MessageBox appears: " + MessageBox.GetText - MessageBox.Yes - end if - - '/// open just saved file ///' - Call hFileOpen Datei - '/// type a formula ///' - call hTBOtypeInDoc - sleep (3) - '/// File->Reload ///' - FileReload - sleep (3) - Kontext - if Active.Exists (1) then - PrintLog "Say no to: " + Active.GetText - '/// say NO to active ///' - active.No - else - WarnLog "Missing smth to say no to! " - end if - - Sleep 3 - '/// File->Reload ///' - FileReload - Kontext - if Active.Exists (1) then - PrintLog "Said yes to: " + Active.GetText - '/// say YES to active ///' - active.Yes - end if - '/// close application ///' - Call hCloseDocument + Dim Datei as String + dim sFilterName as string + dim sFilter as string + dim sFilterExt() as string + + Datei = convertpath(gofficepath + "user\work\test"+cActFilterExt) + if Dir (Datei) <> "" then kill (Datei) + + ' make sure saving in latest math filter works, checking global filtername and if necessary change it + sFilter = hGetUIFiltername("math8") + + '/// open application ///' + hNewDocument + '/// type a formula ///' + call SchreibenInMathdok "a over b" + '/// File->Save As ///' + FileSaveAs + Kontext "SpeichernDlg" + '/// select the actual default file format ///' + Dateityp.Select (hFindFilterPosition( sFilter )) + '/// type a file name ///' + Dateiname.SetText Datei + '/// click button 'save' ///' + Speichern.Click + Kontext "Active" + if Active.Exists(2) then Active.Yes + sleep 3 + '/// File->Close ///' + FileClose + Kontext + if MessageBox.Exists (1) then + WarnLog "After Saving and Closing the following MessageBox appears: " + MessageBox.GetText + MessageBox.Yes + end if + + '/// open just saved file ///' + Call hFileOpen Datei + '/// type a formula ///' + call SchreibenInMathdok "a over b" + sleep (3) + '/// File->Reload ///' + FileReload + sleep (3) + Kontext + if Active.Exists (1) then + PrintLog "Say no to: " + Active.GetText + '/// say NO to active ///' + active.No + else + WarnLog "Missing smth to say no to! " + end if + + Sleep 3 + '/// File->Reload ///' + FileReload + Kontext + if Active.Exists (1) then + PrintLog "Said yes to: " + Active.GetText + '/// say YES to active ///' + active.Yes + end if + '/// close application ///' + Call hCloseDocument endcase testcase tmFileVersions - Dim Datei as String - - Datei = ConvertPath (gOfficePath & "user/work/test"+cActFilterExt) - if app.Dir (Datei) <> "" then app.kill (Datei) - - '/// open application ///' - Call hNewDocument - sleep 2 - '/// type a formula ///' - SchreibenInMathdok "a over b" - '/// save file ///' - Call hFileSaveAs(Datei) - Sleep 3 - try - '/// File->Versions ///' - FileVersions - catch - Warnlog "- File / Versions not accessible!" - goto endsub - endcatch - - Kontext "Versionen" - Call DialogTest ( Versionen ) - '/// click button 'Save New Version' ///' - Speichern.Click - Kontext "VersionskommentarEingeben" - Call DialogTest ( VersionskommentarEingeben ) - '/// cancel dialog 'Insert Version Comment' ///' - VersionskommentarEingeben.Cancel - Kontext "Versionen" - '/// close dialog 'Version of ...' ///' - Versionen.Close - '/// close application ///' - Call hCloseDocument - if app.Dir (Datei) <> "" then app.kill Datei + Dim Datei as String + + Datei = ConvertPath (gOfficePath & "user/work/test"+cActFilterExt) + if app.Dir (Datei) <> "" then app.kill (Datei) + + '/// open application ///' + Call hNewDocument + sleep 2 + '/// type a formula ///' + SchreibenInMathdok "a over b" + '/// save file ///' + Call hFileSaveAs(Datei) + Sleep 3 + try + '/// File->Versions ///' + FileVersions + catch + Warnlog "- File / Versions not accessible!" + goto endsub + endcatch + + Kontext "Versionen" + Call DialogTest ( Versionen ) + '/// click button 'Save New Version' ///' + Speichern.Click + Kontext "VersionskommentarEingeben" + Call DialogTest ( VersionskommentarEingeben ) + '/// cancel dialog 'Insert Version Comment' ///' + VersionskommentarEingeben.Cancel + Kontext "Versionen" + '/// close dialog 'Version of ...' ///' + Versionen.Close + '/// close application ///' + Call hCloseDocument + if app.Dir (Datei) <> "" then app.kill Datei endcase '----------------------------------------------------------- @@ -379,284 +376,281 @@ endcase '----------------------------------------------------------- testcase tmFileOpen -'/// open application ///' - call hNewDocument - '/// File->Open ///' - FileOpen - Kontext "OeffnenDlg" - '/// klick button 'Up one level' ///' - UebergeordneterOrdner.Click - '/// klick button 'Default Directory' ///' - Standard.Click - '/// check checkbox 'Read Only' ///' - NurLesen.check - Call DialogTest ( OeffnenDlg ) - '/// cancel dialog 'Open' ///' - OeffnenDlg.Cancel - Sleep 2 - '/// close application ///' - Call hCloseDocument + '/// open application ///' + call hNewDocument + '/// File->Open ///' + FileOpen + Kontext "OeffnenDlg" + '/// klick button 'Up one level' ///' + UebergeordneterOrdner.Click + '/// klick button 'Default Directory' ///' + Standard.Click + '/// check checkbox 'Read Only' ///' + NurLesen.check + Call DialogTest ( OeffnenDlg ) + '/// cancel dialog 'Open' ///' + OeffnenDlg.Cancel + Sleep 2 + '/// close application ///' + Call hCloseDocument endcase testcase tmFileClose -'/// open application ///' - hNewDocument ' just for the records: i open ONE document - '/// type a formula ///' - call hTBOtypeInDoc - sleep (2) - '/// File->Close ///' - FileClose - Kontext ' expecting 'modified, do you want to close?' - if active.exists (5) then - printlog " ok, active came up: " + active.gettext - '/// say NO to active about 'modified stuff :-)' ///' - Active.Cancel ' no, not this time - else - warnlog "active missing (1)" - endif - sleep (2) - '/// File->Close ///' - FileClose - Kontext - '/// say YES to active about 'modified stuff :-)' ///' - Active.Yes ' but now - records: this document is closed - sleep (2) - Kontext "SpeichernDlg" - Call DialogTest ( SpeichernDlg ) - '/// cancel dialog 'Save As' ///' - SpeichernDlg.Cancel - sleep (2) - - '/// File->Close ///' - FileClose ' now the office gets closed! (if there were no modifications!) - Kontext - if active.exists (5) then Active.No - sleep (2) + '/// open application ///' + hNewDocument ' just for the records: i open ONE document + '/// type a formula ///' + call SchreibenInMathdok "a over b" + sleep (2) + '/// File->Close ///' + FileClose + Kontext ' expecting 'modified, do you want to close?' + if active.exists (5) then + printlog " ok, active came up: " + active.gettext + '/// say NO to active about 'modified stuff :-)' ///' + Active.Cancel ' no, not this time + else + warnlog "active missing (1)" + endif + sleep (2) + '/// File->Close ///' + FileClose + Kontext + '/// say YES to active about 'modified stuff :-)' ///' + Active.Yes ' but now - records: this document is closed + sleep (2) + Kontext "SpeichernDlg" + Call DialogTest ( SpeichernDlg ) + '/// cancel dialog 'Save As' ///' + SpeichernDlg.Cancel + sleep (2) + + '/// File->Close ///' + FileClose ' now the office gets closed! (if there were no modifications!) + Kontext + if active.exists (5) then Active.No + sleep (2) endcase testcase tmFileSave -'/// open application ///' - hNewDocument - '/// type a formula ///' - call hTBOtypeInDoc - '/// File->Save ///' - FileSave - sleep 2 - Kontext "SpeichernDlg" - UebergeordneterOrdner.click - Standard.Click -' NeuerOrdner.Click -' DateiAuswahl.TypeKeys "Hallo<Return>" -' DateiLoeschen -' Kontext "Messagebox" -' MessageBox.Yes - Call DialogTest (SpeichernDlg) - '/// cancel dialog 'Save' ///' - SpeichernDlg.Cancel + '/// open application ///' + hNewDocument + '/// type a formula ///' + call SchreibenInMathdok "a over b" + '/// File->Save ///' + FileSave + sleep 2 + Kontext "SpeichernDlg" + UebergeordneterOrdner.click + Standard.Click + ' NeuerOrdner.Click + ' DateiAuswahl.TypeKeys "Hallo<Return>" + ' DateiLoeschen + ' Kontext "Messagebox" + ' MessageBox.Yes + Call DialogTest (SpeichernDlg) + '/// cancel dialog 'Save' ///' + SpeichernDlg.Cancel sleep 2 - '/// close application ///' - Call hCloseDocument + '/// close application ///' + Call hCloseDocument endcase testcase tmFileSaveAs -'/// open application ///' - hNewDocument - sleep (2) - '/// type a formula ///' - call hTBOtypeInDoc - '/// File->Save As ///' - FileSaveAs - sleep 1 - Kontext "SpeichernDlg" - if (SpeichernDlg.exists (5) = FALSE) then - warnlog "error :-(" - endif - sleep 2 - '/// check ceckbox 'save with Password' ///' - Passwort.check - '/// UNcheck ceckbox 'save with Password' ///' - Passwort.uncheck - '/// click button 'up one level' ///' - UebergeordneterOrdner.click - '/// click button 'default directory' ///' - Standard.Click - '/// click button 'create new directory' ///' - NeuerOrdner.click - kontext "NeuerOrdner" - '/// cancel dialog 'create new folder' ///' - NeuerOrdner.cancel - Kontext "SpeichernDlg" - Call DialogTest (SpeichernDlg) - '/// cancel dialog 'Save As' ///' - SpeichernDlg.Cancel - sleep (2) - '/// close application ///' - Call hCloseDocument + '/// open application ///' + hNewDocument + sleep (2) + '/// type a formula ///' + call SchreibenInMathdok "a over b" + '/// File->Save As ///' + FileSaveAs + sleep 1 + Kontext "SpeichernDlg" + if (SpeichernDlg.exists (5) = FALSE) then + warnlog "error :-(" + endif + sleep 2 + '/// check ceckbox 'save with Password' ///' + Passwort.check + '/// UNcheck ceckbox 'save with Password' ///' + Passwort.uncheck + '/// click button 'up one level' ///' + UebergeordneterOrdner.click + '/// click button 'default directory' ///' + Standard.Click + '/// click button 'create new directory' ///' + NeuerOrdner.click + kontext "NeuerOrdner" + '/// cancel dialog 'create new folder' ///' + NeuerOrdner.cancel + Kontext "SpeichernDlg" + Call DialogTest (SpeichernDlg) + '/// cancel dialog 'Save As' ///' + SpeichernDlg.Cancel + sleep (2) + '/// close application ///' + Call hCloseDocument endcase testcase tmFileSaveAll -'/// open application ///' - hNewDocument - '/// type a formula ///' - call hTBOtypeInDoc - Printlog " '/// open 2. window ///" - hNewDocument - '/// type a formula ///' - call hTBOtypeInDoc - - Printlog " call save all" - '/// File->Save All ///' - FileSaveAll - Printlog " cancel 1. save" - Kontext "SpeichernDlg" - if SpeichernDlg.exists(5) then - '/// cancel dialog 'save as' ///' - SpeichernDlg.Cancel - else - qaErrorlog "First File save dialog did not show up." - endif - Printlog " cancel 2. save" - Kontext "SpeichernDlg" - if SpeichernDlg.exists(5) then - '/// cancel dialog 'save as' ///' - SpeichernDlg.Cancel - else - qaErrorlog "Second File save dialog did not show up." - endif - - try - Kontext "SpeichernDlg" - SpeichernDlg.Cancel - printlog "smth had been typed in the starting window (just a hint ;-) )" - catch - printlog "--------- no other window want's to get saved. :-)" - endcatch - - Sleep 2 - Printlog " hCloseDocument both" - '/// close document ///' - Call hCloseDocument - sleep 2 - Printlog " first closed" - '/// close application ///' - try - Call hCloseDocument - catch - printlog "any catching?" - endcatch - sleep 1 - Printlog " second closed" - sleep (5) + '/// open application ///' + hNewDocument + '/// type a formula ///' + call SchreibenInMathdok "a over b" + Printlog " '/// open 2. window ///" + hNewDocument + '/// type a formula ///' + call SchreibenInMathdok "a over b" + + Printlog " call save all" + '/// File->Save All ///' + FileSaveAll + Printlog " cancel 1. save" + Kontext "SpeichernDlg" + if SpeichernDlg.exists(5) then + '/// cancel dialog 'save as' ///' + SpeichernDlg.Cancel + else + qaErrorlog "First File save dialog did not show up." + endif + Printlog " cancel 2. save" + Kontext "SpeichernDlg" + if SpeichernDlg.exists(5) then + '/// cancel dialog 'save as' ///' + SpeichernDlg.Cancel + else + qaErrorlog "Second File save dialog did not show up." + endif + + try + Kontext "SpeichernDlg" + SpeichernDlg.Cancel + printlog "smth had been typed in the starting window (just a hint ;-) )" + catch + printlog "--------- no other window want's to get saved. :-)" + endcatch + + Sleep 2 + Printlog " hCloseDocument both" + '/// close document ///' + Call hCloseDocument + sleep 2 + Printlog " first closed" + '/// close application ///' + try + Call hCloseDocument + catch + printlog "any catching?" + endcatch + sleep 1 + Printlog " second closed" + sleep (5) endcase testcase tmExportAsPDF - dim sPDF as string - dim sTemp as string - - sPDF = "PDF - Portable Document Format (.pdf)" - - '/// open application ///' - Call hNewDocument - - '/// click the button 'Export Directly as PDF' on the Functionbar ///' - kontext "Standardbar" - Sleep 5 - ExportAsPDF.click - ' the 'Export as PDF' dialog has to come up, with the only 'File type' 'PDF - Portable Document Format (.pdf)' - kontext "ExportierenDlg" - sTemp = Dateityp.GetSelText - if (sTemp <> sPDF) then - Warnlog "filter for PDF export is missing :-( should: '" + sPDF + "'; is: '" + + "'" - endif - '///+ - set Textbox 'File name' to "abc" ///' - Dateiname.SetText "abc" - '///+ - use the cursor keys in the filebrowser ///' - DateiAuswahl.TypeKeys "<home><down>" - '///+ - click on the button 'Up one level' ///' - UebergeordneterOrdner.Click - '///+ - click on the button 'Create New Directory' ///' - NeuerOrdner.Click - kontext "NeuerOrdner" - '///+ - - in the dialog $Foldername set textfield 'New' to 'abc' ///' - OrdnerName.SetText "abc" - '///+ - - cancel dialog $Foldername ///' - NeuerOrdner.cancel - kontext "ExportierenDlg" - '///+ - click on the button 'Default Directory' ///' - Standard.Click - '///+ - cancel dialog ///' - Kontext "ExportierenDlg" - ExportierenDlg.Cancel - - '/// close application ///' - Call hCloseDocument + dim sPDF as string + dim sTemp as string + + sPDF = "PDF - Portable Document Format (.pdf)" + + '/// open application ///' + Call hNewDocument + + '/// click the button 'Export Directly as PDF' on the Functionbar ///' + kontext "Standardbar" + Sleep 5 + ExportAsPDF.click + ' the 'Export as PDF' dialog has to come up, with the only 'File type' 'PDF - Portable Document Format (.pdf)' + kontext "ExportierenDlg" + sTemp = Dateityp.GetSelText + if (sTemp <> sPDF) then + Warnlog "filter for PDF export is missing :-( should: '" + sPDF + "'; is: '" + + "'" + endif + '///+ - set Textbox 'File name' to "abc" ///' + Dateiname.SetText "abc" + '///+ - use the cursor keys in the filebrowser ///' + DateiAuswahl.TypeKeys "<home><down>" + '///+ - click on the button 'Up one level' ///' + UebergeordneterOrdner.Click + '///+ - click on the button 'Create New Directory' ///' + NeuerOrdner.Click + kontext "NeuerOrdner" + '///+ - - in the dialog $Foldername set textfield 'New' to 'abc' ///' + OrdnerName.SetText "abc" + '///+ - - cancel dialog $Foldername ///' + NeuerOrdner.cancel + kontext "ExportierenDlg" + '///+ - click on the button 'Default Directory' ///' + Standard.Click + '///+ - cancel dialog ///' + Kontext "ExportierenDlg" + ExportierenDlg.Cancel + + '/// close application ///' + Call hCloseDocument endcase testcase tmFileProperties -'/// open application ///' - Call hNewDocument - '/// File->Properties... ///' - FileProperties - - Kontext - '/// select tabpage 'General' ///' - active.SetPage TabDokument - Kontext "TabDokument" - Call DialogTest ( TabDokument ) - - Kontext - '/// select tabpage 'Description' ///' - active.SetPage TabDokumentInfo - Kontext "TabDokumentInfo" - Call DialogTest ( TabDokumentInfo ) - - Kontext - '/// select tabpage 'Internet' ///' - active.SetPage TabInternet - Kontext "TabInternet" - Call DialogTest (TabInternet) - TabInternet.Cancel - '/// close application ///' - Call hCloseDocument - - qaerrorlog "#i95523# Custom Properties is not controlable by VCL TestTool Application" - goto endsub - - Kontext - '/// select tabpage 'User defined' ///' - active.SetPage TabBenutzer - Kontext "TabBenutzer" - Call DialogTest ( TabBenutzer ) - '/// click button 'info fields' ///' - Infofelder.Click - Kontext "InfonamenBearbeiten" - Call DialogTest (InfonamenBearbeiten) - '/// close dialog 'edit field names' ///' - InfoNamenBearbeiten.Cancel + '/// open application ///' + Call hNewDocument + '/// File->Properties... ///' + FileProperties + + Kontext + '/// select tabpage 'General' ///' + active.SetPage TabDokument + Kontext "TabDokument" + Call DialogTest ( TabDokument ) + + Kontext + '/// select tabpage 'Description' ///' + active.SetPage TabDokumentInfo + Kontext "TabDokumentInfo" + Call DialogTest ( TabDokumentInfo ) + + Kontext + '/// select tabpage 'Internet' ///' + active.SetPage TabInternet + Kontext "TabInternet" + Call DialogTest (TabInternet) + TabInternet.Cancel + '/// close application ///' + Call hCloseDocument + + qaerrorlog "#i95523# Custom Properties is not controlable by VCL TestTool Application" + goto endsub + + Kontext + '/// select tabpage 'User defined' ///' + active.SetPage TabBenutzer + Kontext "TabBenutzer" + Call DialogTest ( TabBenutzer ) + '/// click button 'info fields' ///' + Infofelder.Click + Kontext "InfonamenBearbeiten" + Call DialogTest (InfonamenBearbeiten) + '/// close dialog 'edit field names' ///' + InfoNamenBearbeiten.Cancel endcase testcase tmFilePrinterSetting -'/// open application ///' - Call hNewDocument - sleep 3 - '/// File->Printer Settings ///' - FilePrintersettings - kontext - if active.exists(2) then - active.ok - qaerrorlog "There is no printer available - please install one on your system!" - endif - Kontext "DruckerEinrichten" - Call DialogTest (DruckerEinrichten) - sleep 2 - '/// cancel dialog 'printer setup' ///' - DruckerEinrichten.Cancel - sleep 2 - '/// close application ///' - Call hCloseDocument + '/// open application ///' + Call hNewDocument + sleep 3 + '/// File->Printer Settings ///' + FilePrintersettings + kontext + if active.exists(2) then + active.ok + qaerrorlog "There is no printer available - please install one on your system!" + endif + Kontext "DruckerEinrichten" + Call DialogTest (DruckerEinrichten) + sleep 2 + '/// cancel dialog 'printer setup' ///' + DruckerEinrichten.Cancel + sleep 2 + '/// close application ///' + Call hCloseDocument endcase -sub hTBOtypeInDoc - SchreibenInMathdok "a over b" -end sub diff --git a/testautomation/math/required/includes/m_002_.inc b/testautomation/math/required/includes/m_002_.inc index 860ba8ae0135..d65d49cb188b 100644..100755 --- a/testautomation/math/required/includes/m_002_.inc +++ b/testautomation/math/required/includes/m_002_.inc @@ -46,7 +46,7 @@ testcase tmEditUndoRedo hNewDocument kontext "DocumentMath" '/// type something into the document ///' - call hTBOtypeInDoc + call SchreibenInMathdok "a over b" try '/// Edit->Undo ///' EditUndo @@ -70,7 +70,7 @@ testcase tmEditAllClipboard ' Commands.TypeKeys Eingabe '/// type something into the document ///' - call hTBOtypeInDoc + call SchreibenInMathdok "a over b" '/// Edit->Select All ///' EditSelectAllMath Sleep 2 diff --git a/testautomation/math/required/includes/m_007_.inc b/testautomation/math/required/includes/m_007_.inc index 9fe712a516a8..99cc9e729412 100644..100755 --- a/testautomation/math/required/includes/m_007_.inc +++ b/testautomation/math/required/includes/m_007_.inc @@ -49,7 +49,7 @@ testcase tmHelpHelpAgent '/// open application ///' Call hNewDocument - hTBOtypeInDoc + SchreibenInMathdok "a over b" HelpHelpAgent ' it's just a switch sleep 2 @@ -62,7 +62,7 @@ endcase testcase tmHelpTips '/// open application ///' Call hNewDocument - hTBOtypeInDoc + SchreibenInMathdok "a over b" HelpTips Sleep 2 @@ -75,7 +75,7 @@ endcase testcase tmHelpExtendedTips '/// open application ///' Call hNewDocument - hTBOtypeInDoc + SchreibenInMathdok "a over b" HelpEntendedHelp Sleep (2) @@ -88,7 +88,7 @@ endcase testcase tmHelpAboutStarOffice '/// open application ///' Call hNewDocument - hTBOtypeInDoc + SchreibenInMathdok "a over b" HelpAboutStarOffice Kontext "UeberStarMath" diff --git a/testautomation/math/required/includes/m_020_.inc b/testautomation/math/required/includes/m_020_.inc index b2edf7170ede..31d9fed08c2e 100644..100755 --- a/testautomation/math/required/includes/m_020_.inc +++ b/testautomation/math/required/includes/m_020_.inc @@ -40,7 +40,7 @@ testcase tMainToolbar '/// open application ///' Call hNewDocument '/// type something into document ///' - hTBOtypeInDoc + SchreibenInMathdok "a over b" kontext "Toolbar" '/// click buttons on Main Toolbar ///' '/// click 'Zoom in' ///' |