語句 TEST-SEAM 引入了一個稱為 seam 的測試 SEAM，它由 END-TEST-SEAM 關閉。 當前程式的測試類(test class)可以使用語句 TEST-INJECTION 將語句塊 statement_block 替換為在那裡定義的注入。如果沒有對 test seam 執行注入，則執行原始程式碼。

test seam 具有以下屬性：

- 可以在單個編譯單元中定義多個 test seam，但每個 test seam 必須具有唯一的名稱。
- 一般命名約定適用於名稱接縫。
- test seam 不能巢狀，這意味著 test seam 不能包含更多 test seam.
- test seam 不能超出語句塊的限制，但可以包含封閉的控制結構。
- test seam 可以包含資料宣告。 這些宣告在執行注入時不會被替換，並在其上下文中保持可見。
- test seam 可以在程式的全域性宣告部分定義，但不能在類的宣告部分定義。
- test seam 可以是空的，也就是說，它不包含任何語句。 取而代之的是 injection.
- test seam 不能在測試類中定義。

test seam 的注入必須在同一個編譯單元中定義。

只能在當前程式的測試包含中定義的測試類中建立注入。 測試包含目前只能在類池和函式池中使用。 這意味著 test seam 僅在類池和函式池中可行。

看個具體的例子。類 CL_DEMO_TEST_SEAMS 是生產程式碼。

CHANGE_PRICE 方法將資料庫表 SFLIGHT 中的航班價格乘以一個係數，如果成功，則返回修改後的價格。如果資料庫訪問失敗，將返回一個特定的無效值而不是計算後的價格。

為兩個資料庫訪問定義了 test seam. 這使得在不訪問實際資料的情況下執行單元測試成為可能。

生產類的完整原始碼：

```sql
CLASS cl_demo_test_seams DEFINITION
  PUBLIC
  FINAL
  CREATE PUBLIC .

PUBLIC SECTION.

METHODS change_price
      IMPORTING
        !carrid          TYPE sflight-carrid
        !connid          TYPE sflight-connid
        !fldate          TYPE sflight-fldate
        !factor          TYPE i
      EXPORTING
        VALUE(new_price) TYPE sflight-price .
  PROTECTED SECTION.
  PRIVATE SECTION.

DATA subrc TYPE sy-subrc .
ENDCLASS.

CLASS CL_DEMO_TEST_SEAMS IMPLEMENTATION.

* <signature>---------------------------------------------------------------------------------------+
* | Instance Public Method CL_DEMO_TEST_SEAMS->CHANGE_PRICE
* +-------------------------------------------------------------------------------------------------+
* | [--->] CARRID                         TYPE        SFLIGHT-CARRID
* | [--->] CONNID                         TYPE        SFLIGHT-CONNID
* | [--->] FLDATE                         TYPE        SFLIGHT-FLDATE
* | [--->] FACTOR                         TYPE        I
* | [
  METHOD change_price.
    DATA wa TYPE sflight.
    TEST-SEAM selection.
      SELECT SINGLE *
             FROM sflight
             WHERE carrid = @carrid AND
                   connid = @connid AND
                   fldate = @fldate
             INTO @wa.
      subrc = sy-subrc.
    END-TEST-SEAM.
    IF subrc <> 0.
      new_price = -1.
      RETURN.
    ENDIF.
    wa-price = wa-price * factor / 100.
    TEST-SEAM modification.
      MODIFY sflight FROM @wa.
      subrc = sy-subrc.
    END-TEST-SEAM.
    IF subrc = 0.
      new_price = wa-price.
    ELSE.
      new_price = -2.
    ENDIF.
  ENDMETHOD.
ENDCLASS.
```

正常情況下，我們直接執行到 TEST-SEAM 定義的 selection 程式碼塊內。

![](https://img-blog.csdnimg.cn/img_convert/c2baaa2bf7958cac797c70fddeae45f4.png)

執行這個生產類的單元測試程式碼時，ABAP 框架執行到生產類程式碼的 selection 區塊，檢測到這個類的單元測試程式碼裡定義了同名的 injection，於是就用測試程式碼 injection 區塊裡的程式碼塊，替換原始的 selection 區塊的程式碼進行執行。

如下圖所示，第 16 行就是 名為 selection 的 TEST-INJECTION, 該測試程式碼得以執行。

![](https://img-blog.csdnimg.cn/img_convert/ac2447fc4f5d46ee0b1077dd89e48d92.png)</signature>

ABAP TEST-SEAM 的使用方法

相關文章