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.
    DATA lv_id(10) TYPE C VALUE '1'.
    DATA lv_name(10) TYPE C.
　　　　"准备数据，向cds view中插入的数据。
    lt_TEST_DATA = VALUE #(
                           ( id = '1' name = 'lisi' )  " the first data adds to cds view
                           ( id = '2' 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.
    DATA lv_id(10) TYPE C VALUE '1'.
    DATA lv_name(10) 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 创建和调用

猜你喜欢