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

SAPLink-artifacts added

Browse Source
This commit is contained in:
mrsimpson 2016-02-12 17:51:32 +00:00
parent b9d2ac1267
commit 95bc37a6c1
5 changed files with 1291 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1096
zsaplink.clas.abap Normal file
View File

File diff suppressed because it is too large Load Diff

9
zsaplink.clas.locals_imp.abap Normal file
View File

@ -0,0 +1,9 @@
*"* local class implementation for public class
*"* use this source file for the implementation part of
*"* local helper classes
TYPES: BEGIN OF t_objecttable,
classname TYPE string,
object TYPE ko100-object,
text TYPE ko100-text,
END OF t_objecttable.

16
zsaplink.clas.macros.abap Normal file
View File

@ -0,0 +1,16 @@
*"* use this source file for any macro definitions you need
*"* in the implementation part of the class
* .-"-.
* .'=^=^='.
* /=^=^=^=^=\
*:^=SAPLINK=^;
*|^ EASTER ^|
*:^=^EGG^=^=^:
* \=^=^=^=^=/
* `.=^=^=.'
* `~~~`
* Wow, you made it!
* Thanks for actually LOOKING at the source code to this, simply
* by doing so you may keep this project alive. It's up to all of
* us now to make sure we can help SAP Code Exchange grow by
* sharing code and collaborating on projects.

82
zsaplink.clas.testclasses.abap Normal file
View File

@ -0,0 +1,82 @@
*----------------------------------------------------------------------*
* CLASS lc_Zsaplink_Test DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lc_zsaplink_test DEFINITION FOR TESTING
" DURATION SHORT
" RISK LEVEL HARMLESS
"#AU Duration Medium
"#AU Risk_Level Harmless
.
*?<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
*?<asx:values>
*?<TESTCLASS_OPTIONS>
*?<TEST_CLASS>lc_Zsaplink_Test
*?</TEST_CLASS>
*?<TEST_MEMBER>f_Cut
*?</TEST_MEMBER>
*?<OBJECT_UNDER_TEST>ZSAPLINK
*?</OBJECT_UNDER_TEST>
*?<OBJECT_IS_LOCAL/>
*?<GENERATE_FIXTURE/>
*?<GENERATE_CLASS_FIXTURE/>
*?<GENERATE_INVOCATION/>
*?<GENERATE_ASSERT_EQUAL/>
*?</TESTCLASS_OPTIONS>
*?</asx:values>
*?</asx:abap>
PRIVATE SECTION.
* ================
DATA:
f_cut TYPE REF TO zsaplink. "class under test
METHODS: convertixmldoctostring FOR TESTING.
ENDCLASS. "lc_Zsaplink_Test
*----------------------------------------------------------------------*
* CLASS lc_Zsaplink_Test IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lc_zsaplink_test IMPLEMENTATION.
* ======================================
METHOD convertixmldoctostring.
CONSTANTS value TYPE string VALUE 'German - Umlaute: öäü ÖÄÜ ß, Special characters - slowenian: ##### #####'.
DATA ixml TYPE REF TO if_ixml.
DATA ixmldoc TYPE REF TO if_ixml_document.
DATA rootnode TYPE REF TO if_ixml_element.
DATA xmlstring TYPE string.
DATA value_from_xml TYPE string.
" Instanciate ixml
ixml = cl_ixml=>create( ).
ixmldoc = ixml->create_document( ).
" Add content
rootnode = ixmldoc->create_element( 'test' ).
rootnode->set_value( value ).
ixmldoc->append_child( rootNode ).
" Convert to String
xmlstring = zsaplink=>convertixmldoctostring( ixmldoc ).
" Convert back
FREE: ixmldoc, rootnode.
ixmldoc = zsaplink=>convertstringtoixmldoc( xmlstring ).
rootnode = ixmldoc->get_root_element( ).
value_from_xml = rootnode->get_value( ).
cl_aunit_assert=>assert_equals(
EXPORTING
exp = value " Data Object with Expected Type
act = value_from_xml " Data Object with Current Value
msg = 'XML Input and Output not equal' " Message in Case of Error
).
ENDMETHOD. "convertixmldoctostring
ENDCLASS. "lc_Zsaplink_Test

88
zsaplink.clas.xml Normal file
View File

@ -0,0 +1,88 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v0.2-alpha">
<VSEOCLASS>
<CLSNAME>ZSAPLINK</CLSNAME>
<VERSION>1</VERSION>
<LANGU>E</LANGU>
<DESCRIPT>SAPlink main class</DESCRIPT>
<UUID>00000000000000000000000000000000</UUID>
<CATEGORY>00</CATEGORY>
<EXPOSURE>2</EXPOSURE>
<STATE>1</STATE>
<RELEASE>0</RELEASE>
<AUTHOR></AUTHOR>
<CREATEDON>00000000</CREATEDON>
<CHANGEDBY></CHANGEDBY>
<CHANGEDON>00000000</CHANGEDON>
<CHGDANYBY></CHGDANYBY>
<CHGDANYON>00000000</CHGDANYON>
<CLSEMBED></CLSEMBED>
<CLSABSTRCT>X</CLSABSTRCT>
<CLSFINAL></CLSFINAL>
<CLSCCINCL>X</CLSCCINCL>
<REMOTE></REMOTE>
<FIXPT>X</FIXPT>
<VARCL></VARCL>
<UNICODE>X</UNICODE>
<RSTAT></RSTAT>
<CLSDEFATT></CLSDEFATT>
<CLSDEFMTD></CLSDEFMTD>
<CLSDEFINT></CLSDEFINT>
<CLSBCIMPL></CLSBCIMPL>
<R3RELEASE></R3RELEASE>
<CLSBCTRANS></CLSBCTRANS>
<CLSBCCAT>00</CLSBCCAT>
<CLSADDON></CLSADDON>
<MSG_ID></MSG_ID>
<CLSBCNODEL></CLSBCNODEL>
<CLSPROXY></CLSPROXY>
<CLSSHAREDMEMORY></CLSSHAREDMEMORY>
<WITH_UNIT_TESTS>X</WITH_UNIT_TESTS>
<DURATION_TYPE>0 </DURATION_TYPE>
<RISK_LEVEL>0 </RISK_LEVEL>
<WITHIN_PACKAGE></WITHIN_PACKAGE>
</VSEOCLASS>
<TEXTPOOL_TABLE/>
<TLINETAB>
<TLINE>
<TDFORMAT>U1</TDFORMAT>
<TDLINE>&amp;FUNCTIONALITY&amp;</TDLINE>
</TLINE>
<TLINE>
<TDFORMAT>AS</TDFORMAT>
<TDLINE></TDLINE>
</TLINE>
<TLINE>
<TDFORMAT>U1</TDFORMAT>
<TDLINE>&amp;RELATIONS&amp;</TDLINE>
</TLINE>
<TLINE>
<TDFORMAT>AS</TDFORMAT>
<TDLINE></TDLINE>
</TLINE>
<TLINE>
<TDFORMAT>U1</TDFORMAT>
<TDLINE>&amp;EXAMPLE&amp;</TDLINE>
</TLINE>
<TLINE>
<TDFORMAT>AS</TDFORMAT>
<TDLINE></TDLINE>
</TLINE>
<TLINE>
<TDFORMAT>U1</TDFORMAT>
<TDLINE>&amp;HINTS&amp;</TDLINE>
</TLINE>
<TLINE>
<TDFORMAT>AS</TDFORMAT>
<TDLINE></TDLINE>
</TLINE>
<TLINE>
<TDFORMAT>U1</TDFORMAT>
<TDLINE>&amp;FURTHER_SOURCES_OF_INF&amp;</TDLINE>
</TLINE>
<TLINE>
<TDFORMAT>AS</TDFORMAT>
<TDLINE>Version 1.0.0: Added functionality to pass version information</TDLINE>
</TLINE>
</TLINETAB>
</abapGit>