cds view 创建和调用

时间:2022-12-12 14:25:26

cds view 是一个core data service, 能够将数据库表虚拟化为一个虚拟表(double)。因为各个使用sap的公司,使用的数据库数据是不同的,所以提供一个数据库的虚拟。  通过向虚拟double test里面插入数据,进行unit test。 下面是主要步骤。

准备一个数据表 ztest_view

cds view 创建和调用

1: 首先在装有abap development tool 的eclipse软件中,在自己的目录下创建一个cds view。

目录》右键》new abap repository object》选择core data service 下面的data definition(老版本是dictionary 下面的的ddl source)。

cds view 创建和调用

2: 给定一个cds view 名字和描述,点击finish完成,创建好了一个cds view 工程。然后进行编辑该cds view.

cds view 创建和调用

3: 给cds view 指定数据库表(一个或多个),图中的ztest_view就是一个数据库表,指定cds view的字段(也是数据库中的字段,图中的id,name),可以给定字段别名。也就是将数据表的字段封装成为 cds view的字段。

cds view 创建和调用

4: 在该页空白处,右键 》open with>data preview。即可查看到该cds view所封装的数据库的数据

cds view 创建和调用

5:点击上图的sql console 可以看到查询sql,可以对其进行编辑等。

cds view 创建和调用

6:上述操作完成,即完成cds view的创建,需要写程序去consume创建的cds view.

二:创建类调用 cds view ,对其进行测试。

1:首先创建一个类  ZCL_TEST_CDS_VIEW01 ,并创建一个方法 GET_NAME_BY_ID。该方法对cds view 进行查询。

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.

cds view 创建和调用

3: continue

cds view 创建和调用

4: 双击 文本框右边的 白色小框,给定测试类一个名字。 continue

cds view 创建和调用

5: 选中 要测试的方法,continue,直到完成。测试类创建成功。

cds view 创建和调用

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

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的数据库中添加数据。