get_aspect_one Subroutine

public subroutine get_aspect_one()

Arguments

None

Calls

proc~~get_aspect_one~~CallsGraph proc~get_aspect_one get_aspect_one assert_that assert_that proc~get_aspect_one->assert_that assertequal assertequal proc~get_aspect_one->assertequal none~get_aspect_order StateItemSpec%get_aspect_order proc~get_aspect_one->none~get_aspect_order of of proc~get_aspect_one->of 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_one()
      type(StringVector) :: aspect_names
      type(MockItemSpec) :: spec, goal

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

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

      @assertEqual(aspect_names%of(1), 'TYPEKIND')

   end subroutine get_aspect_one