cds view 创建和调用

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