test_set_day_datetime_duration Subroutine

public subroutine test_set_day_datetime_duration()

Arguments

None

Calls

proc~~test_set_day_datetime_duration~~CallsGraph proc~test_set_day_datetime_duration test_set_day_datetime_duration assertequal assertequal proc~test_set_day_datetime_duration->assertequal datetime_duration datetime_duration proc~test_set_day_datetime_duration->datetime_duration set_day set_day proc~test_set_day_datetime_duration->set_day

Source Code

   subroutine test_set_day_datetime_duration()
      type(datetime_duration) :: d
      integer :: expected

      expected = 20
      d = datetime_duration()
      call d % set_day(expected)
      @assertEqual(expected, d % day, 'Value not set correctly')

   end subroutine test_set_day_datetime_duration