test_less Subroutine

public subroutine test_less()

Arguments

None

Calls

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

Source Code

   subroutine test_less()
      type(VirtualConnectionPt) :: v_pt_1, v_pt_2

      v_pt_1 = VirtualConnectionPt(state_intent='import', short_name='A')
      v_pt_2 = VirtualConnectionPt(state_intent='import', short_name='B')

      ! Identical
      @assert_that((v_pt_1 < v_pt_1), is(false()))
      @assert_that((v_pt_2 < v_pt_2), is(false()))
      ! Different
      @assert_that((v_pt_1 < v_pt_2), is(true()))
      @assert_that((v_pt_2 < v_pt_1), is(false()))

   end subroutine test_less