test_relative_less Subroutine

public subroutine test_relative_less()

Arguments

None

Calls

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

Source Code

   subroutine test_relative_less()
      type(VirtualConnectionPt) :: rcp_1, rcp_2

      rcp_1 = VirtualConnectionPt(state_intent='import', short_name='A')
      rcp_2 = VirtualConnectionPt(state_intent='import', short_name='B')

      ! Identical
        @assert_that((rcp_1 < rcp_1), is(false()))
        @assert_that((rcp_2 < rcp_2), is(false()))
        ! Different
        @assert_that((rcp_1 < rcp_2), is(true()))
        @assert_that((rcp_2 < rcp_1), is(false()))

   end subroutine test_relative_less