test_greater_than_or_equal Subroutine

public subroutine test_greater_than_or_equal()

Arguments

None

Calls

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

Source Code

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

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

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

   end subroutine test_greater_than_or_equal