test_equal_to Subroutine

public subroutine test_equal_to()

Arguments

None

Calls

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

Source Code

   subroutine test_equal_to()

      type(LatLonDecomposition) :: a, b

      a = LatLonDecomposition([1,2],[3,4,5])
      b = a
      @assert_that(a == b, is(true()))
      @assert_that(a /= b, is(false()))
      
      b = LatLonDecomposition([2,1],[3,4,5])
      @assert_that(a == b, is(false()))
      @assert_that(a /= b, is(true()))

      b = LatLonDecomposition([1,2], [2,7])
      @assert_that(a == b, is(false()))
      @assert_that(a /= b, is(true()))

   end subroutine test_equal_to