test_from_yaml_size Subroutine

public subroutine test_from_yaml_size()

Arguments

None

Calls

proc~~test_from_yaml_size~~CallsGraph proc~test_from_yaml_size test_from_yaml_size assert_that assert_that proc~test_from_yaml_size->assert_that

Source Code

   subroutine test_from_yaml_size()
      type(FieldDictionary) :: fd

      fd = FieldDictionary(stream='{X_Y_Z: {canonical_units: m, long_name: "X Y Z"}}')
      @assert_that(1, is(fd%size()))

      fd = FieldDictionary(stream = '{' // &
           'X_Y_Z: {canonical_units: m, long_name: "X Y Z"},' //  &
           'A_B_C: {canonical_units: m, long_name: "A B C"} }')
      @assert_that(2, is(fd%size()))

   end subroutine test_from_yaml_size