test that title and content are well copied when creating a clone event

git-svn-id: https://svn.erp5.org/repos/public/erp5/trunk@38334 20353a03-c40f-0410-a6d1-a30d3c3de9de

product/ERP5/tests/testCRM.py

@@ -1315,12 +1315,19 @@ class TestCRMMailSend(BaseTestCRM):
       workflow add a test for clone
     """
     portal_type = "Mail Message"
-    event = self.portal.event_module.newContent(portal_type=portal_type)
+    title = "Title of the event"
+    content = "This is the content of the event"
+    event = self.portal.event_module.newContent(portal_type=portal_type,
+                                                title=title,
+                                                text_content=content,)
     event.setData("This is the context of the event...")
+
     self.stepTic()
     new_event = event.Base_createCloneDocument(batch_mode=1)
     self.failIf(new_event.hasFile())
     self.assertEquals(new_event.getData(), "")
+    self.assertEquals(new_event.getTitle(), title)
+    self.assertEquals(new_event.getTextContent(), content)
 
 
 def test_suite():