uitest for bug tdf#107847

Change-Id: Ia3ad578f72fa82f0693c7eef34a43261e4efb878
Reviewed-on: https://gerrit.libreoffice.org/72060
Tested-by: Jenkins
Reviewed-by: Zdenek Crhonek <zcrhonek@gmail.com>

sw/Module_sw.mk

@@ -145,6 +145,7 @@ $(eval $(call gb_Module_add_uicheck_targets,sw,\
 	UITest_writer_tests3 \
 	UITest_writer_tests4 \
 	UITest_writer_tests5 \
+	UITest_writer_tests6 \
 	UITest_table \
 	UITest_sw_findReplace \
 	UITest_sw_findSimilarity \

sw/UITest_writer_tests6.mk

+# This file is part of the LibreOffice project.
+#
+# This Source Code Form is subject to the terms of the Mozilla Public
+# License, v. 2.0. If a copy of the MPL was not distributed with this
+# file, You can obtain one at http://mozilla.org/MPL/2.0/.
+#
+
+$(eval $(call 	gb_UITest_UITest,writer_tests6))
+
+$(eval $(call gb_UITest_add_modules,writer_tests6,$(SRCDIR)/sw/qa/uitest,\
+	writer_tests6/ \
+))
+
+$(eval $(call gb_UITest_set_defs,writer_tests6, \
+    TDOC="$(SRCDIR)/sw/qa/uitest/writer_tests/data" \
+))

sw/qa/uitest/writer_tests6/tdf107847.py

+# -*- tab-width: 4; indent-tabs-mode: nil; py-indent-offset: 4 -*-
+#
+# This Source Code Form is subject to the terms of the Mozilla Public
+# License, v. 2.0. If a copy of the MPL was not distributed with this
+# file, You can obtain one at http://mozilla.org/MPL/2.0/.
+
+from uitest.framework import UITestCase
+from libreoffice.uno.propertyvalue import mkPropertyValues
+from uitest.uihelper.common import get_state_as_dict, type_text
+from uitest.uihelper.common import select_pos
+import time
+from uitest.debug import sleep
+#Bug 107847 - CRASH Opening macro tab of properties dialog (images, frames) causes crash
+
+class tdf107847(UITestCase):
+
+   def test_tdf_107847_macro_tab_crash(self):
+        self.ui_test.create_doc_in_start_center("writer")
+        document = self.ui_test.get_component()
+        xWriterDoc = self.xUITest.getTopFocusWindow()
+        xWriterEdit = xWriterDoc.getChild("writer_edit")
+
+        self.ui_test.execute_dialog_through_command(".uno:InsertFrame")   #  insert frame
+        xDialog = self.xUITest.getTopFocusWindow()
+        xTabs = xDialog.getChild("tabcontrol")
+        select_pos(xTabs, "1")
+        select_pos(xTabs, "2")
+        select_pos(xTabs, "3")
+        select_pos(xTabs, "4")
+        select_pos(xTabs, "5")
+        select_pos(xTabs, "6")
+        select_pos(xTabs, "7")
+        select_pos(xTabs, "8")   #tab Macro
+        xokbtn = xDialog.getChild("ok")
+        self.ui_test.close_dialog_through_button(xokbtn)
+
+        self.assertEqual(document.TextFrames.getCount(), 1)
+        self.xUITest.executeCommand(".uno:Undo")
+        self.assertEqual(document.TextFrames.getCount(), 0)
+        self.ui_test.close_doc()
+# vim: set shiftwidth=4 softtabstop=4 expandtab: