Function fxRunTestCase

xs/tools/xst262.c:1219–1310

}

int fxRunTestCase(txPool* pool, txContext* context, char* path, txUnsigned flags, int async, char* message)
{
	xsCreation _creation = {
		256 * 1024, 	/* initialChunkSize */
		1 * 1024 * 1024, 	/* incrementalChunkSize */
		1 * 1024 * 32, 	/* initialHeapCount */
		1 * 1024 * 32, 	/* incrementalHeapCount */
		64 * 1024, 		/* stackCount */
		1024, 				/* initialKeyCount */
		1024,				/* incrementalKeyCount */
		1993, 				/* nameModulo */
		127,				/* symbolModulo */
		64 * 1024,			/* parserBufferSize */
		1993,				/* parserTableModulo */
	};
	xsCreation* creation = &_creation;
	xsMachine* machine;
	char buffer[C_PATH_MAX];
	int success = 0;	
	machine = xsCreateMachine(creation, "xst262", NULL);
	xsBeginHost(machine);
	{
		xsVars(5);
		xsTry {
			fxBuildAgent(the);
			c_strcpy(buffer, pool->harnessPath);
			c_strcat(buffer, "sta.js");
			fxRunProgramFile(the, buffer, mxProgramFlag | mxDebugFlag);
			c_strcpy(buffer, pool->harnessPath);
			c_strcat(buffer, "assert.js");
			fxRunProgramFile(the, buffer, mxProgramFlag | mxDebugFlag);
			if (async) {
				xsResult = xsNewHostFunction(fx_done, 1);
				xsSet(xsGlobal, xsID("$DONE"), xsResult);
				xsVar(0) = xsString("Test did not run to completion");
			}
			else
				xsVar(0) = xsUndefined;
			if (context->includes) {
				yaml_node_item_t* item = context->includes->data.sequence.items.start;
				while (item < context->includes->data.sequence.items.top) {
					yaml_node_t* node = yaml_document_get_node(context->document, *item);
					c_strcpy(buffer, pool->harnessPath);
					c_strcat(buffer, (char*)node->data.scalar.value);
					fxRunProgramFile(the, buffer, mxProgramFlag | mxDebugFlag);
					item++;
				}
			}
			mxPop();
			if (pool->flags & XST_LOCKDOWN_FLAG)
				xsCall0(xsGlobal, xsID("lockdown"));
			the->rejection = &xsVar(0);
			if (flags) {
				if (pool->flags & XST_COMPARTMENT_FLAG)
					fxRunProgramFileInCompartment(the, path, flags);
				else
					fxRunProgramFile(the, path, flags);
			}