test_less_than Subroutine

public subroutine test_less_than()

Arguments

None

Calls

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

Source Code

   subroutine test_less_than()
      type(String) :: s
      type(String) :: s2

      s = String('abcd')
      s2 = String('abce')
      @assert_that(s < s, is(false()))
      @assert_that(s < s2, is(true()))
      @assert_that(s2 < s, is(false()))

      @assert_that(s < 'abcd', is(false()))
      @assert_that(s < 'abce', is(true()))
      @assert_that('abcd' < s, is(false()))
      @assert_that('abce' < s, is(false()))

   end subroutine test_less_than