bugfix kernel test runner (#938)

Author: larshp

package.json

@@ -18,8 +18,8 @@
     "@abaplint/cli": "^2.113.108",
     "@abaplint/database-pg": "^2.10.24",
     "@abaplint/database-sqlite": "^2.10.24",
-    "@abaplint/runtime": "^2.10.33",
-    "@abaplint/transpiler-cli": "^2.10.33",
+    "@abaplint/runtime": "^2.10.34",
+    "@abaplint/transpiler-cli": "^2.10.34",
     "0x": "^5.8.0"
   }
 }

src/unit/kernel_unit_runner.clas.testclasses.abap

@@ -1,5 +1,8 @@
 CLASS ltcl_test DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT FINAL.
   PRIVATE SECTION.
+    METHODS setup.
+    DATA mv_setup TYPE i.
+
     METHODS single_method FOR TESTING RAISING cx_static_check.
 
     METHODS failing_not_for_testing RAISING cx_static_check.
@@ -13,9 +16,23 @@ CLASS ltcl_test DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT FINAL.
 
     METHODS failing_not_for_testing_obj RAISING cx_static_check.
     METHODS single_method_fail_obj FOR TESTING RAISING cx_static_check.
+
+    METHODS check_setup RAISING cx_static_check.
+    METHODS single_method_check_setup FOR TESTING RAISING cx_static_check.
 ENDCLASS.
 
 CLASS ltcl_test IMPLEMENTATION.
+  METHOD check_setup.
+* this method is used internally for testing, dont set it FOR TESTING
+    cl_abap_unit_assert=>assert_equals(
+      act = mv_setup
+      exp = 123 ).
+  ENDMETHOD.
+
+  METHOD setup.
+    mv_setup = 123.
+  ENDMETHOD.
+
   METHOD failing_not_for_testing.
 * this method is used internally for testing, dont set it FOR TESTING
     cl_abap_unit_assert=>assert_equals(
@@ -93,6 +110,29 @@ CLASS ltcl_test IMPLEMENTATION.
       exp = 1 ).
   ENDMETHOD.
 
+  METHOD single_method_check_setup.
+    DATA lt_input  TYPE kernel_unit_runner=>ty_input.
+    DATA ls_input  LIKE LINE OF lt_input.
+    DATA ls_result TYPE kernel_unit_runner=>ty_result.
+    DATA ls_list   LIKE LINE OF ls_result-list.
+
+    ls_input-class_name     = 'KERNEL_UNIT_RUNNER'.
+    ls_input-testclass_name = 'LTCL_TEST'.
+    ls_input-method_name    = 'CHECK_SETUP'.
+    APPEND ls_input TO lt_input.
+
+    ls_result = kernel_unit_runner=>run( lt_input ).
+
+    cl_abap_unit_assert=>assert_equals(
+      act = lines( ls_result-list )
+      exp = 1 ).
+    READ TABLE ls_result-list INDEX 1 INTO ls_list.
+    cl_abap_unit_assert=>assert_subrc( ).
+    cl_abap_unit_assert=>assert_equals(
+      act = ls_list-status
+      exp = kernel_unit_runner=>gc_status-success ).
+  ENDMETHOD.
+
   METHOD single_method_fail_obj.
     DATA lt_input  TYPE kernel_unit_runner=>ty_input.
     DATA ls_input  LIKE LINE OF lt_input.