Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Output XML list when XML is asked

git-svn-id: trunk@33171 -
michael 9 years ago
parent
920b93a121
commit
9271f17a45
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      packages/fcl-fpcunit/src/consoletestrunner.pas

+ 1 - 1
packages/fcl-fpcunit/src/consoletestrunner.pas
View File 

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