mirror of
https://github.com/ganelson/inform.git
synced 2024-07-09 02:24:21 +03:00
82 lines
2.9 KiB
OpenEdge ABL
82 lines
2.9 KiB
OpenEdge ABL
[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);
|