And these tests insertation in mappings and multisets

Rev: lib/modules/Tools.pmod/Shoot.pmod/InsertMapping.pike:1.1
Rev: lib/modules/Tools.pmod/Shoot.pmod/InsertMultiset.pike:1.1

lib/modules/Tools.pmod/Shoot.pmod/InsertMapping.pike

+inherit Tools.Shoot.Test;
+
+constant name="Insert in mapping";
+
+int k = 5; /* variable to tune the time of the test */
+int m = 100000; /* the target size of the mapping */
+int n = m*k; // for reporting
+
+void perform()
+{
+   for (int i=0; i<k; i++)
+   {
+      mapping v=([]);
+      for (int j=0; j<m; j++)
+	 v[j]=42;
+   }
+}
+
+string present_n(int ntot,int nruns,float tseconds,float useconds,int memusage)
+{
+   return sprintf("%.0f/s",ntot/useconds);
+}

lib/modules/Tools.pmod/Shoot.pmod/InsertMultiset.pike

+inherit Tools.Shoot.Test;
+
+constant name="Insert in multiset";
+
+int k = 5; /* variable to tune the time of the test */
+int m = 100000; /* the target size of the multiset */
+int n = m*k; // for reporting
+
+void perform()
+{
+   for (int i=0; i<k; i++)
+   {
+      multiset v=(<>);
+      for (int j=0; j<m; j++)
+	 v[j]=42;
+   }
+}
+
+string present_n(int ntot,int nruns,float tseconds,float useconds,int memusage)
+{
+   return sprintf("%.0f/s",ntot/useconds);
+}