diff options
author | Thorsten Bosbach <tbo@OpenOffice.org> | 2010-07-06 14:40:48 +0200 |
---|---|---|
committer | Thorsten Bosbach <tbo@OpenOffice.org> | 2010-07-06 14:40:48 +0200 |
commit | f2a74e8d594e2539f18fe4c637d582966b52a2b3 (patch) | |
tree | 2271e621fa6dd893cc8a18dc669e7db8fc4472e1 /testautomation/global/required/includes/g_option.inc | |
parent | b53656e84799104fb1adb8ed62a7b9d4046816b3 (diff) |
#i112967# be nice to unexpected extension tabpages
Diffstat (limited to 'testautomation/global/required/includes/g_option.inc')
-rwxr-xr-x | testautomation/global/required/includes/g_option.inc | 30 |
1 files changed, 28 insertions, 2 deletions
diff --git a/testautomation/global/required/includes/g_option.inc b/testautomation/global/required/includes/g_option.inc index b14ceca82c9f..fe462038899f 100755 --- a/testautomation/global/required/includes/g_option.inc +++ b/testautomation/global/required/includes/g_option.inc @@ -579,14 +579,28 @@ testcase tToolsOptionsInternet '///+<ol><li>Proxy</li> '///+<li>Search</li> '///+<li>Mozilla Plugin</li></ol> - EchteAnzahl = OptionTabPageZaehler ( 3 , FALSE ) + EchteAnzahl = OptionTabPageZaehler ( 3 , TRUE ) + if (EchteAnzahl > 3) then + qaErrorLog ("Due to some installed extensions the tabpage count is not 3 it is: " + EchteAnzahl) + else + if (EchteAnzahl < 3) then + warnlog "Number of tabpages old : 3 new : " + EchteAnzahl + endif + endif else '/// On Unix systems this section includes four tab pages. '///+<ol><li>Proxy</li> '///+<li>Search</li> '///+<li>E-Mail</li> '///+<li>Mozilla Plugin</li></ol> - EchteAnzahl = OptionTabPageZaehler ( 4 , FALSE ) + EchteAnzahl = OptionTabPageZaehler ( 4 , TRUE ) + if (EchteAnzahl > 4) then + qaErrorLog ("Due to some installed extensions the tabpage count is not 3 it is: " + EchteAnzahl) + else + if (EchteAnzahl < 4) then + warnlog "Number of tabpages old : 3 new : " + EchteAnzahl + endif + endif endif for i=1 to EchteAnzahl @@ -647,6 +661,18 @@ testcase tToolsOptionsInternet Call DialogTest ( TabMozillaPlugin ) endif endif + case 5,6 : Kontext "TabMediaWiki" + if TabMediaWiki.exists then + qaerrorlog " - Wiki Publisher" + Call DialogTest ( TabMediaWiki ) + gefunden = TRUE + endif + Kontext "TabWeblog" + if TabWeblog.exists then + qaerrorlog " - Weblog Publisher" + Call DialogTest ( TabWeblog ) + gefunden = TRUE + endif end select if gefunden=FALSE then Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!" |