Explorar o código

* Output XML list when XML is asked

git-svn-id: trunk@33171 -
michael %!s(int64=9) %!d(string=hai) anos
pai
achega
9271f17a45
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      packages/fcl-fpcunit/src/consoletestrunner.pas

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

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