Harness: runner, generator, tasks T01 T13 T14 T15, CLAUDE.md

tasks/T14/hidden/t14_hidden.clas.abap

@@ -0,0 +1,72 @@
+CLASS {{p}}t14_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
+  FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
+  PRIVATE SECTION.
+    TYPES tt_region TYPE RANGE OF {{p}}sale-region.
+    METHODS run IMPORTING iv_from TYPE d it_region TYPE tt_region OPTIONAL
+                RETURNING VALUE(rr_data) TYPE REF TO data.
+    METHODS value_of IMPORTING ir_data TYPE REF TO data iv_row TYPE i iv_col TYPE string
+                     RETURNING VALUE(rv_value) TYPE string.
+    METHODS lines_of IMPORTING ir_data TYPE REF TO data RETURNING VALUE(rv_lines) TYPE i.
+    METHODS all_regions FOR TESTING.
+    METHODS sorted_by_total FOR TESTING.
+    METHODS totals_and_counts FOR TESTING.
+    METHODS region_filter FOR TESTING.
+    METHODS date_filter FOR TESTING.
+ENDCLASS.
+
+
+CLASS {{p}}t14_hidden IMPLEMENTATION.
+  METHOD run.
+    cl_salv_bs_runtime_info=>set( display = abap_false metadata = abap_false data = abap_true ).
+    SUBMIT {{p}}sales_sum WITH p_from = iv_from WITH s_reg IN it_region AND RETURN.
+    TRY.
+        cl_salv_bs_runtime_info=>get_data_ref( IMPORTING r_data = rr_data ).
+      CATCH cx_salv_bs_sc_runtime_info.
+    ENDTRY.
+    cl_salv_bs_runtime_info=>clear_all( ).
+  ENDMETHOD.
+
+  METHOD lines_of.
+    FIELD-SYMBOLS <lt_data> TYPE STANDARD TABLE.
+    IF ir_data IS BOUND.
+      ASSIGN ir_data->* TO <lt_data>.
+      rv_lines = lines( <lt_data> ).
+    ENDIF.
+  ENDMETHOD.
+
+  METHOD value_of.
+    FIELD-SYMBOLS <lt_data> TYPE STANDARD TABLE.
+    ASSIGN ir_data->* TO <lt_data>.
+    ASSIGN <lt_data>[ iv_row ] TO FIELD-SYMBOL(<ls_line>).
+    ASSIGN COMPONENT iv_col OF STRUCTURE <ls_line> TO FIELD-SYMBOL(<lv_value>).
+    cl_abap_unit_assert=>assert_subrc( exp = 0 msg = |Column { iv_col } missing| ).
+    rv_value = condense( CONV string( <lv_value> ) ).
+  ENDMETHOD.
+
+  METHOD all_regions.
+    cl_abap_unit_assert=>assert_equals( exp = 3 act = lines_of( run( '20260101' ) ) ).
+  ENDMETHOD.
+
+  METHOD sorted_by_total.
+    DATA(lr_data) = run( '20251201' ).
+    cl_abap_unit_assert=>assert_equals( exp = `APAC` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `REGION` ) ).
+    cl_abap_unit_assert=>assert_equals( exp = `EU` act = value_of( ir_data = lr_data iv_row = 3 iv_col = `REGION` ) ).
+  ENDMETHOD.
+
+  METHOD totals_and_counts.
+    DATA(lr_data) = run( '20260101' ).
+    cl_abap_unit_assert=>assert_equals( exp = `US` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `REGION` ) ).
+    cl_abap_unit_assert=>assert_equals( exp = `150.00` act = value_of( ir_data = lr_data iv_row = 2 iv_col = `TOTAL` ) ).
+    cl_abap_unit_assert=>assert_equals( exp = `2` act = value_of( ir_data = lr_data iv_row = 2 iv_col = `COUNT` ) ).
+  ENDMETHOD.
+
+  METHOD region_filter.
+    DATA(lr_data) = run( iv_from = '20260101' it_region = VALUE #( ( sign = 'I' option = 'EQ' low = 'EU' ) ) ).
+    cl_abap_unit_assert=>assert_equals( exp = 1 act = lines_of( lr_data ) ).
+    cl_abap_unit_assert=>assert_equals( exp = `150.00` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `TOTAL` ) ).
+  ENDMETHOD.
+
+  METHOD date_filter.
+    cl_abap_unit_assert=>assert_equals( exp = 2 act = lines_of( run( '20260201' ) ) ).
+  ENDMETHOD.
+ENDCLASS.

tasks/T14/reference/sales_sum.prog.abap

@@ -0,0 +1,89 @@
+REPORT {{p}}sales_sum.
+
+DATA gv_region TYPE {{p}}sale-region.
+
+PARAMETERS p_from TYPE d OBLIGATORY.
+SELECT-OPTIONS s_reg FOR gv_region.
+
+CLASS lcl_report DEFINITION FINAL.
+  PUBLIC SECTION.
+    TYPES:
+      BEGIN OF ty_line,
+        region TYPE {{p}}sale-region,
+        total  TYPE {{p}}sale-amount,
+        count  TYPE i,
+      END OF ty_line,
+      tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY.
+    TYPES tt_region TYPE RANGE OF {{p}}sale-region.
+    METHODS select_totals
+      IMPORTING iv_from         TYPE d
+                it_region       TYPE tt_region
+      RETURNING VALUE(rt_lines) TYPE tt_line.
+    METHODS display
+      CHANGING ct_lines TYPE tt_line.
+ENDCLASS.
+
+CLASS lcl_report IMPLEMENTATION.
+  METHOD select_totals.
+    SELECT region, SUM( amount ) AS total, COUNT( * ) AS count
+      FROM {{p}}sale
+      WHERE sale_date >= @iv_from
+        AND region IN @it_region
+      GROUP BY region
+      ORDER BY total DESCENDING
+      INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
+  ENDMETHOD.
+
+  METHOD display.
+    TRY.
+        cl_salv_table=>factory( IMPORTING r_salv_table = DATA(lo_alv)
+                                CHANGING  t_table      = ct_lines ).
+        lo_alv->display( ).
+      CATCH cx_salv_msg INTO DATA(lx_error).
+        MESSAGE lx_error TYPE 'I' DISPLAY LIKE 'E'.
+    ENDTRY.
+  ENDMETHOD.
+ENDCLASS.
+
+START-OF-SELECTION.
+  DATA(go_report) = NEW lcl_report( ).
+  DATA(gt_lines) = go_report->select_totals( iv_from = p_from it_region = s_reg[] ).
+  go_report->display( CHANGING ct_lines = gt_lines ).
+
+CLASS ltc_report DEFINITION FINAL 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 totals_per_region FOR TESTING.
+    METHODS region_filter FOR TESTING.
+ENDCLASS.
+
+CLASS ltc_report IMPLEMENTATION.
+  METHOD class_setup.
+    go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}SALE' ) ) ).
+    DATA lt_sale TYPE STANDARD TABLE OF {{p}}sale WITH EMPTY KEY.
+    lt_sale = VALUE #( ( sale_id = 1 region = 'A' sale_date = '20260101' amount = 10 )
+                       ( sale_id = 2 region = 'A' sale_date = '20260102' amount = 5 )
+                       ( sale_id = 3 region = 'B' sale_date = '20260101' amount = 40 ) ).
+    go_env->insert_test_data( lt_sale ).
+  ENDMETHOD.
+
+  METHOD class_teardown.
+    go_env->destroy( ).
+  ENDMETHOD.
+
+  METHOD totals_per_region.
+    DATA(lt_lines) = NEW lcl_report( )->select_totals( iv_from = '20260101' it_region = VALUE #( ) ).
+    cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
+    cl_abap_unit_assert=>assert_equals( exp = 'B' act = lt_lines[ 1 ]-region ).
+    cl_abap_unit_assert=>assert_equals( exp = 2 act = lt_lines[ 2 ]-count ).
+  ENDMETHOD.
+
+  METHOD region_filter.
+    DATA(lt_lines) = NEW lcl_report( )->select_totals(
+      iv_from = '20260101' it_region = VALUE #( ( sign = 'I' option = 'EQ' low = 'A' ) ) ).
+    cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
+    cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}sale-amount( 15 ) act = lt_lines[ 1 ]-total ).
+  ENDMETHOD.
+ENDCLASS.

tasks/T14/seed/sale.tabl.asabap

@@ -0,0 +1,12 @@
+@EndUserText.label : 'Sales'
+@AbapCatalog.enhancement.category : #NOT_EXTENSIBLE
+@AbapCatalog.tableCategory : #TRANSPARENT
+@AbapCatalog.deliveryClass : #A
+@AbapCatalog.dataMaintenance : #RESTRICTED
+define table {{p}}sale {
+  key client    : abap.clnt not null;
+  key sale_id   : abap.int4 not null;
+  region        : abap.char(4);
+  sale_date     : abap.dats;
+  amount        : abap.dec(15,2);
+}

tasks/T14/seed/t14_seed.clas.abap

@@ -0,0 +1,17 @@
+CLASS {{p}}t14_seed DEFINITION PUBLIC FINAL CREATE PUBLIC.
+  PUBLIC SECTION.
+    INTERFACES if_oo_adt_classrun.
+ENDCLASS.
+
+CLASS {{p}}t14_seed IMPLEMENTATION.
+  METHOD if_oo_adt_classrun~main.
+    DELETE FROM {{p}}sale.
+    INSERT {{p}}sale FROM TABLE @( VALUE #(
+      ( sale_id = 1 region = 'EU'   sale_date = '20260110' amount = '100.00' )
+      ( sale_id = 2 region = 'EU'   sale_date = '20260210' amount = '50.00' )
+      ( sale_id = 3 region = 'US'   sale_date = '20260115' amount = '300.00' )
+      ( sale_id = 4 region = 'APAC' sale_date = '20251231' amount = '500.00' )
+      ( sale_id = 5 region = 'APAC' sale_date = '20260301' amount = '20.00' ) ) ).
+    out->write( sy-dbcnt ).
+  ENDMETHOD.
+ENDCLASS.

tasks/T14/spec.md

@@ -0,0 +1,33 @@
+# 1. Goal
+Show the sales total for each region in an ALV list. The sales team uses the
+list to compare regions for a period.
+
+# 2. Open questions
+None.
+
+# 3. Context
+- Table {{P}}SALE exists in package $TMP. It contains data.
+  Fields: SALE_ID (INT4, key), REGION (CHAR 4), SALE_DATE (DATS), AMOUNT (DEC 15,2).
+
+# 4. Contract
+- Create the executable program {{P}}SALES_SUM in package $TMP.
+- Selection screen:
+  - Parameter P_FROM, type DATS, mandatory: the first sale date to include.
+  - Select-option S_REG for the region.
+- Show the result with CL_SALV_TABLE. The output table has these columns, with
+  these names: REGION, TOTAL (sum of AMOUNT), COUNT (number of sales).
+
+# 5. Business rules
+1. Include a sale only if SALE_DATE is on or after P_FROM and REGION is in S_REG.
+2. Show one line for each region that has at least one included sale.
+3. Sort the lines by TOTAL, the highest total first.
+
+# 6. Constraints
+- Release target: 7.58.
+- Coding standards: Clean ABAP. Read the data with one database access.
+- Out of scope: do not change {{P}}SALE.
+
+# 7. Acceptance
+- The program is active and has no syntax error.
+- The hidden tests pass.
+- Write ABAP Unit tests as local test classes in the program.

tasks/T14/task.json

@@ -0,0 +1,18 @@
+{
+  "id": "T14", "category": "B", "object_type": "PROG", "difficulty": 2,
+  "release_target": "v758", "expected_outcome": "implement",
+  "budget": {"max_tool_calls": 40, "max_activations": 10},
+  "seed": [
+    {"type": "TABL", "name": "{{P}}SALE", "file": "seed/sale.tabl.asabap", "description": "Sales"},
+    {"type": "CLAS", "name": "{{P}}T14_SEED", "file": "seed/t14_seed.clas.abap", "description": "T14 seed data", "run": true}
+  ],
+  "contract": [
+    {"type": "PROG", "name": "{{P}}SALES_SUM", "parameters": ["p_from", "s_reg"]}
+  ],
+  "out_of_scope": ["{{P}}SALE"],
+  "hidden_tests": [{"type": "CLAS", "name": "{{P}}T14_HIDDEN", "file": "hidden/t14_hidden.clas.abap",
+                    "description": "T14 hidden tests"}],
+  "reference": [{"type": "PROG", "name": "{{P}}SALES_SUM", "file": "reference/sales_sum.prog.abap",
+                 "description": "Sales per region"}],
+  "craft_checks": ["db_operation_in_loop", "method_length"]
+}