anchor.diff:  
   procedure TestTCLIOption.TestHasDelimiter;
   begin
  -  //TODO: messages
  -  CheckTrue(TCLIOption.Create(STR_OPTION, STR_PREFIX, STR_DELIMITER).HasDelimiter);
  -  CheckFalse(TCLIOption.Create(STR_OPTION, STR_DELIMITER, STR_PREFIX).HasDelimiter);
  +  CheckTrue(TCLIOption.Create(STR_OPTION, STR_PREFIX, STR_DELIMITER).HasDelimiter, 'Prefix → Delimiter');
  +  CheckFalse(TCLIOption.Create(STR_OPTION, STR_DELIMITER, STR_PREFIX).HasDelimiter, 'Delimiter → Prefix');
   end;
   
   procedure TestTCLIOption.TestHasNonEmptyValue;
   begin
  -  //TODO: messages
  -  CheckTrue(TCLIOption.Create(STR_OPTION, STR_PREFIX, STR_DELIMITER).HasNonEmptyValue);
  -  CheckFalse(TCLIOption.Create(STR_OPTION_NAME, STR_PREFIX, STR_DELIMITER).HasNonEmptyValue);
  +  CheckTrue(TCLIOption.Create(STR_OPTION, STR_PREFIX, STR_DELIMITER).HasNonEmptyValue, STR_OPTION);
  +  CheckFalse(TCLIOption.Create(STR_OPTION_NAME, STR_PREFIX, STR_DELIMITER).HasNonEmptyValue, STR_OPTION_NAME);
   end;
   
   procedure TestTCLIOption.TestHasPrefix;
   begin
  -  //TODO: messages
  -  CheckTrue(TCLIOption.Create(STR_OPTION, STR_PREFIX, STR_DELIMITER).HasPrefix);
  -  CheckFalse(TCLIOption.Create(STR_OPTION, STR_DELIMITER, STR_PREFIX).HasPrefix);
  +  CheckTrue(TCLIOption.Create(STR_OPTION, STR_PREFIX, STR_DELIMITER).HasPrefix, 'Prefix → Delimiter');
  +  CheckFalse(TCLIOption.Create(STR_OPTION, STR_DELIMITER, STR_PREFIX).HasPrefix, 'Delimiter → Prefix');
   end;
   
   procedure TestTCLIOption.TestImplicitFromString;
  
positive.code: uses
    System.SysUtils,
    TestUtils,
    FIToolkit.CommandLine.Exceptions, FIToolkit.CommandLine.Consts, FIToolkit.CommandLine.Types;
  
  procedure TestTCLIOption.TestCreateLong;
  begin
  
negative.code: procedure TestTCLIOption.TestToString;
  begin
    FCLIOption := TCLIOption.Create(STR_OPTION, STR_PREFIX, STR_DELIMITER);
    CheckEquals(STR_OPTION, FCLIOption.ToString, 'FCLIOption.ToString = STR_OPTION');
  
    FCLIOption := TCLIOption.Create(STR_OPTION_NAME, ' ', ' ');
    CheckEquals(STR_OPTION_NAME, FCLIOption.ToString, 'FCLIOption.ToString = STR_OPTION_NAME');
  
    FCLIOption := TCLIOption.Create(STR_OPTION_WITH_SPACE, STR_PREFIX, STR_DELIMITER);
    CheckTrue(
      String(FCLIOption.ToString).EndsWith(
        TCLIOptionString.CHR_QUOTE + STR_OPTION_VALUE_WITH_SPACE + TCLIOptionString.CHR_QUOTE),
      STR_OPTION_WITH_SPACE
    );
  end;
  
  procedure TestTCLIOption.TestValueContainsSpaces;
  begin
    CheckFalse(TCLIOption.Create(STR_OPTION, STR_PREFIX, STR_DELIMITER).ValueContainsSpaces, STR_OPTION);
    CheckTrue(TCLIOption.Create(STR_OPTION_WITH_SPACE, STR_PREFIX, STR_DELIMITER).ValueContainsSpaces,
      QuotedStr(STR_OPTION_WITH_SPACE));
  end;
  
  initialization
  