Object type mix: INTF, TABL, STRU, MSAG, exception tasks (harness G2, mutants, generator notes), balanced generator, kind-deficit job order, dashboard mix card

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
2026-10-05 18:52:29 +02:00
parent 454db6626c
commit b119f1afac
39 changed files with 2329 additions and 24 deletions
--- a/tasks_gen/train/G1901/reference/t20_test.clas.abap
+++ b/tasks_gen/train/G1901/reference/t20_test.clas.abap
@@ -0,0 +1,80 @@
+CLASS {{p}}t20_test DEFINITION PUBLIC FINAL CREATE PUBLIC
+  FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
+  PRIVATE SECTION.
+    CLASS-DATA go_env TYPE REF TO if_osql_test_environment.
+    CLASS-METHODS class_setup.
+    CLASS-METHODS class_teardown.
+    METHODS setup.
+    METHODS stores_row FOR TESTING.
+    METHODS rejects_duplicate FOR TESTING.
+    METHODS keeps_three_decimals FOR TESTING.
+ENDCLASS.
+
+
+CLASS {{p}}t20_test IMPLEMENTATION.
+
+  METHOD class_setup.
+    go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}STOCK' ) ) ).
+  ENDMETHOD.
+
+  METHOD class_teardown.
+    go_env->destroy( ).
+  ENDMETHOD.
+
+  METHOD setup.
+    go_env->clear_doubles( ).
+  ENDMETHOD.
+
+  METHOD stores_row.
+    DATA ls_row TYPE {{p}}stock.
+    DATA ls_read TYPE {{p}}stock.
+    DATA lv_subrc TYPE sy-subrc.
+    ls_row-client = sy-mandt.
+    ls_row-bin_id = 'BIN-0001'.
+    ls_row-article_id = 'ART-000001'.
+    ls_row-quantity = '12.500'.
+    ls_row-unit_of_measure = 'ST'.
+    ls_row-shelf_no = '0042'.
+    ls_row-last_count_date = '20250115'.
+    ls_row-blocked = 'X'.
+    INSERT {{p}}stock FROM @ls_row.
+    lv_subrc = sy-subrc.
+    cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_subrc ).
+    SELECT SINGLE * FROM {{p}}stock
+      WHERE bin_id = 'BIN-0001' AND article_id = 'ART-000001'
+      INTO @ls_read.
+    cl_abap_unit_assert=>assert_equals( exp = ls_row-quantity act = ls_read-quantity ).
+    cl_abap_unit_assert=>assert_equals( exp = ls_row-unit_of_measure act = ls_read-unit_of_measure ).
+    cl_abap_unit_assert=>assert_equals( exp = ls_row-blocked act = ls_read-blocked ).
+  ENDMETHOD.
+
+  METHOD rejects_duplicate.
+    DATA ls_row TYPE {{p}}stock.
+    DATA lv_subrc TYPE sy-subrc.
+    ls_row-client = sy-mandt.
+    ls_row-bin_id = 'BIN-0002'.
+    ls_row-article_id = 'ART-000002'.
+    INSERT {{p}}stock FROM @ls_row.
+    INSERT {{p}}stock FROM @ls_row.
+    lv_subrc = sy-subrc.
+    cl_abap_unit_assert=>assert_equals( exp = 4 act = lv_subrc ).
+  ENDMETHOD.
+
+  METHOD keeps_three_decimals.
+    DATA ls_row TYPE {{p}}stock.
+    DATA lv_quantity TYPE {{p}}stock-quantity.
+    ls_row-client = sy-mandt.
+    ls_row-bin_id = 'BIN-0003'.
+    ls_row-article_id = 'ART-000003'.
+    ls_row-quantity = '0.125'.
+    ls_row-unit_of_measure = 'KG'.
+    INSERT {{p}}stock FROM @ls_row.
+    SELECT SINGLE quantity FROM {{p}}stock
+      WHERE bin_id = 'BIN-0003' AND article_id = 'ART-000003'
+      INTO @lv_quantity.
+    cl_abap_unit_assert=>assert_equals(
+      exp = CONV decfloat34( '0.125' )
+      act = CONV decfloat34( lv_quantity ) ).
+  ENDMETHOD.
+
+ENDCLASS.