test script added in r44550

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

bt5/erp5_web_ung_theme/TestTemplateItem/testUNG.py

@@ -355,4 +355,25 @@ class TestUNG(ERP5TypeTestCase):
     self.portal.portal_preferences.ung_preference.enable()
     self.stepTic()
     preference_dict = json.loads(self.portal.Base_getPreferencePathList())
-    self.assertEquals(preference_dict["preference"], "portal_preferences/ung_preference")
\ No newline at end of file
+    self.assertEquals(preference_dict["preference"], "portal_preferences/ung_preference")
+  
+  def testWebSection_getWebPageObjectList(self):
+    """Test if the paths of preference objects are returned correctly"""
+    self.portal.web_page_module.manage_delObjects(list(self.portal.web_page_module.objectIds()))
+    self.stepTic()
+    self.portal.web_page_module.newContent(portal_type="Web Page")
+    self.portal.web_page_module.newContent(portal_type="Web Table")
+    self.portal.web_page_module.newContent(portal_type="Web Illustration")
+    self.stepTic()
+    kw = {"portal_type": "Web Page"}
+    result_list = self.portal.web_site_module.ung.WebSection_getWebPageObjectList(**kw)
+    self.assertEquals(len(result_list), 1)
+    self.assertEquals(result_list[0].getPortalType(), "Web Page")
+    kw["portal_type"] = "Web Illustration"
+    result_list = self.portal.web_site_module.ung.WebSection_getWebPageObjectList(**kw)
+    self.assertEquals(len(result_list), 1)
+    self.assertEquals(result_list[0].getPortalType(), "Web Illustration")
+    kw["portal_type"] = "Web Table"
+    result_list = self.portal.web_site_module.ung.WebSection_getWebPageObjectList(**kw)
+    self.assertEquals(len(result_list), 1)
+    self.assertEquals(result_list[0].getPortalType(), "Web Table")
\ No newline at end of file

bt5/erp5_web_ung_theme/bt/revision

-323
\ No newline at end of file
+324
\ No newline at end of file