test_connectionpt_less Subroutine

public subroutine test_connectionpt_less()

Arguments

None

Calls

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

Source Code

   subroutine test_connectionpt_less()
      type(ConnectionPt) :: cp_1, cp_2

      cp_1 = ConnectionPt('A', state_intent='import', short_name='A')
      cp_2 = ConnectionPt('B', state_intent='export', short_name='B')
        ! Identical
        @assert_that((cp_1 < cp_1), is(false()))
        @assert_that((cp_2 < cp_2), is(false()))
        ! Different
        @assert_that((cp_1 < cp_2), is(true()))
        @assert_that((cp_2 < cp_1), is(false()))

   end subroutine test_connectionpt_less