1. Shinya Okano
  2. delphi-unittest

Commits

Shinya Okano  committed 4e1791d

Refactoring

  • Participants
  • Parent commits d089deb
  • Branches default

Comments (0)

Files changed (1)

File Nullpobug.UnitTest.pas

View file
  • Ignore whitespace
 var
   ResultMark: String;
 begin
-  if TestResult.ResultType = rtOK then
-    ResultMark := '.'
+  case TestResult.ResultType of
+    rtOK: ResultMark := '.';
+    rtFail: ResultMark := 'F';
+    rtError: ResultMark := 'E';
+    rtSkip: ResultMark := 'S';
   else
-    if TestResult.ResultType = rtFail then
-      ResultMark := 'F'
-    else
-      if TestResult.ResultType = rtError then
-        ResultMark := 'E'
-      else
-        if TestResult.ResultType = rtSkip then
-          ResultMark := 'S'
-        else
-          ResultMark := '?';
+    ResultMark := '?';
+  end;
   Write(ResultMark);
 end;