STRU and exception tasks accepted; G6 cascade fix, exception class mutants, RTTI unit notes

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>

tasks_gen/train/G1903/reference/t16_test.clas.abap

@@ -0,0 +1,68 @@
+CLASS {{p}}t16_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 six_components FOR TESTING.
+    METHODS reads_stock_line FOR TESTING.
+    METHODS audit_matches FOR TESTING.
+ENDCLASS.
+
+
+CLASS {{p}}t16_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( ).
+    DATA lt_stock TYPE STANDARD TABLE OF {{p}}stock WITH EMPTY KEY.
+    lt_stock = VALUE #(
+      ( material = 'MAT-1' plant = 'P001' net_amount = '123.45'
+        currency = 'EUR' created_by = 'USER1' created_on = '20240115' ) ).
+    go_env->insert_test_data( lt_stock ).
+  ENDMETHOD.
+
+  METHOD six_components.
+    DATA(lo_struct) = CAST cl_abap_structdescr(
+      cl_abap_typedescr=>describe_by_name( '{{P}}STOCK_LINE' ) ).
+    DATA(lt_fields) = lo_struct->get_ddic_field_list( ).
+    cl_abap_unit_assert=>assert_equals( exp = 6 act = lines( lt_fields ) ).
+  ENDMETHOD.
+
+  METHOD reads_stock_line.
+    DATA ls_line TYPE {{p}}stock_line.
+    SELECT SINGLE material, plant, net_amount, currency, created_by, created_on
+      FROM {{p}}stock
+      INTO @ls_line
+      WHERE material = 'MAT-1'.
+    cl_abap_unit_assert=>assert_equals( exp = 'MAT-1' act = ls_line-material ).
+    cl_abap_unit_assert=>assert_equals( exp = 'EUR' act = ls_line-currency ).
+  ENDMETHOD.
+
+  METHOD audit_matches.
+    DATA(lo_line) = CAST cl_abap_structdescr(
+      cl_abap_typedescr=>describe_by_name( '{{P}}STOCK_LINE' ) ).
+    DATA(lo_audit) = CAST cl_abap_structdescr(
+      cl_abap_typedescr=>describe_by_name( '{{P}}AUDIT_INFO' ) ).
+    DATA(lt_line) = lo_line->get_ddic_field_list( ).
+    DATA(lt_audit) = lo_audit->get_ddic_field_list( ).
+    LOOP AT lt_audit INTO DATA(ls_audit).
+      READ TABLE lt_line INTO DATA(ls_line) WITH KEY fieldname = ls_audit-fieldname.
+      cl_abap_unit_assert=>assert_subrc(
+        exp = 0 msg = |Component { ls_audit-fieldname } is missing| ).
+      cl_abap_unit_assert=>assert_equals( exp = ls_audit-leng act = ls_line-leng ).
+    ENDLOOP.
+  ENDMETHOD.
+ENDCLASS.