test_get_parent_orphan Subroutine

public subroutine test_get_parent_orphan()

Arguments

None

Calls

proc~~test_get_parent_orphan~~CallsGraph proc~test_get_parent_orphan test_get_parent_orphan assert_that assert_that proc~test_get_parent_orphan->assert_that false false proc~test_get_parent_orphan->false none~get_parent~5 ConcreteComposite%get_parent proc~test_get_parent_orphan->none~get_parent~5

Source Code

   subroutine test_get_parent_orphan()
      type(ConcreteComposite) :: composite
      type(MaplGenericComponent) :: component

      composite = ConcreteComposite(component)
      @assert_that(associated(composite%get_parent()), is(false()))

   end subroutine test_get_parent_orphan