diff --git a/product/ERP5/tests/testSecurity.py b/product/ERP5/tests/testSecurity.py
new file mode 100644
index 0000000000000000000000000000000000000000..bee071aef63bbd6417d17b7fd732fef95ddd0ef3
--- /dev/null
+++ b/product/ERP5/tests/testSecurity.py
@@ -0,0 +1,124 @@
+# -*- coding: utf-8 -*-
+##############################################################################
+#
+# Copyright (c) 2013 Nexedi SA and Contributors. All Rights Reserved.
+#
+# WARNING: This program as such is intended to be used by professional
+# programmers who take the whole responsibility of assessing all potential
+# consequences resulting from its eventual inadequacies and bugs
+# End users who are looking for a ready-to-use solution with commercial
+# guarantees and support are strongly advised to contract a Free Software
+# Service Company
+#
+# This program is Free Software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+#
+##############################################################################
+
+import os
+import unittest
+from types import MethodType
+from Acquisition import aq_base
+from Products.ERP5Type.tests.ERP5TypeTestCase import ERP5TypeTestCase
+
+# You can invoke security tests in your favourite collection of business templates
+# by using TestSecurityMixin like the following :
+#
+# from Products.ERP5.tests.testERP5Security import TestSecurityMixin
+# class TestMySecurity(TestSecurityMixin):
+#   def getBusinessTemplateList(self):
+#     return (...)
+
+class TestSecurityMixin(ERP5TypeTestCase):
+
+  def _prepareDocumentList(self):
+    if getattr(self, '_prepareDocumentList_finished', None):
+      return
+    portal_types = self.portal.portal_types
+    portal_type_dict = {}
+    def createSubObject(obj):
+      portal_type = obj.getPortalType()
+      type_info = getattr(portal_types, portal_type, None)
+      if type_info is None:
+        return
+      for i in type_info.getTypeAllowedContentTypeList():
+        if i in portal_type_dict:
+          continue
+        portal_type_dict[i] = True
+        try:
+          o = obj.newContent(portal_type=i, created_by_builder=True)
+          createSubObject(o)
+        except:
+          pass
+    for i in self.portal.objectValues():
+      if getattr(aq_base(i), 'getPortalType', None) is not None:
+        createSubObject(i)
+    self._prepareDocumentList_finished = True
+
+  def test_method_protection(self):
+    """
+    This test will list all implicitly Public methods in any objects in ZODB.
+    i.e. those who have a docstring but have no security declaration.
+    """
+    self._prepareDocumentList()
+    white_method_id_list = ['om_icons',]
+    app = self.portal.aq_parent
+    meta_type_dict = {}
+    error_dict = {}
+    for idx, obj in app.ZopeFind(app, search_sub=1):
+      meta_type = getattr(obj, 'meta_type', None)
+      if meta_type is None:
+        continue
+      if meta_type in meta_type_dict:
+        continue
+      meta_type_dict[meta_type] = True
+      if '__roles__' in obj.__class__.__dict__:
+        continue
+      method_id_list = [x for x in dir(obj) if callable(getattr(obj, x, None))]
+      for method_id in method_id_list:
+        if method_id.startswith('_') or method_id in white_method_id_list:
+          continue
+        method = getattr(obj, method_id)
+        if isinstance(method, MethodType) and \
+          getattr(method, 'func_name', None) is not None and \
+          method.__doc__ and \
+          not hasattr(obj, '%s__roles__' % method_id) and \
+          method.__module__:
+          if method.__module__ == 'Products.ERP5Type.Accessor.WorkflowState' and method.func_code.co_name == 'serialize':
+            continue
+          func_code = method.func_code
+          error_dict[(func_code.co_filename, func_code.co_firstlineno, method_id)] = True
+    error_list = error_dict.keys()
+    if os.environ.get('erp5_debug_mode', None):
+      pass
+    else:
+      error_list = filter(lambda x:'/erp5/' in x[0], error_list)
+    if error_list:
+      message = '\nThe following %s methods have a docstring but have no security assertions.\n\t%s' \
+                    % (len(error_list), '\n\t'.join(['%s:%s %s' % x for x in sorted(error_list)]))
+      self.fail(message)
+
+class TestSecurity(TestSecurityMixin):
+
+  def getTitle(self):
+    return "Security Test"
+
+  def getBusinessTemplateList(self):
+    from Products.ERP5.tests.testXHTML import TestXHTML
+    return TestXHTML.getBusinessTemplateList()
+
+def test_suite():
+  suite = unittest.TestSuite()
+  suite.addTest(unittest.makeSuite(TestSecurity))
+  return suite