test_connectionpt_less_registry Subroutine

public subroutine test_connectionpt_less_registry()

Arguments

None

Calls

proc~~test_connectionpt_less_registry~~CallsGraph proc~test_connectionpt_less_registry test_connectionpt_less_registry assert_that assert_that proc~test_connectionpt_less_registry->assert_that false false proc~test_connectionpt_less_registry->false true true proc~test_connectionpt_less_registry->true

Source Code

   subroutine test_connectionpt_less_registry()

      type(ConnectionPt) :: cp_1, cp_2, cp_3
      cp_1 = ConnectionPt('grandchild_A',state_intent='export',short_name='ae1')
      cp_2 = ConnectionPt('child_A',state_intent='export',short_name='ae2')
      cp_3 = ConnectionPt('child_B',  state_intent='import', short_name='ai')

        ! Identical
        @assert_that((cp_1 < cp_1), is(false()))
        @assert_that((cp_2 < cp_2), is(false()))
        @assert_that((cp_3 < cp_3), is(false()))

        ! Different
        @assert_that((cp_2 < cp_1), is(true()))
        @assert_that((cp_2 < cp_3), is(true()))
        @assert_that((cp_3 < cp_1), is(true()))

      
   end subroutine test_connectionpt_less_registry