test_set_minute_real_datetime_duration Subroutine

public subroutine test_set_minute_real_datetime_duration()

Arguments

None

Calls

proc~~test_set_minute_real_datetime_duration~~CallsGraph proc~test_set_minute_real_datetime_duration test_set_minute_real_datetime_duration assertequal assertequal proc~test_set_minute_real_datetime_duration->assertequal datetime_duration datetime_duration proc~test_set_minute_real_datetime_duration->datetime_duration set_minute_real set_minute_real proc~test_set_minute_real_datetime_duration->set_minute_real

Source Code

   subroutine test_set_minute_real_datetime_duration()
      type(datetime_duration) :: d
      real(R64) :: expected

      expected = 10.0
      d = datetime_duration()
      call d % set_minute_real(expected)
      @assertEqual(expected, d % minute_real, 'Value not set correctly')

   end subroutine test_set_minute_real_datetime_duration