test_less_than_or_equal Subroutine

public subroutine test_less_than_or_equal()

Arguments

None

Calls

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

Source Code

   subroutine test_less_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_less_than_or_equal