test_set_second_real_datetime_duration Subroutine

public subroutine test_set_second_real_datetime_duration()

Arguments

None

Calls

proc~~test_set_second_real_datetime_duration~~CallsGraph proc~test_set_second_real_datetime_duration test_set_second_real_datetime_duration assertequal assertequal proc~test_set_second_real_datetime_duration->assertequal datetime_duration datetime_duration proc~test_set_second_real_datetime_duration->datetime_duration set_second_real set_second_real proc~test_set_second_real_datetime_duration->set_second_real

Source Code

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

      expected = 1800.0
      d = datetime_duration()
      call d % set_second_real(expected)
      @assertEqual(expected, d % second_real, 'Value not set correctly')

   end subroutine test_set_second_real_datetime_duration