- fprintf(stderr, "\n*** group %s fails: %s\n", pe->name, e);
- ok = 0;
- }
- putchar('.');
+ printf(" [%s failed: %s]", pe->name, e);
+ ok = aok = 0;
+ } else
+ printf(" %s", pe->name);
+ fflush(stdout);
+ }
+ fputs(ok ? " ok\n" : " failed\n", stdout);
+ ok = 1;
+ fputs("checking standard binary groups:", stdout);
+ for (be = bintab; be->name; be++) {
+ gbin_param gb;
+ group *g;
+ dh_infofromdata(&gb, be->data);
+ g = group_binary(&gb);
+ e = G_CHECK(g, gr);
+ G_DESTROYGROUP(g);
+ dh_paramfree(&gb);
+ if (e) {
+ printf(" [%s failed: %s]", be->name, e);
+ ok = aok = 0;
+ } else
+ printf(" %s", be->name);