Snapshot: new training tasks (balanced generation), docs

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
2026-10-05 22:08:59 +02:00
parent eb13453097
commit 6984fc7917
572 changed files with 30024 additions and 0 deletions
--- a/tasks_gen/train/G1915/reference/grh_test.clas.abap
+++ b/tasks_gen/train/G1915/reference/grh_test.clas.abap
@@ -0,0 +1,64 @@
+CLASS {{p}}grh_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_all_values FOR TESTING.
+    METHODS rejects_duplicate_key FOR TESTING.
+    METHODS has_expected_fields FOR TESTING.
+ENDCLASS.
+
+
+CLASS {{p}}grh_test IMPLEMENTATION.
+  METHOD class_setup.
+    go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}GRH' ) ) ).
+  ENDMETHOD.
+
+  METHOD class_teardown.
+    go_env->destroy( ).
+  ENDMETHOD.
+
+  METHOD setup.
+    go_env->clear_doubles( ).
+  ENDMETHOD.
+
+  METHOD stores_all_values.
+    DATA lt_grh TYPE STANDARD TABLE OF {{p}}grh WITH EMPTY KEY.
+    lt_grh = VALUE #( ( client = sy-mandt harvest_id = 'H1' vineyard_id = 'VINE01'
+                        grape = 'RIESLING' harvest_date = '20240901'
+                        crates = 14 weight_kg = '212.500' grade = 'A' organic = 'X' ) ).
+    INSERT {{p}}grh FROM TABLE @lt_grh.
+    cl_abap_unit_assert=>assert_subrc( exp = 0 ).
+
+    SELECT SINGLE vineyard_id, crates FROM {{p}}grh WHERE harvest_id = 'H1'
+      INTO @DATA(ls_grh).
+    cl_abap_unit_assert=>assert_subrc( exp = 0 ).
+    cl_abap_unit_assert=>assert_equals( exp = 'VINE01' act = ls_grh-vineyard_id ).
+    cl_abap_unit_assert=>assert_equals( exp = 14 act = ls_grh-crates ).
+  ENDMETHOD.
+
+  METHOD rejects_duplicate_key.
+    DATA lt_grh TYPE STANDARD TABLE OF {{p}}grh WITH EMPTY KEY.
+    lt_grh = VALUE #( ( client = sy-mandt harvest_id = 'D1' vineyard_id = 'VINE02' ) ).
+    INSERT {{p}}grh FROM TABLE @lt_grh.
+    cl_abap_unit_assert=>assert_subrc( exp = 0 ).
+
+    TRY.
+        INSERT {{p}}grh FROM TABLE @lt_grh.
+        cl_abap_unit_assert=>fail( msg = 'A duplicate key must not be accepted' ).
+      CATCH cx_sy_open_sql_db.
+        " expected: the key is unique
+    ENDTRY.
+
+    SELECT COUNT(*) FROM {{p}}grh WHERE harvest_id = 'D1' INTO @DATA(lv_count).
+    cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_count ).
+  ENDMETHOD.
+
+  METHOD has_expected_fields.
+    DATA(lo_descr) = CAST cl_abap_structdescr( cl_abap_typedescr=>describe_by_name( '{{P}}GRH' ) ).
+    DATA(lt_fields) = lo_descr->get_ddic_field_list( ).
+    cl_abap_unit_assert=>assert_equals( exp = 9 act = lines( lt_fields ) ).
+  ENDMETHOD.
+ENDCLASS.