test_parse_date Subroutine

public subroutine test_parse_date()

Arguments

None

Calls

proc~~test_parse_date~2~~CallsGraph proc~test_parse_date~2 test_MAPL_ISO8601_DateTime::test_parse_date assertequal assertequal proc~test_parse_date~2->assertequal asserttrue asserttrue proc~test_parse_date~2->asserttrue proc~parse_date MAPL_ISO8601_DateTime::parse_date proc~test_parse_date~2->proc~parse_date proc~is_valid_date MAPL_ISO8601_DateTime::is_valid_date proc~parse_date->proc~is_valid_date proc~read_whole_number MAPL_ISO8601_DateTime::read_whole_number proc~parse_date->proc~read_whole_number proc~undelimit MAPL_ISO8601_DateTime::undelimit proc~parse_date->proc~undelimit proc~get_month_end MAPL_ISO8601_DateTime::get_month_end proc~is_valid_date->proc~get_month_end proc~is_between MAPL_ISO8601_DateTime::is_between proc~is_valid_date->proc~is_between proc~is_valid_month MAPL_ISO8601_DateTime::is_valid_month proc~is_valid_date->proc~is_valid_month proc~is_valid_year MAPL_ISO8601_DateTime::is_valid_year proc~is_valid_date->proc~is_valid_year proc~read_whole_number_indexed MAPL_ISO8601_DateTime::read_whole_number_indexed proc~read_whole_number->proc~read_whole_number_indexed proc~get_month_ends MAPL_ISO8601_DateTime::get_month_ends proc~get_month_end->proc~get_month_ends proc~is_valid_month->proc~is_between proc~is_valid_year->proc~is_between proc~get_integer_digit_from_string MAPL_ISO8601_DateTime::get_integer_digit_from_string proc~read_whole_number_indexed->proc~get_integer_digit_from_string proc~is_whole_number MAPL_ISO8601_DateTime::is_whole_number proc~read_whole_number_indexed->proc~is_whole_number

Source Code

   subroutine test_parse_date()
      type(date_fields) :: date

      date = parse_date('2022-07-07')
      @assertTrue(date%is_valid_)
      @assertEqual(2022, date%year_)
      @assertEqual(7, date%month_)
      @assertEqual(7, date%day_)

      date = parse_date('20220707')
      @assertTrue(date%is_valid_)
      @assertEqual(2022, date%year_)
      @assertEqual(7, date%month_)
      @assertEqual(7, date%day_)
   end subroutine test_parse_date