Steve Karg
79 lines
2.2 KiB
C
79 lines
2.2 KiB
C
/**
|
|
* @file
|
|
* @brief Unit test for object
|
|
* @author Steve Karg <skarg@users.sourceforge.net>
|
|
* @date July 2023
|
|
*
|
|
* @copyright SPDX-License-Identifier: MIT
|
|
*/
|
|
#include <zephyr/ztest.h>
|
|
#include <bacnet/basic/object/command.h>
|
|
#include <property_test.h>
|
|
|
|
/**
|
|
* @addtogroup bacnet_tests
|
|
* @{
|
|
*/
|
|
|
|
/**
|
|
* @brief Test
|
|
*/
|
|
#if defined(CONFIG_ZTEST_NEW_API)
|
|
ZTEST(tests_object_command, test_object_command)
|
|
#else
|
|
static void test_object_command(void)
|
|
#endif
|
|
{
|
|
bool status = false;
|
|
unsigned count = 0;
|
|
uint32_t object_instance = 0;
|
|
const int32_t skip_fail_property_list[] = { -1 };
|
|
BACNET_ACTION_LIST *pAction;
|
|
|
|
Command_Init();
|
|
count = Command_Count();
|
|
zassert_true(count > 0, NULL);
|
|
object_instance = Command_Index_To_Instance(0);
|
|
status = Command_Valid_Instance(object_instance);
|
|
zassert_true(status, NULL);
|
|
count = Command_Action_List_Count(object_instance);
|
|
zassert_true(count > 0, NULL);
|
|
/* configure the instance property values */
|
|
pAction = Command_Action_List_Entry(object_instance, 0);
|
|
zassert_not_null(pAction, NULL);
|
|
pAction->Device_Id.type = OBJECT_DEVICE;
|
|
pAction->Device_Id.instance = 4194303;
|
|
pAction->Object_Id.type = OBJECT_ANALOG_INPUT;
|
|
pAction->Object_Id.instance = 4194303;
|
|
pAction->Property_Identifier = PROP_PRESENT_VALUE;
|
|
pAction->Property_Array_Index = BACNET_ARRAY_ALL;
|
|
pAction->Priority = 16;
|
|
pAction->Value.tag = BACNET_APPLICATION_TAG_REAL;
|
|
pAction->Value.type.Real = 3.14159f;
|
|
pAction->Post_Delay = 0;
|
|
pAction->Quit_On_Failure = false;
|
|
pAction->Write_Successful = false;
|
|
pAction->next = NULL;
|
|
Command_In_Process_Set(object_instance, false);
|
|
Command_All_Writes_Successful_Set(object_instance, false);
|
|
/* perform a general test for RP/WP */
|
|
bacnet_object_properties_read_write_test(
|
|
OBJECT_COMMAND, object_instance, Command_Property_Lists,
|
|
Command_Read_Property, Command_Write_Property, skip_fail_property_list);
|
|
}
|
|
/**
|
|
* @}
|
|
*/
|
|
|
|
#if defined(CONFIG_ZTEST_NEW_API)
|
|
ZTEST_SUITE(tests_object_command, NULL, NULL, NULL, NULL, NULL);
|
|
#else
|
|
void test_main(void)
|
|
{
|
|
ztest_test_suite(
|
|
tests_object_command, ztest_unit_test(test_object_command));
|
|
|
|
ztest_run_test_suite(tests_object_command);
|
|
}
|
|
#endif
|