SAP CL_CRM_BOL_ENTITY单元测试方法-阿里云开发者社区

开发者社区> 开发者小助手-bz4> 正文

SAP CL_CRM_BOL_ENTITY单元测试方法

简介: SAP CL_CRM_BOL_ENTITY单元测试方法
+关注继续查看

In SAP standard development it is very important to use unit test to cover those changes on legacy code to try to avoid side effect. As type reference CL_CRM_BOL_ENTITY is widely used in UI component code, I would like to find a way to construct its reference by sample data.


The normal way we get instance of CL_CRM_BOL_ENTITY is, to use query or dquery method provided in class CL_CRM_BOL_CORE, which return a BOL collection list and then we can get each bol entity from by iterating that collection. However, both of these methods will perform database scan and return found data – such behavior is not appropriate for unit test.

I have gone through all public methods in CL_CRM_BOL_CORE and do not find a useful method to construct bol entity based on sample data, so I write a small piece of code:



image.pngI create a class which inherits CL_CRM_BOL_ENTITY:image.pngCreate a static private attribute:METHOD class_constructor.

so_bol_core = cl_crm_bol_core=>get_instance( ).

so_bol_core->load_component_set( 'PROD_ALL' ).

ENDMETHOD.The signature and source code are listed below:* ---------------------------------------------------------------------------------------+

* | Static Public Method ZCL_PROD_UNIT_TEST_TOOL=>GET_FAKE_BOL_ENTITY

* +-------------------------------------------------------------------------------------------------+

* | [--->] IS_DATA TYPE ANY

* | [--->] IV_BOL_NAME TYPE CRMT_EXT_OBJ_NAME

* | [--->] IV_KEY TYPE CRMT_OBJECT_GUID

* | [<-()] RO_RESULT TYPE REF TO CL_CRM_BOL_ENTITY

* +--------------------------------------------------------------------------------------

METHOD get_fake_bol_entity.

DATA: lr_cast TYPE REF TO cl_crm_genil_container_object,

lr_entity TYPE REF TO crmt_bol_entity_line.

DATA(lv_root_list) = cl_crm_genil_container_tools=>get_new_cont_root_list( ).

DATA(lr_root_object) = lv_root_list->add_object(

iv_object_name = iv_bol_name

is_object_key = iv_key

iv_attr_req = abap_false ).

lr_root_object->set_attributes( is_data ).

lr_cast ?= lr_root_object.

CREATE DATA lr_entity.

lr_entity->instance = lr_cast->data_ref->instance.

ro_result = NEW cl_crm_bol_entity( iv_cont_proxy = lr_cast

iv_manager_entry = lr_entity ).

ENDMETHOD.

And below is an example how to construct BOL entity using this utility method:

CONSTANTS: cv_prod_guid TYPE crmt_object_guid VALUE '0123456789123456'.

DATA(ls_prod_header) = VALUE comt_product_ui( product_guid = cv_prod_guid

product_id = 'I042416' product_type = '01' ).

DATA(ro_entity) = zcl_prod_unit_test_tool=>get_fake_bol_entity(

iv_bol_name = 'Product'

is_data = ls_prod_header

iv_key = cv_prod_guid ).

DATA(lv_type) = ro_entity->get_property_as_string( 'PRODUCT_TYPE' ).

DATA(lv_guid) = ro_entity->get_property_as_string( 'PRODUCT_GUID' ).

DATA(lv_id) = ro_entity->get_property_as_string( 'PRODUCT_ID' ).

WRITE: / lv_type.

WRITE: / lv_guid.

WRITE: / lv_id.

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
使用NAT网关轻松为单台云服务器设置多个公网IP
在应用中,有时会遇到用户询问如何使单台云服务器具备多个公网IP的问题。 具体如何操作呢,有了NAT网关这个也不是难题。
26712 0
阿里云服务器怎么设置密码?怎么停机?怎么重启服务器?
如果在创建实例时没有设置密码,或者密码丢失,您可以在控制台上重新设置实例的登录密码。本文仅描述如何在 ECS 管理控制台上修改实例登录密码。
9374 0
阿里云服务器端口号设置
阿里云服务器初级使用者可能面临的问题之一. 使用tomcat或者其他服务器软件设置端口号后,比如 一些不是默认的, mysql的 3306, mssql的1433,有时候打不开网页, 原因是没有在ecs安全组去设置这个端口号. 解决: 点击ecs下网络和安全下的安全组 在弹出的安全组中,如果没有就新建安全组,然后点击配置规则 最后如上图点击添加...或快速创建.   have fun!  将编程看作是一门艺术,而不单单是个技术。
10795 0
使用SSH远程登录阿里云ECS服务器
远程连接服务器以及配置环境
2458 0
阿里云服务器如何登录?阿里云服务器的三种登录方法
购买阿里云ECS云服务器后如何登录?场景不同,阿里云优惠总结大概有三种登录方式: 登录到ECS云服务器控制台 在ECS云服务器控制台用户可以更改密码、更换系.
13048 0
windows server 2008阿里云ECS服务器安全设置
最近我们Sinesafe安全公司在为客户使用阿里云ecs服务器做安全的过程中,发现服务器基础安全性都没有做。为了为站长们提供更加有效的安全基础解决方案,我们Sinesafe将对阿里云服务器win2008 系统进行基础安全部署实战过程! 比较重要的几部分 1.
9017 0
腾讯云服务器 设置ngxin + fastdfs +tomcat 开机自启动
在tomcat中新建一个可以启动的 .sh 脚本文件 /usr/local/tomcat7/bin/ export JAVA_HOME=/usr/local/java/jdk7 export PATH=$JAVA_HOME/bin/:$PATH export CLASSPATH=.
4612 0
阿里云服务器如何登录?阿里云服务器的三种登录方法
购买阿里云ECS云服务器后如何登录?场景不同,云吞铺子总结大概有三种登录方式: 登录到ECS云服务器控制台 在ECS云服务器控制台用户可以更改密码、更换系统盘、创建快照、配置安全组等操作如何登录ECS云服务器控制台? 1、先登录到阿里云ECS服务器控制台 2、点击顶部的“控制台” 3、通过左侧栏,切换到“云服务器ECS”即可,如下图所示 通过ECS控制台的远程连接来登录到云服务器 阿里云ECS云服务器自带远程连接功能,使用该功能可以登录到云服务器,简单且方便,如下图:点击“远程连接”,第一次连接会自动生成6位数字密码,输入密码即可登录到云服务器上。
21863 0
2315
文章
0
问答
来源圈子
更多
+ 订阅
文章排行榜
最热
最新
相关电子书
更多
《2021云上架构与运维峰会演讲合集》
立即下载
《零基础CSS入门教程》
立即下载
《零基础HTML入门教程》
立即下载