Commits

Anonymous committed fdd4af1

#112894# added update test for security tab page and enabled custom properties again

Comments (0)

Files changed (4)

testautomation/global/win/etab_a_d.win

 ToolbarContents sym:CUI_HID_SVX_CONFIG_TOOLBAR_CONTENTS
 ResetBtn sym:SFX2_HID_TABDLG_RESET_BTN
  
+*TabCustomProperties sym:SFX2_HID_TP_CUSTOMPROPERTIES
+Properties sym:SFX2_HID_CTRL_CUSTOMPROPERTIES
+Add sym:sfx2:PushButton:TP_CUSTOMPROPERTIES:BTN_ADD
+
 *TabDatabaseField sym:extensions:TabPage:RID_PAGE_OPTION_DBFIELD
 YesSaveIt sym:extensions:RadioButton:RID_PAGE_OPTION_DBFIELD:RB_STOREINFIELD_YES
 NoValueForm sym:extensions:RadioButton:RID_PAGE_OPTION_DBFIELD:RB_STOREINFIELD_NO

testautomation/graphics/required/includes/global/id_001.inc

    Kontext "TabDokumentInfo"
    Call DialogTest ( TabDokumentInfo )
 
-   qaerrorlog "#i95523#"
-   'Kontext
-   'active.SetPage TabBenutzer
-   'Kontext "TabBenutzer"
-   'Call DialogTest ( TabBenutzer )
-   'Infofelder.Click
-   '   Kontext "InfonamenBearbeiten"
-   '   Call DialogTest (InfonamenBearbeiten)
-   'InfonamenBearbeiten.Cancel
+    Kontext
+    '/// select tabpage 'Security' ///'
+    active.SetPage TabSecurityProperties
+    Kontext "TabSecurityProperties"
+    Call DialogTest ( TabSecurityProperties)
+
+    Kontext
+    '/// select tabpage 'User defined' ///'
+    active.SetPage TabCustomProperties
+    Kontext "TabCustomProperties"
+    Call DialogTest ( TabCustomProperties )
 
    Kontext
    active.SetPage TabInternet

testautomation/math/required/includes/m_001_.inc

     Call DialogTest ( TabDokumentInfo )
 
     Kontext
+    '/// select tabpage 'Security' ///'
+    active.SetPage TabSecurityProperties
+    Kontext "TabSecurityProperties"
+    Call DialogTest ( TabSecurityProperties)
+
+    Kontext
+    '/// select tabpage 'User defined' ///'
+    active.SetPage TabCustomProperties
+    Kontext "TabCustomProperties"
+    Call DialogTest ( TabCustomProperties )
+
+    Kontext
     '/// select tabpage 'Internet' ///'
     active.SetPage TabInternet
     Kontext "TabInternet"
     Call DialogTest (TabInternet)
+
     hCloseDialog( 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' ///'
-    hCloseDialog( InfoNamenBearbeiten, "cancel" )
 endcase
 
 testcase tmFilePrinterSetting

testautomation/writer/required/includes/w_001a_.inc

     Kontext "TabDokumentinfo"
     Call DialogTest (TabDokumentinfo)
 
+    Kontext
+    printlog " Switch to Tabpage 'Security'"
+    active.SetPage TabSecurityProperties
+    Kontext "TabSecurityProperties"
+    Call DialogTest ( TabSecurityProperties)
+    printlog " Click button 'Protect...'"
+    Protect.click
+    kontext "PasswordDLG"
+    Call DialogTest (PasswordDLG)
+    printlog " Cancel dialog 'Password'"
+    PasswordDLG.cancel
 
-    Warnlog "#i95523# - FileProperties - Tabpage 'User Defined' has changed. - Adaption of testcases needed."
-    '    printlog " Switch to Tabpage 'User defined'"
-    '    Kontext
-    '    active.SetPage TabBenutzer
-    '    Kontext "TabBenutzer"
-    '    Call DialogTest ( TabBenutzer )
-
-    '    Wait 500
-
-    '    Infofelder.Click
-    '    printlog " Click 'Infofields'"
-    '    Kontext "InfonamenBearbeiten"
-    '    printlog " Close upcoming dialog with 'Cancel'"
-    '    Call DialogTest (InfonamenBearbeiten)
-    '    InfonamenBearbeiten.Cancel
+    Kontext
+    printlog " Switch to Tabpage 'User defined'"
+    active.SetPage TabCustomProperties
+    Kontext "TabCustomProperties"
+    Call DialogTest ( TabCustomProperties )
 
     printlog " Switch to Tabpage 'Internet'"
     Kontext