test_set_integer_value_datetime_duration Subroutine

public subroutine test_set_integer_value_datetime_duration()

Arguments

None

Calls

proc~~test_set_integer_value_datetime_duration~~CallsGraph proc~test_set_integer_value_datetime_duration test_set_integer_value_datetime_duration assertequal assertequal proc~test_set_integer_value_datetime_duration->assertequal datetime_duration datetime_duration proc~test_set_integer_value_datetime_duration->datetime_duration set_value set_value proc~test_set_integer_value_datetime_duration->set_value

Source Code

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

      expected = 1800
      d = datetime_duration()
      call d % set_value(SECOND_TIME_UNIT, expected)
      @assertEqual(expected, d % second, 'Value not set correctly')

   end subroutine test_set_integer_value_datetime_duration