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_cds_test_environment.
    CLASS-METHODS class_setup.
    CLASS-METHODS class_teardown.
    METHODS setup.
    METHODS filter_by_park FOR TESTING.
    METHODS sum_and_count FOR TESTING.
ENDCLASS.


CLASS {{p}}t20_test IMPLEMENTATION.
  METHOD class_setup.
    go_env = cl_cds_test_environment=>create( i_for_entity = '{{P}}I_PARK_POWER' ).
  ENDMETHOD.

  METHOD class_teardown.
    go_env->destroy( ).
  ENDMETHOD.

  METHOD setup.
    DATA lt_turbine TYPE STANDARD TABLE OF {{p}}turbine WITH EMPTY KEY.
    DATA lt_prod    TYPE STANDARD TABLE OF {{p}}prod WITH EMPTY KEY.
    go_env->clear_doubles( ).
    lt_turbine = VALUE #( ( turbine_id = 'A1' park_id = 'P01' capacity_kw = 1000 )
                          ( turbine_id = 'A2' park_id = 'P02' capacity_kw = 1000 ) ).
    lt_prod = VALUE #( ( turbine_id = 'A1' prod_date = '20240301' energy_kwh = '10.00' )
                       ( turbine_id = 'A1' prod_date = '20240302' energy_kwh = '20.00' )
                       ( turbine_id = 'A2' prod_date = '20240301' energy_kwh = '99.00' ) ).
    go_env->insert_test_data( lt_turbine ).
    go_env->insert_test_data( lt_prod ).
  ENDMETHOD.

  METHOD filter_by_park.
    DATA lv_park TYPE {{p}}turbine-park_id.
    lv_park = 'P01'.
    SELECT COUNT(*) FROM {{p}}i_park_power( p_park = @lv_park ) INTO @DATA(lv_count).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_count ).
  ENDMETHOD.

  METHOD sum_and_count.
    DATA lv_park TYPE {{p}}turbine-park_id.
    lv_park = 'P01'.
    SELECT SINGLE total_kwh FROM {{p}}i_park_power( p_park = @lv_park ) INTO @DATA(lv_total).
    cl_abap_unit_assert=>assert_equals(
      exp = CONV decfloat34( '30.00' )
      act = CONV decfloat34( lv_total ) ).
    SELECT SINGLE day_count FROM {{p}}i_park_power( p_park = @lv_park ) INTO @DATA(lv_count).
    cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_count ).
  ENDMETHOD.
ENDCLASS.