inform7/inter/pipeline-module/Chapter 5/Tests.w

[SynopticTests::] Tests.

To compile the main/synoptic/tests submodule.

@ Our inventory |inv| already contains a list |inv->test_nodes| of all packages
in the tree with type |_test|.

=
void SynopticTests::compile(inter_tree *I, pipeline_step *step, tree_inventory *inv) {
	if (InterNodeList::array_len(inv->test_nodes) > 0)
		InterNodeList::array_sort(inv->test_nodes, MakeSynopticModuleStage::module_order);
	@<Define TESTSCRIPTSUB function@>;
}

@ This is the function run when the command TEST is typed into the command parser
at runtime.

@<Define TESTSCRIPTSUB function@> =
	inter_name *iname = HierarchyLocations::iname(I, TESTSCRIPTSUB_HL);
	Synoptic::begin_function(I, iname);
	if (InterNodeList::array_len(inv->test_nodes) == 0) {
		Produce::inv_primitive(I, PRINT_BIP);
		Produce::down(I);
			Produce::val_text(I, I">--> No test scripts exist for this game.\n");
		Produce::up(I);
	} else {
		Produce::inv_primitive(I, SWITCH_BIP);
		Produce::down(I);
			Produce::val_iname(I, K_value, HierarchyLocations::iname(I, SPECIAL_WORD_HL));
			Produce::code(I);
			Produce::down(I);
				for (int i=0; i<InterNodeList::array_len(inv->test_nodes); i++) {
					inter_package *pack = PackageInstruction::at_this_head(inv->test_nodes->list[i].node);
					text_stream *name = Metadata::required_textual(pack, I"^name");
					inter_ti len = Metadata::read_numeric(pack, I"^length");
					inter_symbol *text_s = Synoptic::get_symbol(pack, I"script");
					inter_symbol *req_s = Synoptic::get_symbol(pack, I"requirements");
					Produce::inv_primitive(I, CASE_BIP);
					Produce::down(I);
						Produce::val_dword(I, name);
						Produce::code(I);
						Produce::down(I);
							Produce::inv_call_iname(I, HierarchyLocations::iname(I, TESTSTART_HL));
							Produce::down(I);
								Produce::val_symbol(I, K_value, text_s);
								Produce::val_symbol(I, K_value, req_s);
								Produce::val(I, K_value, InterValuePairs::number(len));
							Produce::up(I);
						Produce::up(I);
					Produce::up(I);
				}
				Produce::inv_primitive(I, DEFAULT_BIP);
				Produce::down(I);
					Produce::code(I);
					Produce::down(I);
						Produce::inv_primitive(I, PRINT_BIP);
						Produce::down(I);
							Produce::val_text(I, I">--> The following tests are available:\n");
						Produce::up(I);
						for (int i=0; i<InterNodeList::array_len(inv->test_nodes); i++) {
							inter_package *pack =
								PackageInstruction::at_this_head(inv->test_nodes->list[i].node);
							text_stream *name = Metadata::required_textual(pack, I"^name");
							TEMPORARY_TEXT(T)
							WRITE_TO(T, "'test %S'\n", name);
							Produce::inv_primitive(I, PRINT_BIP);
							Produce::down(I);
								Produce::val_text(I, T);
							Produce::up(I);
							DISCARD_TEXT(T)
						}
						Produce::inv_primitive(I, PRINT_BIP);
						Produce::down(I);
							Produce::val_text(I, I"\n");
						Produce::up(I);
					Produce::up(I);
				Produce::up(I);
			Produce::up(I);
		Produce::up(I);
	}
	Synoptic::end_function(I, step, iname);