test_greater_than Subroutine

public subroutine test_greater_than()

Arguments

None

Calls

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

Source Code

   subroutine test_greater_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_greater_than