SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 20:03:20 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Fix unit test in 702 - Part 1 (#7082)

Browse Source
This commit is contained in:
Marc Bernard 2024-11-29 02:23:59 -05:00 committed by GitHub
parent 93935b3dfb
commit a1535908ec
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 25 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
src/env/zcl_abapgit_abap_language_vers.clas.testclasses.abap vendored
View File

@ -77,10 +77,12 @@ CLASS ltcl_abap_language_version DEFINITION FOR TESTING RISK LEVEL HARMLESS
PRIVATE SECTION. PRIVATE SECTION.
" Cloud package hardcoded in cl_abap_language_version " Cloud package hardcoded in cl_abap_language_version
CONSTANTS c_cloud_package TYPE devclass VALUE 'TEST_LANGUAGE_VERSION_SCP'. CONSTANTS c_cloud_package TYPE devclass VALUE 'TEST_LANGUAGE_VERSION_SCP'.
CONSTANTS c_language_cfg TYPE seoclsname VALUE 'CL_ABAP_LANGUAGE_VERSION_CFG'.
DATA: DATA:
mt_versions TYPE string_table, mt_versions TYPE string_table,
mv_has_cloud_package TYPE abap_bool, mv_has_cloud_package TYPE abap_bool,
mv_has_language_cfg TYPE abap_bool,
mo_environment TYPE REF TO lcl_environment, mo_environment TYPE REF TO lcl_environment,
mi_persistency TYPE REF TO zif_abapgit_persist_settings, mi_persistency TYPE REF TO zif_abapgit_persist_settings,
mo_dot_abapgit TYPE REF TO zcl_abapgit_dot_abapgit, mo_dot_abapgit TYPE REF TO zcl_abapgit_dot_abapgit,
@ -364,9 +366,11 @@ CLASS ltcl_abap_language_version IMPLEMENTATION.
" Assume on-prem (no cloud) " Assume on-prem (no cloud)
set_environment( abap_false ). set_environment( abap_false ).
cl_abap_unit_assert=>assert_equals( IF mv_has_language_cfg = abap_true.
act = mo_cut->is_import_allowed( '$TMP' ) " existing standard package cl_abap_unit_assert=>assert_equals(
exp = iv_standard ). act = mo_cut->is_import_allowed( '$TMP' ) " existing standard package
exp = iv_standard ).
ENDIF.
IF mv_has_cloud_package = abap_true. IF mv_has_cloud_package = abap_true.
cl_abap_unit_assert=>assert_equals( cl_abap_unit_assert=>assert_equals(
@ -381,9 +385,11 @@ CLASS ltcl_abap_language_version IMPLEMENTATION.
" Assume cloud platform " Assume cloud platform
set_environment( abap_true ). set_environment( abap_true ).
cl_abap_unit_assert=>assert_equals( IF mv_has_language_cfg = abap_true.
act = mo_cut->is_import_allowed( '$TMP' ) " existing standard package cl_abap_unit_assert=>assert_equals(
exp = iv_standard ). act = mo_cut->is_import_allowed( '$TMP' ) " existing standard package
exp = iv_standard ).
ENDIF.
IF mv_has_cloud_package = abap_true. IF mv_has_cloud_package = abap_true.
cl_abap_unit_assert=>assert_equals( cl_abap_unit_assert=>assert_equals(
@ -401,6 +407,19 @@ CLASS ltcl_abap_language_version IMPLEMENTATION.
METHOD is_import_allowed. METHOD is_import_allowed.
DATA lv_version TYPE string. DATA lv_version TYPE string.
DATA ls_clskey TYPE seoclskey.
ls_clskey-clsname = c_language_cfg.
" Tests using ABAP language version "standard" only work if the required
" SAP class is available. In older releases, all packages will have
" ABAP language version "undefined" and are handled like a new package
CALL FUNCTION 'SEO_CLASS_EXISTENCE_CHECK'
EXPORTING
clskey = ls_clskey
EXCEPTIONS
OTHERS = 1.
mv_has_language_cfg = boolc( sy-subrc = 0 ).
LOOP AT mt_versions INTO lv_version. LOOP AT mt_versions INTO lv_version.