Changeset 2097 in products

Timestamp:

Apr 8, 2010 5:55:36 PM (14 years ago)

Author:

mylan

Message:

#174: Added test for installation

File:

• quintagroup.pfg.captcha/trunk/quintagroup/pfg/captcha/tests.py (modified) (2 diffs)

quintagroup.pfg.captcha/trunk/quintagroup/pfg/captcha/tests.py

@@ -1 +1 @@
 import re
+import string
 import unittest
 
@@ -28 +29 @@
 
 
+class TestInstallations(ptc.PloneTestCase):
+
+    def testInstalledProducts(self):
+        qi = self.portal.portal_quickinstaller
+        installed = [p['id'] for p in qi.listInstalledProducts()]
+        for p in PRODUCTS:
+            if p.startswith('Products'):
+                p = p[9:]
+            self.assertEqual(p in installed, True,
+                '"%s" product not installed' % p)
+
+    def testType(self):
+        pt = self.portal.portal_types
+        self.assertEqual("CaptchaField" in pt.objectIds(), True)
+
+    def testPortalFactory(self):
+        pf = self.portal.portal_factory
+        self.assertEqual("CaptchaField" in pf.getFactoryTypes(), True)
+
+    def testWorkflow(self):
+        pw = self.portal.portal_workflow
+        default_chain = pw.getDefaultChain()
+        cf_chain = pw.getChainForPortalType('CaptchaField')
+        self.assertNotEqual(cf_chain == default_chain , True)
+
+    def testNotToList(self):
+        navtree = self.portal.portal_properties.navtree_properties
+        mtNotToList = navtree.getProperty("metaTypesNotToList")
+        self.assertEqual('CaptchaField' in mtNotToList, True)
+
+    def testSkins(self):
+        ps = self.portal.portal_skins
+        self.assertEqual("qplonecaptchafield" in ps.objectIds(), True)
+        for sname, spath in ps.getSkinPaths():
+            paths = filter(None, map(string.strip, spath.split(',')))
+            self.assertEqual("qplonecaptchafield" in paths, True,
+                '"qplonecaptchafield" layer not present in "%s" skin' % sname)
+
+            
+
 def test_suite():
     suite = unittest.TestSuite()
+    suite.addTest(unittest.makeSuite(TestInstallations))
     return suite