cds view 是一个core data service, 能够将数据库表虚拟化为一个虚拟表(double)。因为各个使用sap的公司,使用的数据库数据是不同的,所以提供一个数据库的虚拟。 通过向虚拟double test里面插入数据,进行unit test。 下面是主要步骤。
准备一个数据表 ztest_view
1: 首先在装有abap development tool 的eclipse软件中,在自己的目录下创建一个cds view。
目录》右键》new abap repository object》选择core data service 下面的data definition(老版本是dictionary 下面的的ddl source)。
2: 给定一个cds view 名字和描述,点击finish完成,创建好了一个cds view 工程。然后进行编辑该cds view.
3: 给cds view 指定数据库表(一个或多个),图中的ztest_view就是一个数据库表,指定cds view的字段(也是数据库中的字段,图中的id,name),可以给定字段别名。也就是将数据表的字段封装成为 cds view的字段。
4: 在该页空白处,右键 》open with>data preview。即可查看到该cds view所封装的数据库的数据
5:点击上图的sql console 可以看到查询sql,可以对其进行编辑等。
6:上述操作完成,即完成cds view的创建,需要写程序去consume创建的cds view.
二:创建类调用 cds view ,对其进行测试。
1:首先创建一个类 ZCL_TEST_CDS_VIEW01 ,并创建一个方法 GET_NAME_BY_ID。该方法对cds view 进行查询。
使用如下代码:
method GET_NAME_BY_ID. * SELECT SINGLE ZHANSEN_CDS_VIEW01~RETURNNAME FROM ZHANSEN_CDS_VIEW01 WITH PRIVILEGED ACCESS * WHERE ZHANSEN_CDS_VIEW01~QUERYid = @iv_id * INTO @ev_name. SELECT SINGLE ZHANSEN_CDS_VIEW01~name FROM ZHANSEN_CDS_VIEW01 WHERE ZHANSEN_CDS_VIEW01~id = @iv_id INTO @ev_name. endmethod.
2:创建测试类: 在创建的类上面,右键》create》generate test class.
3: continue
4: 双击 文本框右边的 白色小框,给定测试类一个名字。 continue
5: 选中 要测试的方法,continue,直到完成。测试类创建成功。
6: 创建测试方法Test_Name_By_Id, 该方法中直接调用 get_name_by _id
*"* use this source file for your ABAP unit test classes class ztcl_Test_Cds_View01 definition for testing "测试类 duration short risk level harmless . private section. data: f_Cut type ref to ZCL_TEST_CDS_VIEW01. "class under test, 原来的类 CLASS-DATA lv_cds_test_environment TYPE REF TO if_cds_test_environment. "测试环境。 CLASS-METHODS: class_setup. "类初始化,每次类执行时,该方法执行 CLASS-METHODS: class_teardown. "每次类关闭时,该方法执行。 METHODS: setup. "方法执行时调用, 每次有方法执行时,该方法执行。 METHODS: teardown. "方法执行完调用, 每次方法执行完后,该方法会被调用。 methods: Test_Name_By_Id for testing. "测试类中的方法。 endclass. "ztcl_Test_Cds_View01 class ztcl_Test_Cds_View01 implementation. "实现类。 METHOD class_setup. lv_cds_test_environment = cl_cds_test_environment=>create( i_for_entity = 'ZHANSEN_CDS_VIEW01' "初始化测试环境,一旦该环境创建之后,就不会查询数据库了。无论是否向cds view中添加数据 test_associations = 'X' ). "initial the cds test environment ENDMETHOD. METHOD class_teardown. lv_cds_test_environment->destroy( ). ENDMETHOD. METHOD setup. CREATE OBJECT f_cut. ENDMETHOD. METHOD teardown. lv_cds_test_environment->clear_doubles( ). ENDMETHOD. method Test_Name_By_Id. data lt_TEST_DATA TYPE STANDARD TABLE OF ZTEST_VIEW. ) '. ) TYPE C. "准备数据,向cds view中插入的数据。 lt_TEST_DATA = VALUE #( ( id = ' name = 'lisi' ) " the first data adds to cds view ( id = ' name = 'zhaoliu' ) " other data with same name will be abandoned. ). lv_cds_test_environment->insert_test_data( i_data = lt_TEST_DATA ). "向cds view中插入数据。 CALL METHOD f_cut->get_name_by_id( "调用 方法 EXPORTING iv_id = lv_id IMPORTING ev_name = lv_name ). cl_abap_unit_assert=>assert_equals( act = lv_name "断言。 exp = 'lisi' msg = 'the name is not expected!' ). endmethod. endclass.
以下代码,直接从数据库中进行取出数据。这时不能有:
lv_cds_test_environment = cl_cds_test_environment=>create( i_for_entity = 'ZHANSEN_CDS_VIEW01' "初始化测试环境,一旦该环境创建之后,就不会查询数据库了。无论是否向cds view中添加数据,都会只查询cds view. test_associations = 'X' ). "initial the cds test environment
*"* use this source file for your ABAP unit test classes class ztcl_Test_Cds_View01 definition for testing duration short risk level harmless . private section. data: f_Cut type ref to ZCL_TEST_CDS_VIEW01. "class under test CLASS-DATA lv_cds_test_environment TYPE REF TO if_cds_test_environment. METHODS: setup. methods: Test_Name_By_Id for testing. endclass. "ztcl_Test_Cds_View01 class ztcl_Test_Cds_View01 implementation. METHOD setup. CREATE OBJECT f_cut. ENDMETHOD. method Test_Name_By_Id. data lt_TEST_DATA TYPE STANDARD TABLE OF ZTEST_VIEW. ) '. ) TYPE C. CALL METHOD f_cut->get_name_by_id( EXPORTING iv_id = lv_id IMPORTING ev_name = lv_name ). cl_abap_unit_assert=>assert_equals( act = lv_name exp = 'lisi' msg = 'the name is not expected!' ). endmethod. endclass.
cds view: @AbapCatalog.sqlViewName: 'CDS_VIEW01' 改名字在se11下面查找 cds view
https://www.jianshu.com/p/44b0fd2ef5bc
问题:当 一个测试方法中使用了多个cds veiw时,需要创建一个多cds view的测试环境
go_cds_test_environment ?= cl_cds_test_environment=>create_for_multiple_cds( i_for_entities = VALUE #( ( i_for_entity = 'I_RESPYMGMTTEAMHEADER' i_select_base_dependencies = abap_true i_dependency_list = VALUE #( ( 'P_RespyMgmtTeamHeader' ) ) ) ( i_for_entity = 'I_RESPYMGMTTEAMATTRIBUTE' i_select_base_dependencies = abap_true i_dependency_list = VALUE #( ( 'hrp7731') ( 'hrt7731') ) ) ( i_for_entity = 'P_RESPYMTEAMMEMBERFUNCBASIC' i_select_base_dependencies = abap_true i_dependency_list = VALUE #( ( 'P_RespyMgmtRelationships' ) ( 'hrp7732') ) ) ( i_for_entity = 'I_RESPYMGMTBPWITHUSER' i_select_base_dependencies = abap_true i_dependency_list = VALUE #( ( 'P_RespyMgmtBPWithUser' ) ) ) ) ).
这样就能在以上4个cds view的数据库中添加数据。