WIP: External tests

Some API changes and (upcoming) patches to automate the testing of Pd-l2ork externals.

"External tests" might be a bit of a misnomer as the tools should be usable for testing internal classes as well.

Ideally, the tests would do the following:

1. load all libs in the relevant libdir
2. fetch the list of new creator names that came from loading the libraries in the libdir
3. try to create an object using each new creator name (with required args if necessary-- unfortunately some externals fail)
4. for each successfully instantiated object, enumerate the methods and call each one with whatever args are required.
5. check the output against the output we saved from the previous release (of course this implies saving changed state in each release as necessary)
6. for each dsp method, output a single block of audio using [switch~] (probably want to check against known good state, too, but that may create a lot of state)
7. report any new method and new creators

The nice thing is that we can use a nonzero arg to "menuquit" in order to signal to CI that there was a failure in any of these steps.

This will allow us to more easily make changes to the codebase. Not only external libraries but also the build system and core, as any soft failures (of which there are many in the build system) that screw up something in an external lib will (eventually) trigger a hard failure in this test framework.

Difficulties

1. State-saving and other side-effect-based methods. For now we might have to exclude certain methods like "write" or "read" that are more difficult to test using such an automated framework.
2. "helper" creators and methods. Some objects have "proxy" objects with their own class names. However, I think such objects have their constructors disabled. It may be possible to add a check for that in [classinfo] and thus skip these. (Not sure what to do about "helper" methods, though.
3. Probably lots of other problems I'm not thinking of yet...

externals/iemlib/iemlib2/src/iem_i_route.c

@@ -68,38 +68,41 @@ static void iem_i_route_free(t_iem_i_route *x)
 
 static void *iem_i_route_new(t_symbol *s, int argc, t_atom *argv)
 {
-  int n, i;
+  int n, i, first, last, off;
   t_outlet **out;
   t_iem_i_route *x = (t_iem_i_route *)pd_new(iem_i_route_class);
-  
-  if((argc >= 2)&&IS_A_FLOAT(argv,0)&&IS_A_FLOAT(argv,1))
+
+  if (argc) first = atom_getintarg(0, argc--, argv++); else first = 0;
+  if (argc) last = atom_getintarg(0, argc--, argv++); else last = 0;
+  if (argc) off = atom_getintarg(0, argc--, argv++); else off = 0;
+
+  if (first > last)
   {
-    x->x_first_element = (int)atom_getintarg(0, argc, argv);
-    x->x_last_element = (int)atom_getintarg(1, argc, argv);
-    if((argc >= 3)&&IS_A_FLOAT(argv,2))
-    {
-      i = (int)atom_getintarg(2, argc, argv);
-      x->x_first_element += i;
-      x->x_last_element += i;
-    }
-    x->x_out = (t_outlet **)getbytes((x->x_last_element-x->x_first_element+2) * sizeof(t_outlet *));
-    n = x->x_last_element - x->x_first_element + 2;
-    for(i=0, out=x->x_out; i<n; i++, out++)
-      *out = outlet_new(&x->x_obj, &s_list);
-    return (x);
+    post("iem_i_route: warning: illegal range bashed to 0");
+    first = last;
   }
-  else
+  if (last - first + 1 > 100)
   {
-    post("iem_i_route-ERROR: needs 3 floats!!");
-    return(0);
+    post("iem_i_route: warning: only 100 outlets allowed. Setting last "
+         "match value to %d", (int)(first + 98));
+    last = first + 98;
   }
+  x->x_first_element = first + off;
+  x->x_last_element = last + off;
+  x->x_out = (t_outlet **)getbytes((x->x_last_element-x->x_first_element+2) * sizeof(t_outlet *));
+  n = x->x_last_element - x->x_first_element + 2;
+  for(i=0, out=x->x_out; i<n; i++, out++)
+    *out = outlet_new(&x->x_obj, &s_list);
+  return (x);
 }
 
 void iem_i_route_setup(void)
 {
-  iem_i_route_class = class_new(gensym("iem_i_route"), (t_newmethod)iem_i_route_new,
-        (t_method)iem_i_route_free, sizeof(t_iem_i_route), 0, A_GIMME, 0);
-  class_addcreator((t_newmethod)iem_i_route_new, gensym("iiroute"), A_GIMME, 0);
+  iem_i_route_class = class_new(gensym("iem_i_route"),
+    (t_newmethod)iem_i_route_new, (t_method)iem_i_route_free,
+    sizeof(t_iem_i_route), 0, A_GIMME, 0);
+  class_addcreator((t_newmethod)iem_i_route_new, gensym("iiroute"),
+    A_GIMME, 0);
   class_addlist(iem_i_route_class, iem_i_route_list);
-//  class_sethelpsymbol(iem_i_route_class, gensym("iemhelp/help-iem_i_route"));
+  //class_sethelpsymbol(iem_i_route_class, gensym("iemhelp/help-iem_i_route"));
 }