test_needs_extension_for Subroutine

public subroutine test_needs_extension_for()

Arguments

None

Calls

proc~~test_needs_extension_for~~CallsGraph proc~test_needs_extension_for test_needs_extension_for assert_that assert_that proc~test_needs_extension_for->assert_that none~needs_extension_for StateItemAspect%needs_extension_for proc~test_needs_extension_for->none~needs_extension_for matches matches none~needs_extension_for->matches none~is_mirror StateItemAspect%is_mirror none~needs_extension_for->none~is_mirror none~is_time_dependent~2 StateItemAspect%is_time_dependent none~needs_extension_for->none~is_time_dependent~2

Source Code

   subroutine test_needs_extension_for()
      integer :: i
      character(4) :: buf
      type(Expectation) :: expect
      type(MockAspect) :: src, dst

      do i = 1, size(EXPECTATIONS)
         write(buf, '(i0)') i
         expect = EXPECTATIONS(i)
         src = MockAspect(expect%src_mirror, expect%src_time_dependent, expect%src_value, expect%src_supports_conversion)
         dst = MockAspect(expect%dst_mirror, expect%dst_time_dependent, expect%dst_value, .true.) ! last is unused
         @assert_that('case: '//trim(buf), src%needs_extension_for(dst), is(expect%needs_extension_for))
      end do
      
   end subroutine test_needs_extension_for