* also advance the error code in the case of success

git-svn-id: trunk@43419 -

tests/test/trtti17.pp

@@ -36,6 +36,7 @@ begin
     Writeln('TypeInfo failure; expected: ', aType, ', got: ', aTypeInfo^.Kind);
     Halt(NextErrorCode);
   end;
+  NextErrorCode;
 end;
 
 generic procedure TestTypeKind<T>(aType: TTypeKind); inline;