test_can_connect_to Subroutine

public subroutine test_can_connect_to()

Arguments

None

Calls

proc~~test_can_connect_to~~CallsGraph proc~test_can_connect_to test_can_connect_to assert_that assert_that proc~test_can_connect_to->assert_that none~can_connect_to~18 StateItemAspect%can_connect_to proc~test_can_connect_to->none~can_connect_to~18 matches matches none~can_connect_to~18->matches none~is_mirror StateItemAspect%is_mirror none~can_connect_to~18->none~is_mirror none~is_time_dependent~2 StateItemAspect%is_time_dependent none~can_connect_to~18->none~is_time_dependent~2 none~supports_conversion~2 StateItemAspect%supports_conversion none~can_connect_to~18->none~supports_conversion~2 none~supports_conversion_general~13 GeomAspect%supports_conversion_general none~supports_conversion~2->none~supports_conversion_general~13 none~supports_conversion_specific~13 GeomAspect%supports_conversion_specific none~supports_conversion~2->none~supports_conversion_specific~13

Source Code

   subroutine test_can_connect_to()
      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%can_connect_to(dst), is(expect%can_connect_to))
      end do
      
   end subroutine test_can_connect_to