*&---------------------------------------------------------------------*
*& Report  ZL05_02_TEST_SEAMS
*&
*&---------------------------------------------------------------------*
* Listing 05.02: - Common ABAP Application
*--------------------------------------------------------------------*
* In this example we are not allowed to redesign the program, so we
* surround each dependency with a TEST SEAM to (a) identify the
* dependency for what it is, and (b) allow the production code to
* be used in automated unit tests
* In real life, only the maddest of lunatics would do this, and then
* only reluctantly
*--------------------------------------------------------------------*
REPORT zl05_02_test_seams.

*--------------------------------------------------------------------*
* Start-of-Selection
*--------------------------------------------------------------------*
* One Haunted Castle is at 18.4 degrees Longtitude
*--------------------------------------------------------------------*
START-OF-SELECTION.
  "Test Seams only work in Function Groups or Class Pools
  CALL FUNCTION 'ZCH05_01_02_TEST_SEAMS'.
