这是一个小例子。 这有帮助吗？

 CLASS tcl_testdouble测试定义
 危险等级危害
 持续时间短。

   专用部分。
     方法test_data_call进行测试。
 ENDCLASS。

 类别tcl_testdouble IMPLEMENTATION。
   方法test_data_call。
     t000的数据lt_t000_act类型标准表。
     数据lt_t000_exp t000的类型标准表。

     lt_t000_act = VALUE#（（mandt ='000'）
                            （mandt ='001'））。

     数据lo_testdouble_data类型参考zjkif_testdouble_data。

     lo_testdouble_data = CAST#（cl_abap_testdouble => create（
                             object_name ='zjkif_testdouble_data'
 * double_name =
                         ））。

     cl_abap_testdouble => configure_call（double = lo_testdouble_data）->返回（value = lt_t000_act）。
     lo_testdouble_data-> get_t000_data（）。

     DATA（lo_cut）=新zjkcl_testdouble（lo_testdouble_data）。

     DATA（lt_t000）= lo_cut-> get_t000_data（）。

     lt_t000_exp = VALUE#（（mandt ='000'）
                            （mandt ='001'））。

     cl_abap_unit_assert => assert_equals（
       出口
         act = lt_t000"具有当前值的数据对象
         exp = lt_t000_exp"具有预期类型的​​数据对象
     ）。

   终结法。

 ENDCLASS。