get_aspect_empty Subroutine

public subroutine get_aspect_empty()

Arguments

None

Calls

proc~~get_aspect_empty~~CallsGraph proc~get_aspect_empty get_aspect_empty assert_that assert_that proc~get_aspect_empty->assert_that none~get_aspect_order StateItemSpec%get_aspect_order proc~get_aspect_empty->none~get_aspect_order none~get_aspect_priorities~3 StateItemSpec%get_aspect_priorities none~get_aspect_order->none~get_aspect_priorities~3 push_back push_back none~get_aspect_order->push_back

Source Code

   subroutine get_aspect_empty()
      type(StringVector) :: aspect_names
      type(MockItemSpec) :: spec, goal

      spec = MockItemSpec(name='0')
      goal = MockItemSpec(name='0')

      aspect_names = spec%get_aspect_order(goal)
      associate ( expected => aspect_names%size() ) ! returns INT64
        @assert_that(int(expected), is(0))
      end associate

   end subroutine get_aspect_empty