* Output XML list when XML is asked

git-svn-id: trunk@33171 -
This commit is contained in:
michael 2016-03-05 22:24:17 +00:00
parent 920b93a121
commit 9271f17a45

View File

@ -382,7 +382,7 @@ begin
fPlain: Write(GetSuiteAsPlain(GetTestRegistry));
fPlainNoTiming: Write(GetSuiteAsPlain(GetTestRegistry));
else
Write(GetSuiteAsLatex(GetTestRegistry));;
Write(GetSuiteAsXml(GetTestRegistry));;
end;
//run the tests