patches/Restricted: allow collections.namedtuple

Also add missing tests for other collections members, now that we make
it another module.

bt5/erp5_core_test/TestTemplateItem/portal_components/test.erp5.testRestrictedPythonSecurity.py

@@ -349,3 +349,52 @@ class TestRestrictedPythonSecurity(ERP5TypeTestCase):
         '''),
         expected=[('a', 3)]
     )
+
+  def test_collections_defaultdict(self):
+    self.createAndRunScript(
+        textwrap.dedent('''\
+          from collections import defaultdict
+          d = defaultdict(list)
+          d["x"].append(1)
+          d["y"] = 2
+          del d["y"]
+          return d
+          '''),
+        expected={"x": [1]}
+    )
+
+  def test_collections_namedtuple(self):
+    self.createAndRunScript(
+        textwrap.dedent('''\
+          from collections import namedtuple
+          Object = namedtuple("Object", ["a", "b", "c"])
+          return Object(a=1, b=2, c=3).a
+          '''),
+        expected=1
+    )
+    # also make sure we can iterate on nametuples
+    self.createAndRunScript(
+        textwrap.dedent('''\
+          from collections import namedtuple
+          Object = namedtuple("Object", ["a", "b", "c"])
+          returned = []
+          for x in Object(a=1, b=2, c=3):
+            returned.append(x)
+          return returned
+          '''),
+        expected=[1, 2, 3]
+    )
+
+  def test_collections_OrderedDict(self):
+    self.createAndRunScript(
+        textwrap.dedent('''\
+          from collections import OrderedDict
+          d = OrderedDict()
+          d["a"] = 1
+          d["b"] = 2
+          d["c"] = 3
+          del d["c"]
+          return list(d.items())
+          '''),
+        expected=[("a", 1), ("b", 2)]
+    )

product/ERP5Type/Collections.py

+##############################################################################
+#
+# Copyright (c) 2020 Nexedi SA and Contributors. All Rights Reserved.
+#
+# WARNING: This program as such is intended to be used by professional
+# programmers who take the whole responsability 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
+# garantees and support are strongly adviced 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., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
+#
+##############################################################################
+"""
+Restricted collections module.
+
+From restricted python, use "import collections" (see patches/Restricted.py).
+"""
+from collections import (
+    Counter, defaultdict, deque, OrderedDict, namedtuple as _namedtuple)
+
+
+def namedtuple(typename, field_names, verbose=False, rename=False):
+  ret = _namedtuple(typename, field_names, verbose, rename)
+  ret.__allow_access_to_unprotected_subobjects__ = 1
+  return ret

product/ERP5Type/patches/Restricted.py

@@ -211,6 +211,8 @@ ContainerAssertions[Counter] = _check_access_wrapper(Counter, _counter_white_lis
 Counter.__guarded_setitem__ = dict.__setitem__
 Counter.__guarded_delitem__ = dict.__delitem__
 
+ModuleSecurityInfo('collections').declarePublic('namedtuple')
+
 # given as example in Products.PythonScripts.module_access_examples
 allow_module('base64')
 allow_module('binascii')
@@ -302,6 +304,7 @@ ModuleSecurityInfo('email.mime.text').declarePublic('MIMEText')
 MNAME_MAP = {
   'zipfile': 'Products.ERP5Type.ZipFile',
   'calendar': 'Products.ERP5Type.Calendar',
+  'collections': 'Products.ERP5Type.Collections',
 }
 for alias, real in MNAME_MAP.items():
   assert '.' not in alias, alias # TODO: support this