test_equals Subroutine

public subroutine test_equals()

Arguments

None

Calls

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

Source Code

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

      s = String('abcd')
      s2 = String('abcde')

      @assert_that(s == s, is(true()))
      @assert_that(s == s2, is(false()))

      @assert_that(s == 'abcd', is(true()))
      @assert_that('abcd' == s, is(true()))

      @assert_that(s == 'aaa', is(false()))
      @assert_that('aaa' == s, is(false()))

      @assert_that(s /= 'abcd', is(false()))
      @assert_that('abcd' /= s, is(false()))

      @assert_that(s /= 'aaa', is(true()))
      @assert_that('aaa' /= s, is(true()))


   end subroutine test_equals