@ tefigel

|--
|   Generate different blocks of unit test code according
|   to the variable parameter list (containing the test data values).
|--

interface(...)

for JPROP=~list_contents(JAVA_PROPERTIES)
   echo       ~java/property_type(JPROP) ~java/property_id(JPROP);
endfor

set PROPCOUNTER=~list_item_count(JAVA_PROPERTIES)

for TEST_ITEM=REG_ALL

   echo

   for JPROP=~list_contents(JAVA_PROPERTIES)

      set JTYPE=~java/property_type(JPROP)
      set  JPID=~java/property_id(JPROP)
      set JTVAL=~field(TEST_ITEM,JPROP_COUNTER0,|)

      if JTYPE=String
         echo       JPID = "JTVAL";
      else
         echo       JPID = JTVAL;
      endif

   endfor

   echo       JAVA_OBJ_INSTANCE = new JAVA_CLASS(JAVA_PROP_ID_LIST);
   echo       JAVA_LIST_INSTANCE.put(JAVA_PKEY_ID, JAVA_OBJ_INSTANCE);

endfor