1 files changed, 45 insertions, 0 deletions
diff --git a/sw/qa/uitest/writer_tests5/tdf142847.py b/sw/qa/uitest/writer_tests5/tdf142847.py
new file mode 100644
index 0000000000..54cbf8291d
--- /dev/null
+++ b/sw/qa/uitest/writer_tests5/tdf142847.py
@@ -0,0 +1,45 @@
+# -*- tab-width: 4; indent-tabs-mode: nil; py-indent-offset: 4 -*-
+#
+# 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/.
+#
+from uitest.framework import UITestCase
+from uitest.uihelper.common import get_url_for_data_file
+
+class tdf142847(UITestCase):
+    def test_tdf142847(self):
+        # load the sample file
+        with self.ui_test.load_file(get_url_for_data_file("tdf142847.fodt")):
+            document = self.ui_test.get_component()
+
+            # get the shape
+            shape = document.DrawPage.getByIndex(0)
+
+            # get the textbox
+            frame = shape.getText()
+
+            oldFramePos = frame.getPropertyValue("HoriOrientPosition")
+            oldShapePos = shape.getPropertyValue("LeftMargin")
+            oldDiff = oldFramePos - oldShapePos
+
+            # select the shape.
+            self.xUITest.executeCommand(".uno:JumpToNextFrame")
+            self.ui_test.wait_until_child_is_available('metricfield')
+
+            # set the wrap spacing of the shape
+            with self.ui_test.execute_dialog_through_command(".uno:TextWrap") as wrap_dialog:
+                wrap_dialog.getChild('left').executeAction("UP", tuple())
+
+            newDiff = frame.getPropertyValue("HoriOrientPosition") - shape.getPropertyValue("LeftMargin")
+
+            # without the fix, this will fail.
+            # the textbox has fallen apart.
+            self.assertEqual(oldDiff, newDiff)
+
+            self.assertGreater(frame.getPropertyValue("HoriOrientPosition"), oldFramePos)
+            self.assertGreater(shape.getPropertyValue("LeftMargin"), oldShapePos)
+
+# vim: set shiftwidth=4 softtabstop=4 expandtab: