DUNIT X向测试用例传递大量字符串参数的优雅方案问询

你遇到的E2056报错是Delphi对注解属性中的字符串字面量的原生限制，单字面量最多支持255个字符，硬往TestCase属性里塞超长逗号分隔串既碰限制也不美观，以下是几个可行的优雅方案：

方案1：动态注册测试用例（最推荐） #

直接绕过属性参数的长度限制，在测试类的构造方法里批量注册用例，参数写在常量数组中集中维护，可读性更高：

// 测试参数常量可单独放在独立的常量单元中维护，和测试逻辑解耦
const
  TEST_CASE_PARAMS: array[0..N] of TArray<string> = [
    ['xxxx', 'yyyy', 'zzz', ...], // 第一个测试用例的所有字符串参数
    ['aaaa', 'bbbb', 'ccc', ...]  // 第二个测试用例的所有字符串参数
    // 新增用例仅需在此补充数组元素即可
  ];

// 测试类构造方法中批量注册用例
constructor TYourTestClass.Create;
var
  i: Integer;
begin
  inherited;
  for i := Low(TEST_CASE_PARAMS) to High(TEST_CASE_PARAMS) do
  begin
    RegisterTestCase('Test_transmitmanystrings', Format('测试用例%d', [i]),
      TEST_CASE_PARAMS[i]);
  end;
end;

// 测试方法仅保留Test属性即可，不需要再加TestCase属性
[Test]
procedure Test_transmitmanystrings(S1, S2, S3, ... Sx: String);

优势：

• 完全避开属性字符串长度限制
• 参数集中维护，修改参数不需要动测试逻辑
• 支持批量新增上百条测试用例，不需要重复写TestCase属性

方案2：参数存入资源文件/内部配置 #

如果参数包含超长文本、特殊字符，或者需要和代码完全解耦，可把参数存到项目内置的资源文件（.res）或者INI/JSON配置文件，测试执行前按标识读取即可：

// TestCase属性仅传参数组的标识，不传实际参数内容
[Test]
[TestCase('test1', 'param_set_1')]
[TestCase('test2', 'param_set_2')]
procedure Test_transmitmanystrings(ParamSetId: String);
var
  Params: TArray<string>;
begin
  // 从资源/配置文件中根据ParamSetId读取对应的参数数组
  Params := LoadParamSetFromResource(ParamSetId);
  // 后续使用Params[0]、Params[1]...执行测试逻辑即可
end;

优势：

• 测试代码完全干净，和参数内容解耦
• 超长文本、带特殊符号的文本不需要做转义处理
• 非开发人员也可以直接修改测试参数

方案3：拆分长字符串字面量临时修复 #

如果不想改动现有结构，只是临时解决长度报错，可以把长串拆成多个小于255字符的子串用+拼接，Delphi编译期会自动合并为完整字符串：

[Test]
[TestCase(test1, 'xxxx,yyyy,zzz,' + 
  'aaaa,bbbb,ccc,' +
  'dddd,eeee,fff')] // 每个子串长度都小于255字符即可
procedure Test_transmitmanystrings(S1, S2, S3, ... Sx: String);

注意：该方案仅适合临时修复，参数多了依然可读性差，不推荐长期使用

内容的提问来源于stack exchange，提问作者Franz