improves test coverage

tests/test_query_routines.f90

@@ -425,6 +425,13 @@ PROGRAM test_query_routines
             comp_grid_names = yac_fget_comp_grid_names(yac_id, ref_comp_name)
             CALL test(SIZE(comp_grid_names) == 1)
             CALL test(comp_grid_names(1)%string == ref_grid_names(3))
+
+            CALL test(yac_fget_field_role(ref_comp_name, ref_grid_names(3), ref_field_names(1)) == YAC_EXCHANGE_TYPE_NONE)
+            CALL test(yac_fget_field_role(yac_id, ref_comp_name, ref_grid_names(3), ref_field_names(1)) == YAC_EXCHANGE_TYPE_NONE)
+            CALL test(yac_fget_field_collection_size(ref_comp_name, ref_grid_names(3), ref_field_names(1)) == 1)
+            CALL test(yac_fget_field_collection_size(yac_id, ref_comp_name, ref_grid_names(3), ref_field_names(1)) == 1)
+            CALL test(yac_fget_field_timestep(ref_comp_name, ref_grid_names(3), ref_field_names(1)) == "PT5M")
+            CALL test(yac_fget_field_timestep(yac_id, ref_comp_name, ref_grid_names(3), ref_field_names(1)) == "PT5M")
           END IF
         END IF
       END IF

tests/test_query_routines.sh.in

 #!@SHELL@
 
-@TEST_MPI_FALSE@exit 77#
+set -e
+
+@TEST_MPI_FALSE@exit 77
 @TEST_YAXT_FC_FALSE@exit 77
 
 for COUNT in 1 2 3 4 5 10 13

tests/test_query_routines_c.c

@@ -502,6 +502,33 @@ int main(void) {
             yac_cget_comp_grid_names_instance(yac_id, ref_comp_name, 1, &comp_grid_name);
             if (strcmp(comp_grid_name, ref_grid_names[2]))
               PUT_ERR("ERROR in yac_cget_comp_grid_names_instance");
+
+            if (yac_cget_field_role(
+                  ref_comp_name, ref_grid_names[2],
+                  ref_field_names[0]) != YAC_EXCHANGE_TYPE_NONE)
+              PUT_ERR("ERROR in yac_cget_field_role");
+            if (yac_cget_field_role_instance(
+                  yac_id, ref_comp_name, ref_grid_names[2],
+                  ref_field_names[0]) != YAC_EXCHANGE_TYPE_NONE)
+              PUT_ERR("ERROR in yac_cget_field_role_instance");
+            if (yac_cget_field_collection_size(
+                  ref_comp_name, ref_grid_names[2],
+                  ref_field_names[0]) != 1)
+              PUT_ERR("ERROR in yac_cget_field_collection_size");
+            if (yac_cget_field_collection_size_instance(
+                  yac_id, ref_comp_name, ref_grid_names[2],
+                  ref_field_names[0]) != 1)
+              PUT_ERR("ERROR in yac_cget_field_collection_size_instance");
+            if (strcmp(
+                  yac_cget_field_timestep(
+                    ref_comp_name, ref_grid_names[2],
+                    ref_field_names[0]), "PT5M"))
+              PUT_ERR("ERROR in yac_cget_field_timestep");
+            if (strcmp(
+                  yac_cget_field_timestep_instance(
+                    yac_id, ref_comp_name, ref_grid_names[2],
+                    ref_field_names[0]), "PT5M"))
+              PUT_ERR("ERROR in yac_cget_field_timestep");
           }
         }
       }