Source code
Revision control
Copy as Markdown
Other Tools
/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
/* This Source Code Form is subject to the terms of the Mozilla Public
* License, v. 2.0. If a copy of the MPL was not distributed with this
#include "prio.h"
#include "prprf.h"
#include "prlog.h"
#include "prmem.h"
#include "pratom.h"
#include "prlock.h"
#include "prmwait.h"
#include "prclist.h"
#include "prerror.h"
#include "prinrval.h"
#include "prnetdb.h"
#include "prthread.h"
#include "plstr.h"
#include "plerror.h"
#include "plgetopt.h"
#include <string.h>
typedef struct Shared {
const char* title;
PRLock* list_lock;
PRWaitGroup* group;
PRIntervalTime timeout;
} Shared;
typedef enum Verbosity { silent, quiet, chatty, noisy } Verbosity;
#ifdef DEBUG
# define PORT_INC_DO +100
#else
# define PORT_INC_DO
#endif
#ifdef IS_64
# define PORT_INC_3264 +200
#else
# define PORT_INC_3264
#endif
static PRFileDesc* debug = NULL;
static PRInt32 desc_allocated = 0;
static PRUint16 default_port = 12273 PORT_INC_DO PORT_INC_3264;
static enum Verbosity verbosity = quiet;
static PRInt32 ops_required = 1000, ops_done = 0;
static PRThreadScope thread_scope = PR_LOCAL_THREAD;
static PRIntn client_threads = 20, worker_threads = 2, wait_objects = 50;
#if defined(DEBUG)
# define MW_ASSERT(_expr) \
((_expr) ? ((void)0) : _MW_Assert(#_expr, __FILE__, __LINE__))
static void _MW_Assert(const char* s, const char* file, PRIntn ln) {
if (NULL != debug) {
PL_FPrintError(debug, NULL);
}
PR_Assert(s, file, ln);
} /* _MW_Assert */
#else
# define MW_ASSERT(_expr)
#endif
static void PrintRecvDesc(PRRecvWait* desc, const char* msg) {
const char* tag[] = {"PR_MW_INTERRUPT", "PR_MW_TIMEOUT", "PR_MW_FAILURE",
"PR_MW_SUCCESS", "PR_MW_PENDING"};
PR_fprintf(debug, "%s: PRRecvWait(@0x%x): {fd: 0x%x, outcome: %s, tmo: %u}\n",
msg, desc, desc->fd, tag[desc->outcome + 3], desc->timeout);
} /* PrintRecvDesc */
static Shared* MakeShared(const char* title) {
Shared* shared = PR_NEWZAP(Shared);
shared->group = PR_CreateWaitGroup(1);
shared->timeout = PR_SecondsToInterval(1);
shared->list_lock = PR_NewLock();
shared->title = title;
return shared;
} /* MakeShared */
static void DestroyShared(Shared* shared) {
PRStatus rv;
if (verbosity > quiet) {
PR_fprintf(debug, "%s: destroying group\n", shared->title);
}
rv = PR_DestroyWaitGroup(shared->group);
MW_ASSERT(PR_SUCCESS == rv);
PR_DestroyLock(shared->list_lock);
PR_DELETE(shared);
} /* DestroyShared */
static PRRecvWait* CreateRecvWait(PRFileDesc* fd, PRIntervalTime timeout) {
PRRecvWait* desc_out = PR_NEWZAP(PRRecvWait);
MW_ASSERT(NULL != desc_out);
MW_ASSERT(NULL != fd);
desc_out->fd = fd;
desc_out->timeout = timeout;
desc_out->buffer.length = 120;
desc_out->buffer.start = PR_CALLOC(120);
PR_AtomicIncrement(&desc_allocated);
if (verbosity > chatty) {
PrintRecvDesc(desc_out, "Allocated");
}
return desc_out;
} /* CreateRecvWait */
static void DestroyRecvWait(PRRecvWait* desc_out) {
if (verbosity > chatty) {
PrintRecvDesc(desc_out, "Destroying");
}
PR_Close(desc_out->fd);
if (NULL != desc_out->buffer.start) {
PR_DELETE(desc_out->buffer.start);
}
PR_Free(desc_out);
(void)PR_AtomicDecrement(&desc_allocated);
} /* DestroyRecvWait */
static void CancelGroup(Shared* shared) {
PRRecvWait* desc_out;
if (verbosity > quiet) {
PR_fprintf(debug, "%s Reclaiming wait descriptors\n", shared->title);
}
do {
desc_out = PR_CancelWaitGroup(shared->group);
if (NULL != desc_out) {
DestroyRecvWait(desc_out);
}
} while (NULL != desc_out);
MW_ASSERT(0 == desc_allocated);
MW_ASSERT(PR_GROUP_EMPTY_ERROR == PR_GetError());
} /* CancelGroup */
static void PR_CALLBACK ClientThread(void* arg) {
PRStatus rv;
PRInt32 bytes;
PRIntn empty_flags = 0;
PRNetAddr server_address;
unsigned char buffer[100];
Shared* shared = (Shared*)arg;
PRFileDesc* server = PR_NewTCPSocket();
if ((NULL == server) && (PR_PENDING_INTERRUPT_ERROR == PR_GetError())) {
return;
}
MW_ASSERT(NULL != server);
if (verbosity > chatty) {
PR_fprintf(debug, "%s: Server socket @0x%x\n", shared->title, server);
}
/* Initialize the buffer so that Purify won't complain */
memset(buffer, 0, sizeof(buffer));
rv = PR_InitializeNetAddr(PR_IpAddrLoopback, default_port, &server_address);
MW_ASSERT(PR_SUCCESS == rv);
if (verbosity > quiet) {
PR_fprintf(debug, "%s: Client opening connection\n", shared->title);
}
rv = PR_Connect(server, &server_address, PR_INTERVAL_NO_TIMEOUT);
if (PR_FAILURE == rv) {
if (verbosity > silent) {
PL_FPrintError(debug, "Client connect failed");
}
return;
}
while (ops_done < ops_required) {
bytes = PR_Send(server, buffer, sizeof(buffer), empty_flags,
PR_INTERVAL_NO_TIMEOUT);
if ((-1 == bytes) && (PR_PENDING_INTERRUPT_ERROR == PR_GetError())) {
break;
}
MW_ASSERT(sizeof(buffer) == bytes);
if (verbosity > chatty)
PR_fprintf(debug, "%s: Client sent %d bytes\n", shared->title,
sizeof(buffer));
bytes = PR_Recv(server, buffer, sizeof(buffer), empty_flags,
PR_INTERVAL_NO_TIMEOUT);
if (verbosity > chatty)
PR_fprintf(debug, "%s: Client received %d bytes\n", shared->title,
sizeof(buffer));
if ((-1 == bytes) && (PR_PENDING_INTERRUPT_ERROR == PR_GetError())) {
break;
}
MW_ASSERT(sizeof(buffer) == bytes);
PR_Sleep(shared->timeout);
}
rv = PR_Close(server);
MW_ASSERT(PR_SUCCESS == rv);
} /* ClientThread */
static void OneInThenCancelled(Shared* shared) {
PRStatus rv;
PRRecvWait *desc_out, *desc_in = PR_NEWZAP(PRRecvWait);
shared->timeout = PR_INTERVAL_NO_TIMEOUT;
desc_in->fd = PR_NewTCPSocket();
desc_in->timeout = shared->timeout;
if (verbosity > chatty) {
PrintRecvDesc(desc_in, "Adding desc");
}
rv = PR_AddWaitFileDesc(shared->group, desc_in);
MW_ASSERT(PR_SUCCESS == rv);
if (verbosity > chatty) {
PrintRecvDesc(desc_in, "Cancelling");
}
rv = PR_CancelWaitFileDesc(shared->group, desc_in);
MW_ASSERT(PR_SUCCESS == rv);
desc_out = PR_WaitRecvReady(shared->group);
MW_ASSERT(desc_out == desc_in);
MW_ASSERT(PR_MW_INTERRUPT == desc_out->outcome);
MW_ASSERT(PR_PENDING_INTERRUPT_ERROR == PR_GetError());
if (verbosity > chatty) {
PrintRecvDesc(desc_out, "Ready");
}
rv = PR_Close(desc_in->fd);
MW_ASSERT(PR_SUCCESS == rv);
if (verbosity > quiet) {
PR_fprintf(debug, "%s: destroying group\n", shared->title);
}
PR_DELETE(desc_in);
} /* OneInThenCancelled */
static void OneOpOneThread(Shared* shared) {
PRStatus rv;
PRRecvWait *desc_out, *desc_in = PR_NEWZAP(PRRecvWait);
desc_in->fd = PR_NewTCPSocket();
desc_in->timeout = shared->timeout;
if (verbosity > chatty) {
PrintRecvDesc(desc_in, "Adding desc");
}
rv = PR_AddWaitFileDesc(shared->group, desc_in);
MW_ASSERT(PR_SUCCESS == rv);
desc_out = PR_WaitRecvReady(shared->group);
MW_ASSERT(desc_out == desc_in);
MW_ASSERT(PR_MW_TIMEOUT == desc_out->outcome);
MW_ASSERT(PR_IO_TIMEOUT_ERROR == PR_GetError());
if (verbosity > chatty) {
PrintRecvDesc(desc_out, "Ready");
}
rv = PR_Close(desc_in->fd);
MW_ASSERT(PR_SUCCESS == rv);
PR_DELETE(desc_in);
} /* OneOpOneThread */
static void ManyOpOneThread(Shared* shared) {
PRStatus rv;
PRIntn index;
PRRecvWait* desc_in;
PRRecvWait* desc_out;
if (verbosity > quiet) {
PR_fprintf(debug, "%s: adding %d descs\n", shared->title, wait_objects);
}
for (index = 0; index < wait_objects; ++index) {
desc_in = CreateRecvWait(PR_NewTCPSocket(), shared->timeout);
rv = PR_AddWaitFileDesc(shared->group, desc_in);
MW_ASSERT(PR_SUCCESS == rv);
}
while (ops_done < ops_required) {
desc_out = PR_WaitRecvReady(shared->group);
MW_ASSERT(PR_MW_TIMEOUT == desc_out->outcome);
MW_ASSERT(PR_IO_TIMEOUT_ERROR == PR_GetError());
if (verbosity > chatty) {
PrintRecvDesc(desc_out, "Ready/readding");
}
rv = PR_AddWaitFileDesc(shared->group, desc_out);
MW_ASSERT(PR_SUCCESS == rv);
(void)PR_AtomicIncrement(&ops_done);
}
CancelGroup(shared);
} /* ManyOpOneThread */
static void PR_CALLBACK SomeOpsThread(void* arg) {
PRRecvWait* desc_out;
PRStatus rv = PR_SUCCESS;
Shared* shared = (Shared*)arg;
do /* until interrupted */
{
desc_out = PR_WaitRecvReady(shared->group);
if (NULL == desc_out) {
MW_ASSERT(PR_PENDING_INTERRUPT_ERROR == PR_GetError());
if (verbosity > quiet) {
PR_fprintf(debug, "Aborted\n");
}
break;
}
MW_ASSERT(PR_MW_TIMEOUT == desc_out->outcome);
MW_ASSERT(PR_IO_TIMEOUT_ERROR == PR_GetError());
if (verbosity > chatty) {
PrintRecvDesc(desc_out, "Ready");
}
if (verbosity > chatty) {
PrintRecvDesc(desc_out, "Re-Adding");
}
desc_out->timeout = shared->timeout;
rv = PR_AddWaitFileDesc(shared->group, desc_out);
PR_AtomicIncrement(&ops_done);
if (ops_done > ops_required) {
break;
}
} while (PR_SUCCESS == rv);
MW_ASSERT(PR_SUCCESS == rv);
} /* SomeOpsThread */
static void SomeOpsSomeThreads(Shared* shared) {
PRStatus rv;
PRThread** thread;
PRIntn index;
PRRecvWait* desc_in;
thread = (PRThread**)PR_CALLOC(sizeof(PRThread*) * worker_threads);
/* Create some threads */
if (verbosity > quiet) {
PR_fprintf(debug, "%s: creating threads\n", shared->title);
}
for (index = 0; index < worker_threads; ++index) {
thread[index] =
PR_CreateThread(PR_USER_THREAD, SomeOpsThread, shared, PR_PRIORITY_HIGH,
thread_scope, PR_JOINABLE_THREAD, 16 * 1024);
}
/* then create some operations */
if (verbosity > quiet) {
PR_fprintf(debug, "%s: creating desc\n", shared->title);
}
for (index = 0; index < wait_objects; ++index) {
desc_in = CreateRecvWait(PR_NewTCPSocket(), shared->timeout);
rv = PR_AddWaitFileDesc(shared->group, desc_in);
MW_ASSERT(PR_SUCCESS == rv);
}
if (verbosity > quiet) {
PR_fprintf(debug, "%s: sleeping\n", shared->title);
}
while (ops_done < ops_required) {
PR_Sleep(shared->timeout);
}
if (verbosity > quiet) {
PR_fprintf(debug, "%s: interrupting/joining threads\n", shared->title);
}
for (index = 0; index < worker_threads; ++index) {
rv = PR_Interrupt(thread[index]);
MW_ASSERT(PR_SUCCESS == rv);
rv = PR_JoinThread(thread[index]);
MW_ASSERT(PR_SUCCESS == rv);
}
PR_DELETE(thread);
CancelGroup(shared);
} /* SomeOpsSomeThreads */
static PRStatus ServiceRequest(Shared* shared, PRRecvWait* desc) {
PRInt32 bytes_out;
if (verbosity > chatty)
PR_fprintf(debug, "%s: Service received %d bytes\n", shared->title,
desc->bytesRecv);
if (0 == desc->bytesRecv) {
goto quitting;
}
if ((-1 == desc->bytesRecv) &&
(PR_PENDING_INTERRUPT_ERROR == PR_GetError())) {
goto aborted;
}
bytes_out = PR_Send(desc->fd, desc->buffer.start, desc->bytesRecv, 0,
shared->timeout);
if (verbosity > chatty)
PR_fprintf(debug, "%s: Service sent %d bytes\n", shared->title, bytes_out);
if ((-1 == bytes_out) && (PR_PENDING_INTERRUPT_ERROR == PR_GetError())) {
goto aborted;
}
MW_ASSERT(bytes_out == desc->bytesRecv);
return PR_SUCCESS;
aborted:
quitting:
return PR_FAILURE;
} /* ServiceRequest */
static void PR_CALLBACK ServiceThread(void* arg) {
PRStatus rv = PR_SUCCESS;
PRRecvWait* desc_out = NULL;
Shared* shared = (Shared*)arg;
do /* until interrupted */
{
if (NULL != desc_out) {
desc_out->timeout = PR_INTERVAL_NO_TIMEOUT;
if (verbosity > chatty) {
PrintRecvDesc(desc_out, "Service re-adding");
}
rv = PR_AddWaitFileDesc(shared->group, desc_out);
MW_ASSERT(PR_SUCCESS == rv);
}
desc_out = PR_WaitRecvReady(shared->group);
if (NULL == desc_out) {
MW_ASSERT(PR_PENDING_INTERRUPT_ERROR == PR_GetError());
break;
}
switch (desc_out->outcome) {
case PR_MW_SUCCESS: {
PR_AtomicIncrement(&ops_done);
if (verbosity > chatty) {
PrintRecvDesc(desc_out, "Service ready");
}
rv = ServiceRequest(shared, desc_out);
break;
}
case PR_MW_INTERRUPT:
MW_ASSERT(PR_PENDING_INTERRUPT_ERROR == PR_GetError());
rv = PR_FAILURE; /* if interrupted, then exit */
break;
case PR_MW_TIMEOUT:
MW_ASSERT(PR_IO_TIMEOUT_ERROR == PR_GetError());
case PR_MW_FAILURE:
if (verbosity > silent) {
PL_FPrintError(debug, "RecvReady failure");
}
break;
default:
break;
}
} while (PR_SUCCESS == rv);
if (NULL != desc_out) {
DestroyRecvWait(desc_out);
}
} /* ServiceThread */
static void PR_CALLBACK EnumerationThread(void* arg) {
PRStatus rv;
PRIntn count;
PRRecvWait* desc;
Shared* shared = (Shared*)arg;
PRIntervalTime five_seconds = PR_SecondsToInterval(5);
PRMWaitEnumerator* enumerator = PR_CreateMWaitEnumerator(shared->group);
MW_ASSERT(NULL != enumerator);
while (PR_SUCCESS == PR_Sleep(five_seconds)) {
count = 0;
desc = NULL;
while (NULL != (desc = PR_EnumerateWaitGroup(enumerator, desc))) {
if (verbosity > chatty) {
PrintRecvDesc(desc, shared->title);
}
count += 1;
}
if (verbosity > silent)
PR_fprintf(debug, "%s Enumerated %d objects\n", shared->title, count);
}
MW_ASSERT(PR_PENDING_INTERRUPT_ERROR == PR_GetError());
rv = PR_DestroyMWaitEnumerator(enumerator);
MW_ASSERT(PR_SUCCESS == rv);
} /* EnumerationThread */
static void PR_CALLBACK ServerThread(void* arg) {
PRStatus rv;
PRIntn index;
PRRecvWait* desc_in;
PRThread** worker_thread;
Shared* shared = (Shared*)arg;
PRFileDesc *listener, *service;
PRNetAddr server_address, client_address;
worker_thread = (PRThread**)PR_CALLOC(sizeof(PRThread*) * worker_threads);
if (verbosity > quiet) {
PR_fprintf(debug, "%s: Server creating worker_threads\n", shared->title);
}
for (index = 0; index < worker_threads; ++index) {
worker_thread[index] =
PR_CreateThread(PR_USER_THREAD, ServiceThread, shared, PR_PRIORITY_HIGH,
thread_scope, PR_JOINABLE_THREAD, 16 * 1024);
}
rv = PR_InitializeNetAddr(PR_IpAddrAny, default_port, &server_address);
MW_ASSERT(PR_SUCCESS == rv);
listener = PR_NewTCPSocket();
MW_ASSERT(NULL != listener);
if (verbosity > chatty)
PR_fprintf(debug, "%s: Server listener socket @0x%x\n", shared->title,
listener);
rv = PR_Bind(listener, &server_address);
MW_ASSERT(PR_SUCCESS == rv);
rv = PR_Listen(listener, 10);
MW_ASSERT(PR_SUCCESS == rv);
while (ops_done < ops_required) {
if (verbosity > quiet) {
PR_fprintf(debug, "%s: Server accepting connection\n", shared->title);
}
service = PR_Accept(listener, &client_address, PR_INTERVAL_NO_TIMEOUT);
if (NULL == service) {
if (PR_PENDING_INTERRUPT_ERROR == PR_GetError()) {
break;
}
PL_PrintError("Accept failed");
MW_ASSERT(PR_FALSE && "Accept failed");
} else {
desc_in = CreateRecvWait(service, shared->timeout);
desc_in->timeout = PR_INTERVAL_NO_TIMEOUT;
if (verbosity > chatty) {
PrintRecvDesc(desc_in, "Service adding");
}
rv = PR_AddWaitFileDesc(shared->group, desc_in);
MW_ASSERT(PR_SUCCESS == rv);
}
}
if (verbosity > quiet) {
PR_fprintf(debug, "%s: Server interrupting worker_threads\n",
shared->title);
}
for (index = 0; index < worker_threads; ++index) {
rv = PR_Interrupt(worker_thread[index]);
MW_ASSERT(PR_SUCCESS == rv);
rv = PR_JoinThread(worker_thread[index]);
MW_ASSERT(PR_SUCCESS == rv);
}
PR_DELETE(worker_thread);
PR_Close(listener);
CancelGroup(shared);
} /* ServerThread */
static void RealOneGroupIO(Shared* shared) {
/*
** Create a server that listens for connections and then services
** requests that come in over those connections. The server never
** deletes a connection and assumes a basic RPC model of operation.
**
** Use worker_threads threads to service how every many open ports
** there might be.
**
** Oh, ya. Almost forget. Create (some) clients as well.
*/
PRStatus rv;
PRIntn index;
PRThread *server_thread, *enumeration_thread, **client_thread;
if (verbosity > quiet) {
PR_fprintf(debug, "%s: creating server_thread\n", shared->title);
}
server_thread =
PR_CreateThread(PR_USER_THREAD, ServerThread, shared, PR_PRIORITY_HIGH,
thread_scope, PR_JOINABLE_THREAD, 16 * 1024);
if (verbosity > quiet) {
PR_fprintf(debug, "%s: creating enumeration_thread\n", shared->title);
}
enumeration_thread = PR_CreateThread(PR_USER_THREAD, EnumerationThread,
shared, PR_PRIORITY_HIGH, thread_scope,
PR_JOINABLE_THREAD, 16 * 1024);
if (verbosity > quiet) {
PR_fprintf(debug, "%s: snoozing before creating clients\n", shared->title);
}
PR_Sleep(5 * shared->timeout);
if (verbosity > quiet) {
PR_fprintf(debug, "%s: creating client_threads\n", shared->title);
}
client_thread = (PRThread**)PR_CALLOC(sizeof(PRThread*) * client_threads);
for (index = 0; index < client_threads; ++index) {
client_thread[index] = PR_CreateThread(PR_USER_THREAD, ClientThread, shared,
PR_PRIORITY_NORMAL, thread_scope,
PR_JOINABLE_THREAD, 16 * 1024);
}
while (ops_done < ops_required) {
PR_Sleep(shared->timeout);
}
if (verbosity > quiet) {
PR_fprintf(debug, "%s: interrupting/joining client_threads\n",
shared->title);
}
for (index = 0; index < client_threads; ++index) {
rv = PR_Interrupt(client_thread[index]);
MW_ASSERT(PR_SUCCESS == rv);
rv = PR_JoinThread(client_thread[index]);
MW_ASSERT(PR_SUCCESS == rv);
}
PR_DELETE(client_thread);
if (verbosity > quiet) {
PR_fprintf(debug, "%s: interrupting/joining enumeration_thread\n",
shared->title);
}
rv = PR_Interrupt(enumeration_thread);
MW_ASSERT(PR_SUCCESS == rv);
rv = PR_JoinThread(enumeration_thread);
MW_ASSERT(PR_SUCCESS == rv);
if (verbosity > quiet) {
PR_fprintf(debug, "%s: interrupting/joining server_thread\n",
shared->title);
}
rv = PR_Interrupt(server_thread);
MW_ASSERT(PR_SUCCESS == rv);
rv = PR_JoinThread(server_thread);
MW_ASSERT(PR_SUCCESS == rv);
} /* RealOneGroupIO */
static void RunThisOne(void (*func)(Shared*), const char* name,
const char* test_name) {
Shared* shared;
if ((NULL == test_name) || (0 == PL_strcmp(name, test_name))) {
if (verbosity > silent) {
PR_fprintf(debug, "%s()\n", name);
}
shared = MakeShared(name);
ops_done = 0;
func(shared); /* run the test */
MW_ASSERT(0 == desc_allocated);
DestroyShared(shared);
}
} /* RunThisOne */
static Verbosity ChangeVerbosity(Verbosity verbosity, PRIntn delta) {
return (Verbosity)(((PRIntn)verbosity) + delta);
} /* ChangeVerbosity */
int main(int argc, char** argv) {
PLOptStatus os;
const char* test_name = NULL;
PLOptState* opt = PL_CreateOptState(argc, argv, "dqGc:o:p:t:w:");
while (PL_OPT_EOL != (os = PL_GetNextOpt(opt))) {
if (PL_OPT_BAD == os) {
continue;
}
switch (opt->option) {
case 0:
test_name = opt->value;
break;
case 'd': /* debug mode */
if (verbosity < noisy) {
verbosity = ChangeVerbosity(verbosity, 1);
}
break;
case 'q': /* debug mode */
if (verbosity > silent) {
verbosity = ChangeVerbosity(verbosity, -1);
}
break;
case 'G': /* use global threads */
thread_scope = PR_GLOBAL_THREAD;
break;
case 'c': /* number of client threads */
client_threads = atoi(opt->value);
break;
case 'o': /* operations to compelete */
ops_required = atoi(opt->value);
break;
case 'p': /* default port */
default_port = atoi(opt->value);
break;
case 't': /* number of threads waiting */
worker_threads = atoi(opt->value);
break;
case 'w': /* number of wait objects */
wait_objects = atoi(opt->value);
break;
default:
break;
}
}
PL_DestroyOptState(opt);
if (verbosity > 0) {
debug = PR_GetSpecialFD(PR_StandardError);
}
RunThisOne(OneInThenCancelled, "OneInThenCancelled", test_name);
RunThisOne(OneOpOneThread, "OneOpOneThread", test_name);
RunThisOne(ManyOpOneThread, "ManyOpOneThread", test_name);
RunThisOne(SomeOpsSomeThreads, "SomeOpsSomeThreads", test_name);
RunThisOne(RealOneGroupIO, "RealOneGroupIO", test_name);
return 0;
} /* main */
/* multwait.c */