private static function _createObject($ps_idno_base, $pa_attributes, $ps_type_code = 'test_object_type1')
 {
     $pn_type_id = self::_retrieveCreatedInstance('ca_list_items', $ps_type_code)->getPrimaryKey();
     $vo_object = new ca_objects();
     $vo_object->setMode(ACCESS_WRITE);
     $vo_object->set(array('idno' => self::_getIdno($ps_idno_base), 'type_id' => $pn_type_id));
     foreach ($pa_attributes as $vs_code_base => $vs_value) {
         $vs_code = self::_getIdno($vs_code_base);
         $vo_object->addMetadataElementToType($vs_code, $pn_type_id);
         $vo_object->addAttribute(array($vs_code => $vs_value), $vs_code);
     }
     $vo_object->insert();
     self::_recordCreatedInstance($vo_object, $ps_idno_base);
     return $vo_object;
 }