CLASS {{p}}t31_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 grades_one_month FOR TESTING.
    METHODS excludes_turbine_without_yield FOR TESTING.
    METHODS excludes_orphan_yield FOR TESTING.
ENDCLASS.


CLASS {{p}}t31_test IMPLEMENTATION.

  METHOD class_setup.
    go_env = cl_cds_test_environment=>create( i_for_entity = '{{P}}I_WIND_GRADE' ).
  ENDMETHOD.

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

  METHOD setup.
    DATA lt_turbine TYPE STANDARD TABLE OF {{p}}turbine WITH EMPTY KEY.
    DATA lt_yield   TYPE STANDARD TABLE OF {{p}}yield WITH EMPTY KEY.

    go_env->clear_doubles( ).

    lt_turbine = VALUE #(
      ( turbine_id = 'T1' site = 'NORTH' capacity_kw = 2000 commissioned = '20150101' )
      ( turbine_id = 'T2' site = 'SOUTH' capacity_kw = 1500 commissioned = '20180101' ) ).

    lt_yield = VALUE #(
      ( turbine_id = 'T1' calmonth = '202401' energy_kwh = '250000.00' downtime_hrs = 5 )
      ( turbine_id = 'T9' calmonth = '202401' energy_kwh = '300000.00' downtime_hrs = 0 ) ).

    go_env->insert_test_data( lt_turbine ).
    go_env->insert_test_data( lt_yield ).
  ENDMETHOD.

  METHOD grades_one_month.
    SELECT SINGLE yield_grade, availability, rating, penalty
      FROM {{p}}i_wind_grade
      WHERE turbine_id = 'T1' AND calmonth = '202401'
      INTO @DATA(ls_row).
    cl_abap_unit_assert=>assert_equals( exp = 'A'    act = ls_row-yield_grade ).
    cl_abap_unit_assert=>assert_equals( exp = 'FULL' act = ls_row-availability ).
    cl_abap_unit_assert=>assert_equals( exp = 'TOP'  act = ls_row-rating ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 )
                                        act = CONV decfloat34( ls_row-penalty ) ).
  ENDMETHOD.

  METHOD excludes_turbine_without_yield.
    SELECT COUNT(*) FROM {{p}}i_wind_grade INTO @DATA(lv_rows).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rows ).
  ENDMETHOD.

  METHOD excludes_orphan_yield.
    SELECT COUNT(*) FROM {{p}}i_wind_grade
      WHERE turbine_id = 'T9' INTO @DATA(lv_rows).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rows ).
  ENDMETHOD.
ENDCLASS.