sola/scpi-parser.git

			@@ -13,6 +13,37 @@
			* CUnit Test Suite
			*/

			static scpi_result_t text_function(scpi_t* context) {
			char param[100];
			size_t param_len;

			if (!SCPI_ParamCopyText(context, param, 100, &param_len, TRUE)) {
			return SCPI_RES_ERR;
			}

			if (!SCPI_ParamCopyText(context, param, 100, &param_len, TRUE)) {
			return SCPI_RES_ERR;
			}

			SCPI_ResultText(context, param);

			return SCPI_RES_OK;
			}

			static scpi_result_t test_treeA(scpi_t* context) {

			SCPI_ResultInt32(context, 10);

			return SCPI_RES_OK;
			}

			static scpi_result_t test_treeB(scpi_t* context) {

			SCPI_ResultInt32(context, 20);

			return SCPI_RES_OK;
			}

			static const scpi_command_t scpi_commands[] = {
			/* IEEE Mandated Commands (SCPI std V1999.0 4.1.1) */
			{ .pattern = "*CLS", .callback = SCPI_CoreCls,},
			@@ -39,7 +70,12 @@
			{ .pattern = "STATus:QUEStionable:ENABle?", .callback = SCPI_StatusQuestionableEnableQ,},

			{ .pattern = "STATus:PRESet", .callback = SCPI_StatusPreset,},


			{ .pattern = "TEXTfunction?", .callback = text_function,},

			{ .pattern = "TEST:TREEA?", .callback = test_treeA,},
			{ .pattern = "TEST:TREEB?", .callback = test_treeB,},

			SCPI_CMD_LIST_END
			};

			@@ -59,13 +95,16 @@
			memcpy(output_buffer + output_buffer_pos, data, len);
			output_buffer_pos += len;
			output_buffer[output_buffer_pos] = '\0';
			return len;
			}

			scpi_t scpi_context;

			static void error_buffer_clear(void) {
			err_buffer[0] = '\0';
			err_buffer[0] = 0;
			err_buffer_pos = 0;

			SCPI_RegClearBits(&scpi_context, SCPI_REG_STB, STB_QMA);
			SCPI_EventClear(&scpi_context);
			SCPI_ErrorClear(&scpi_context);
			}
			@@ -75,13 +114,15 @@
			err_buffer_pos++;
			}


			static size_t SCPI_Write(scpi_t * context, const char * data, size_t len) {
			(void) context;

			return output_buffer_write(data, len);
			}

			static scpi_result_t SCPI_Flush(scpi_t * context) {
			(void) context;

			return SCPI_RES_OK;
			}

			@@ -94,7 +135,10 @@
			}

			scpi_reg_val_t srq_val = 0;

			static scpi_result_t SCPI_Control(scpi_t * context, scpi_ctrl_name_t ctrl, scpi_reg_val_t val) {
			(void) context;

			if (SCPI_CTRL_SRQ == ctrl) {
			srq_val = val;
			} else {
			@@ -106,6 +150,8 @@
			scpi_bool_t RST_executed = FALSE;

			static scpi_result_t SCPI_Reset(scpi_t * context) {
			(void) context;

			RST_executed = TRUE;
			return SCPI_RES_OK;
			}
			@@ -126,27 +172,29 @@

			scpi_t scpi_context = {
			.cmdlist = scpi_commands,
			.buffer = {
			.buffer =
			{
			.length = SCPI_INPUT_BUFFER_LENGTH,
			.data = scpi_input_buffer,
			},
			.interface = &scpi_interface,
			.registers = scpi_regs,
			.units = scpi_units_def,
			.idn = {"MA", "IN", NULL, "VER"},
			.idn =
			{"MA", "IN", NULL, "VER"},
			};

			int init_suite(void) {
			static int init_suite(void) {
			SCPI_Init(&scpi_context);

			return 0;
			}

			int clean_suite(void) {
			static int clean_suite(void) {
			return 0;
			}

			void testCommandsHandling(void) {
			static void testCommandsHandling(void) {
			#define TEST_INPUT(data, output) { \
			SCPI_Input(&scpi_context, data, strlen(data)); \
			CU_ASSERT_STRING_EQUAL(output, output_buffer); \
			@@ -162,6 +210,12 @@
			TEST_INPUT("IDN?\r\nIDN?\r\nIDN?\r\nIDN?\r\n", "MA,IN,0,VER\r\nMA,IN,0,VER\r\nMA,IN,0,VER\r\nMA,IN,0,VER\r\n");
			output_buffer_clear();

			TEST_INPUT("IDN?;IDN?;IDN?;IDN?\r\n", "MA,IN,0,VER;MA,IN,0,VER;MA,IN,0,VER;MA,IN,0,VER\r\n");
			output_buffer_clear();

			TEST_INPUT("IDN?;OPC;*IDN?\r\n", "MA,IN,0,VER;MA,IN,0,VER\r\n");
			output_buffer_clear();

			/* Test one command in multiple buffers */
			TEST_INPUT("*IDN?", "");
			TEST_INPUT("\r\n", "MA,IN,0,VER\r\n");
			@@ -171,38 +225,52 @@
			TEST_INPUT("*IDN?", "");
			TEST_INPUT("", "MA,IN,0,VER\r\n");
			output_buffer_clear();


			/* Test ctree traversal */
			TEST_INPUT("TEST:TREEA?;TREEB?\r\n", "10;20\r\n");
			output_buffer_clear();

			TEST_INPUT("TEST:TREEA?;:TEXT? \"PARAM1\", \"PARAM2\"\r\n", "10;\"PARAM2\"\r\n");
			output_buffer_clear();

			CU_ASSERT_EQUAL(err_buffer_pos, 0);
			error_buffer_clear();

			// TODO: Compound commands A:B;C -> A:B; A:C
			}

			void testErrorHandling(void) {
			static void testErrorHandling(void) {
			output_buffer_clear();
			error_buffer_clear();

			#define TEST_ERROR(data, output, err_num) { \
			SCPI_Input(&scpi_context, data, strlen(data)); \
			CU_ASSERT_STRING_EQUAL(output, output_buffer); \
			#define TEST_ERROR(data, output, expected_result, err_num) { \
			output_buffer_clear(); \
			error_buffer_clear(); \
			scpi_bool_t result = SCPI_Input(&scpi_context, data, strlen(data)); \
			CU_ASSERT_STRING_EQUAL(output, output_buffer); \
			CU_ASSERT_EQUAL(err_buffer[0], err_num); \
			CU_ASSERT_EQUAL(result, expected_result); \
			}

			TEST_ERROR("*IDN?\r\n", "MA,IN,0,VER\r\n", 0);
			output_buffer_clear();
			TEST_ERROR("IDN?\r\n", "", SCPI_ERROR_UNDEFINED_HEADER);
			TEST_ERROR("*ESE\r\n", "", SCPI_ERROR_MISSING_PARAMETER);
			TEST_ERROR("*IDN? 12\r\n", "MA,IN,0,VER\r\n", SCPI_ERROR_PARAMETER_NOT_ALLOWED);
			output_buffer_clear();
			TEST_ERROR("*IDN?\r\n", "MA,IN,0,VER\r\n", TRUE, 0);
			TEST_ERROR("IDN?\r\n", "", FALSE, SCPI_ERROR_UNDEFINED_HEADER);
			TEST_ERROR("*ESE\r\n", "", FALSE, SCPI_ERROR_MISSING_PARAMETER);
			TEST_ERROR("*IDN? 12\r\n", "MA,IN,0,VER\r\n", FALSE, SCPI_ERROR_PARAMETER_NOT_ALLOWED);
			TEST_ERROR("TEXT? \"PARAM1\", \"PARAM2\"\r\n", "\"PARAM2\"\r\n", TRUE, 0);
			TEST_ERROR("ABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJ"
			"ABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJ"
			"ABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJ",
			"", FALSE, SCPI_ERROR_INPUT_BUFFER_OVERRUN);

			// TODO: SCPI_ERROR_INVALID_SEPARATOR
			// TODO: SCPI_ERROR_INVALID_SUFFIX
			// TODO: SCPI_ERROR_SUFFIX_NOT_ALLOWED
			// TODO: SCPI_ERROR_EXECUTION_ERROR
			// TODO: SCPI_ERROR_ILLEGAL_PARAMETER_VALUE

			output_buffer_clear();
			error_buffer_clear();
			}

			void testIEEE4882(void) {
			static void testIEEE4882(void) {
			#define TEST_IEEE4882(data, output) { \
			SCPI_Input(&scpi_context, data, strlen(data)); \
			CU_ASSERT_STRING_EQUAL(output, output_buffer); \
			@@ -224,31 +292,33 @@
			TEST_IEEE4882("*SRE?\r\n", "255\r\n");
			TEST_IEEE4882("*STB?\r\n", "0\r\n");
			TEST_IEEE4882("*ESR?\r\n", "1\r\n");


			srq_val = 0;
			TEST_IEEE4882("ABCD\r\n", ""); /* "Undefined header" cause command error */
			CU_ASSERT_EQUAL(srq_val, 96); /* value of STB as service request */
			TEST_IEEE4882("STB?\r\n", "96\r\n"); / Event status register + Service request */
			CU_ASSERT_EQUAL(srq_val, (STB_ESR \| STB_SRQ \| STB_QMA)); /* value of STB as service request */
			TEST_IEEE4882("STB?\r\n", "100\r\n"); / Event status register + Service request */
			TEST_IEEE4882("ESR?\r\n", "32\r\n"); / Command error */

			TEST_IEEE4882("*STB?\r\n", "0\r\n");
			TEST_IEEE4882("STB?\r\n", "68\r\n"); / Error queue is still not empty */
			TEST_IEEE4882("*ESR?\r\n", "0\r\n");


			TEST_IEEE4882("SYST:ERR:NEXT?\r\n", "-113,\"Undefined header\"\r\n");
			TEST_IEEE4882("SYST:ERR:NEXT?\r\n", "0,\"No error\"\r\n");


			TEST_IEEE4882("STB?\r\n", "0\r\n"); / Error queue is now empty */

			RST_executed = FALSE;
			TEST_IEEE4882("*RST\r\n", "");
			CU_ASSERT_EQUAL(RST_executed, TRUE);

			TEST_IEEE4882("*TST?\r\n", "0\r\n");


			TEST_IEEE4882("*WAI\r\n", "");

			TEST_IEEE4882("SYSTem:VERSion?\r\n", "1999.0\r\n");
			}

			#define TEST_ParamInt(data, mandatory, expected_value, expected_result, expected_error_code) \
			#define TEST_ParamInt32(data, mandatory, expected_value, expected_result, expected_error_code) \
			{ \
			int32_t value; \
			scpi_bool_t result; \
			@@ -259,7 +329,7 @@
			scpi_context.param_list.lex_state.buffer = data; \
			scpi_context.param_list.lex_state.len = strlen(scpi_context.param_list.lex_state.buffer);\
			scpi_context.param_list.lex_state.pos = scpi_context.param_list.lex_state.buffer; \
			result = SCPI_ParamInt(&scpi_context, &value, mandatory); \
			result = SCPI_ParamInt32(&scpi_context, &value, mandatory); \
			\
			errCode = SCPI_ErrorPop(&scpi_context); \
			CU_ASSERT_EQUAL(result, expected_result); \
			@@ -269,18 +339,180 @@
			CU_ASSERT_EQUAL(errCode, expected_error_code); \
			}

			void testSCPI_ParamInt(void) {
			TEST_ParamInt("10", TRUE, 10, TRUE, 0);
			TEST_ParamInt("", FALSE, 0, FALSE, 0);
			TEST_ParamInt("10.5", TRUE, 10, TRUE, 0); // TODO: should be FALSE, -104
			TEST_ParamInt("#B101010", TRUE, 42, TRUE, 0);
			TEST_ParamInt("#H101010", TRUE, 1052688, TRUE, 0);
			TEST_ParamInt("#Q10", TRUE, 8, TRUE, 0);
			static void testSCPI_ParamInt32(void) {
			TEST_ParamInt32("10", TRUE, 10, TRUE, 0);
			TEST_ParamInt32("", FALSE, 0, FALSE, 0);
			TEST_ParamInt32("10.5", TRUE, 10, TRUE, 0); // TODO: should be FALSE, -104
			TEST_ParamInt32("#B101010", TRUE, 42, TRUE, 0);
			TEST_ParamInt32("#H101010", TRUE, 1052688, TRUE, 0);
			TEST_ParamInt32("#Q10", TRUE, 8, TRUE, 0);

			TEST_ParamInt("", TRUE, 0, FALSE, -109); // missing parameter
			TEST_ParamInt("abcd", TRUE, 0, FALSE, -104); // Data type error
			TEST_ParamInt("10.5V", TRUE, 0, FALSE, -138);
			TEST_ParamInt("10V", TRUE, 0, FALSE, -138);
			TEST_ParamInt32("", TRUE, 0, FALSE, -109); // missing parameter
			TEST_ParamInt32("abcd", TRUE, 0, FALSE, -104); // Data type error
			TEST_ParamInt32("10.5V", TRUE, 0, FALSE, -138);
			TEST_ParamInt32("10V", TRUE, 0, FALSE, -138);

			// test range
			TEST_ParamInt32("2147483647", TRUE, 2147483647, TRUE, 0);
			TEST_ParamInt32("-2147483647", TRUE, -2147483647, TRUE, 0);
			}

			#define TEST_ParamUInt32(data, mandatory, expected_value, expected_result, expected_error_code) \
			{ \
			uint32_t value; \
			scpi_bool_t result; \
			int16_t errCode; \
			\
			SCPI_CoreCls(&scpi_context); \
			scpi_context.input_count = 0; \
			scpi_context.param_list.lex_state.buffer = data; \
			scpi_context.param_list.lex_state.len = strlen(scpi_context.param_list.lex_state.buffer);\
			scpi_context.param_list.lex_state.pos = scpi_context.param_list.lex_state.buffer; \
			result = SCPI_ParamUInt32(&scpi_context, &value, mandatory); \
			\
			errCode = SCPI_ErrorPop(&scpi_context); \
			CU_ASSERT_EQUAL(result, expected_result); \
			if (expected_result) { \
			CU_ASSERT_EQUAL(value, expected_value); \
			} \
			CU_ASSERT_EQUAL(errCode, expected_error_code); \
			}

			static void testSCPI_ParamUInt32(void) {
			TEST_ParamUInt32("10", TRUE, 10, TRUE, 0);
			TEST_ParamUInt32("", FALSE, 0, FALSE, 0);
			TEST_ParamUInt32("10.5", TRUE, 10, TRUE, 0); // TODO: should be FALSE, -104
			TEST_ParamUInt32("#B101010", TRUE, 42, TRUE, 0);
			TEST_ParamUInt32("#H101010", TRUE, 1052688, TRUE, 0);
			TEST_ParamUInt32("#Q10", TRUE, 8, TRUE, 0);

			TEST_ParamUInt32("", TRUE, 0, FALSE, -109); // missing parameter
			TEST_ParamUInt32("abcd", TRUE, 0, FALSE, -104); // Data type error
			TEST_ParamUInt32("10.5V", TRUE, 0, FALSE, -138);
			TEST_ParamUInt32("10V", TRUE, 0, FALSE, -138);

			// test range
			TEST_ParamUInt32("2147483647", TRUE, 2147483647ULL, TRUE, 0);
			TEST_ParamUInt32("4294967295", TRUE, 4294967295ULL, TRUE, 0);
			}

			#define TEST_ParamInt64(data, mandatory, expected_value, expected_result, expected_error_code) \
			{ \
			int64_t value; \
			scpi_bool_t result; \
			int16_t errCode; \
			\
			SCPI_CoreCls(&scpi_context); \
			scpi_context.input_count = 0; \
			scpi_context.param_list.lex_state.buffer = data; \
			scpi_context.param_list.lex_state.len = strlen(scpi_context.param_list.lex_state.buffer);\
			scpi_context.param_list.lex_state.pos = scpi_context.param_list.lex_state.buffer; \
			result = SCPI_ParamInt64(&scpi_context, &value, mandatory); \
			\
			errCode = SCPI_ErrorPop(&scpi_context); \
			CU_ASSERT_EQUAL(result, expected_result); \
			if (expected_result) { \
			CU_ASSERT_EQUAL(value, expected_value); \
			} \
			CU_ASSERT_EQUAL(errCode, expected_error_code); \
			}

			static void testSCPI_ParamInt64(void) {
			TEST_ParamInt64("10", TRUE, 10, TRUE, 0);
			TEST_ParamInt64("", FALSE, 0, FALSE, 0);
			TEST_ParamInt64("10.5", TRUE, 10, TRUE, 0); // TODO: should be FALSE, -104
			TEST_ParamInt64("#B101010", TRUE, 42, TRUE, 0);
			TEST_ParamInt64("#H101010", TRUE, 1052688, TRUE, 0);
			TEST_ParamInt64("#Q10", TRUE, 8, TRUE, 0);

			TEST_ParamInt64("", TRUE, 0, FALSE, -109); // missing parameter
			TEST_ParamInt64("abcd", TRUE, 0, FALSE, -104); // Data type error
			TEST_ParamInt64("10.5V", TRUE, 0, FALSE, -138);
			TEST_ParamInt64("10V", TRUE, 0, FALSE, -138);

			// test range
			TEST_ParamInt64("2147483647", TRUE, 2147483647LL, TRUE, 0);
			TEST_ParamInt64("-2147483647", TRUE, -2147483647LL, TRUE, 0);
			TEST_ParamInt64("9223372036854775807", TRUE, 9223372036854775807LL, TRUE, 0);
			TEST_ParamInt64("-9223372036854775807", TRUE, -9223372036854775807LL, TRUE, 0);
			}

			#define TEST_ParamUInt64(data, mandatory, expected_value, expected_result, expected_error_code) \
			{ \
			uint64_t value; \
			scpi_bool_t result; \
			int16_t errCode; \
			\
			SCPI_CoreCls(&scpi_context); \
			scpi_context.input_count = 0; \
			scpi_context.param_list.lex_state.buffer = data; \
			scpi_context.param_list.lex_state.len = strlen(scpi_context.param_list.lex_state.buffer);\
			scpi_context.param_list.lex_state.pos = scpi_context.param_list.lex_state.buffer; \
			result = SCPI_ParamUInt64(&scpi_context, &value, mandatory); \
			\
			errCode = SCPI_ErrorPop(&scpi_context); \
			CU_ASSERT_EQUAL(result, expected_result); \
			if (expected_result) { \
			CU_ASSERT_EQUAL(value, expected_value); \
			} \
			CU_ASSERT_EQUAL(errCode, expected_error_code); \
			}

			static void testSCPI_ParamUInt64(void) {
			TEST_ParamUInt64("10", TRUE, 10, TRUE, 0);
			TEST_ParamUInt64("", FALSE, 0, FALSE, 0);
			TEST_ParamUInt64("10.5", TRUE, 10, TRUE, 0); // TODO: should be FALSE, -104
			TEST_ParamUInt64("#B101010", TRUE, 42, TRUE, 0);
			TEST_ParamUInt64("#H101010", TRUE, 1052688, TRUE, 0);
			TEST_ParamUInt64("#Q10", TRUE, 8, TRUE, 0);

			TEST_ParamUInt64("", TRUE, 0, FALSE, -109); // missing parameter
			TEST_ParamUInt64("abcd", TRUE, 0, FALSE, -104); // Data type error
			TEST_ParamUInt64("10.5V", TRUE, 0, FALSE, -138);
			TEST_ParamUInt64("10V", TRUE, 0, FALSE, -138);

			// test range
			TEST_ParamUInt64("2147483647", TRUE, 2147483647ULL, TRUE, 0);
			TEST_ParamUInt64("4294967295", TRUE, 4294967295ULL, TRUE, 0);
			TEST_ParamUInt64("9223372036854775807", TRUE, 9223372036854775807ULL, TRUE, 0);
			TEST_ParamUInt64("18446744073709551615", TRUE, 18446744073709551615ULL, TRUE, 0);
			}


			#define TEST_ParamFloat(data, mandatory, expected_value, expected_result, expected_error_code) \
			{ \
			float value; \
			scpi_bool_t result; \
			int16_t errCode; \
			\
			SCPI_CoreCls(&scpi_context); \
			scpi_context.input_count = 0; \
			scpi_context.param_list.lex_state.buffer = data; \
			scpi_context.param_list.lex_state.len = strlen(scpi_context.param_list.lex_state.buffer);\
			scpi_context.param_list.lex_state.pos = scpi_context.param_list.lex_state.buffer; \
			result = SCPI_ParamFloat(&scpi_context, &value, mandatory); \
			\
			errCode = SCPI_ErrorPop(&scpi_context); \
			CU_ASSERT_EQUAL(result, expected_result); \
			if (expected_result) { \
			CU_ASSERT_DOUBLE_EQUAL(value, expected_value, 0.000001); \
			} \
			CU_ASSERT_EQUAL(errCode, expected_error_code); \
			}

			static void testSCPI_ParamFloat(void) {
			TEST_ParamFloat("10", TRUE, 10, TRUE, 0);
			TEST_ParamFloat("", FALSE, 0, FALSE, 0);
			TEST_ParamFloat("10.5", TRUE, 10.5, TRUE, 0);
			TEST_ParamFloat("#B101010", TRUE, 42, TRUE, 0);
			TEST_ParamFloat("#H101010", TRUE, 1052688, TRUE, 0);
			TEST_ParamFloat("#Q10", TRUE, 8, TRUE, 0);
			TEST_ParamFloat("#HFFFFFF", TRUE, 0xFFFFFFu, TRUE, 0);

			TEST_ParamFloat("", TRUE, 0, FALSE, -109); // missing parameter
			TEST_ParamFloat("abcd", TRUE, 0, FALSE, -104); // Data type error
			TEST_ParamFloat("10.5V", TRUE, 0, FALSE, -138);
			TEST_ParamFloat("10V", TRUE, 0, FALSE, -138);
			}

			#define TEST_ParamDouble(data, mandatory, expected_value, expected_result, expected_error_code) \
			@@ -304,13 +536,14 @@
			CU_ASSERT_EQUAL(errCode, expected_error_code); \
			}

			void testSCPI_ParamDouble(void) {
			static void testSCPI_ParamDouble(void) {
			TEST_ParamDouble("10", TRUE, 10, TRUE, 0);
			TEST_ParamDouble("", FALSE, 0, FALSE, 0);
			TEST_ParamDouble("10.5", TRUE, 10.5, TRUE, 0);
			TEST_ParamDouble("#B101010", TRUE, 42, TRUE, 0);
			TEST_ParamDouble("#H101010", TRUE, 1052688, TRUE, 0);
			TEST_ParamDouble("#Q10", TRUE, 8, TRUE, 0);
			TEST_ParamDouble("#HFFFFFFFF", TRUE, 0xFFFFFFFFu, TRUE, 0);

			TEST_ParamDouble("", TRUE, 0, FALSE, -109); // missing parameter
			TEST_ParamDouble("abcd", TRUE, 0, FALSE, -104); // Data type error
			@@ -340,7 +573,7 @@
			CU_ASSERT_EQUAL(errCode, expected_error_code); \
			}

			void testSCPI_ParamCharacters(void) {
			static void testSCPI_ParamCharacters(void) {
			TEST_ParamCharacters("10", TRUE, "10", TRUE, 0);
			TEST_ParamCharacters(" ABCD", TRUE, "ABCD", TRUE, 0); // TokProgramMnemonic
			TEST_ParamCharacters("\"ABCD\"", TRUE, "ABCD", TRUE, 0); // TokDoubleQuoteProgramData
			@@ -350,7 +583,236 @@
			}


			#define TEST_ParamCopyText(data, mandatory, expected_value, expected_len, expected_result, expected_error_code) \
			{ \
			char value[100]; \
			size_t value_len; \
			scpi_bool_t result; \
			int16_t errCode; \
			\
			SCPI_CoreCls(&scpi_context); \
			scpi_context.input_count = 0; \
			scpi_context.param_list.lex_state.buffer = data; \
			scpi_context.param_list.lex_state.len = strlen(scpi_context.param_list.lex_state.buffer);\
			scpi_context.param_list.lex_state.pos = scpi_context.param_list.lex_state.buffer; \
			result = SCPI_ParamCopyText(&scpi_context, value, sizeof(value), &value_len, mandatory);\
			/printf("%.s\r\n", (int)value_len, value);*/ \
			errCode = SCPI_ErrorPop(&scpi_context); \
			CU_ASSERT_EQUAL(result, expected_result); \
			if (expected_result) { \
			CU_ASSERT_STRING_EQUAL(value, expected_value); \
			CU_ASSERT_EQUAL(value_len, expected_len); \
			} \
			CU_ASSERT_EQUAL(errCode, expected_error_code); \
			}

			static void testSCPI_ParamCopyText(void) {
			TEST_ParamCopyText("\'abc\'", TRUE, "abc", 3, TRUE, 0);
			TEST_ParamCopyText("\"abc\"", TRUE, "abc", 3, TRUE, 0);
			TEST_ParamCopyText("\'a\'", TRUE, "a", 1, TRUE, 0);
			TEST_ParamCopyText("\'a\'\'c\'", TRUE, "a\'c", 3, TRUE, 0);
			TEST_ParamCopyText("\'a\"c\'", TRUE, "a\"c", 3, TRUE, 0);
			TEST_ParamCopyText("\"a\"\"c\"", TRUE, "a\"c", 3, TRUE, 0);
			TEST_ParamCopyText("\"a\'c\"", TRUE, "a\'c", 3, TRUE, 0);
			TEST_ParamCopyText("\"\"", TRUE, "", 0, TRUE, 0);
			TEST_ParamCopyText("", FALSE, "", 0, FALSE, 0);
			TEST_ParamCopyText("\"\"", FALSE, "", 0, TRUE, 0);
			}


			#define TEST_NumericListInt(data, index, expected_range, expected_from, expected_to, expected_result, expected_error_code) \
			{ \
			scpi_bool_t result; \
			scpi_expr_result_t result2; \
			int16_t errCode; \
			scpi_parameter_t param; \
			int32_t val_from, val_to; \
			scpi_bool_t val_range; \
			\
			SCPI_CoreCls(&scpi_context); \
			scpi_context.input_count = 0; \
			scpi_context.param_list.lex_state.buffer = data; \
			scpi_context.param_list.lex_state.len = strlen(scpi_context.param_list.lex_state.buffer);\
			scpi_context.param_list.lex_state.pos = scpi_context.param_list.lex_state.buffer; \
			result = SCPI_Parameter(&scpi_context, &param, TRUE); \
			result2 = SCPI_ExprNumericListEntryInt(&scpi_context, &param, index, &val_range, &val_from, &val_to);\
			errCode = SCPI_ErrorPop(&scpi_context); \
			CU_ASSERT_EQUAL(result2, expected_result); \
			if (expected_result == SCPI_EXPR_OK) { \
			CU_ASSERT_EQUAL(val_range, expected_range); \
			CU_ASSERT_EQUAL(val_from, expected_from); \
			if (expected_range) { \
			CU_ASSERT_EQUAL(val_to, expected_to); \
			} \
			} \
			CU_ASSERT_EQUAL(errCode, expected_error_code); \
			}

			#define TEST_NumericListDouble(data, index, expected_range, expected_from, expected_to, expected_result, expected_error_code) \
			{ \
			scpi_bool_t result; \
			scpi_expr_result_t result2; \
			int16_t errCode; \
			scpi_parameter_t param; \
			double val_from, val_to; \
			scpi_bool_t val_range; \
			\
			SCPI_CoreCls(&scpi_context); \
			scpi_context.input_count = 0; \
			scpi_context.param_list.lex_state.buffer = data; \
			scpi_context.param_list.lex_state.len = strlen(scpi_context.param_list.lex_state.buffer);\
			scpi_context.param_list.lex_state.pos = scpi_context.param_list.lex_state.buffer; \
			result = SCPI_Parameter(&scpi_context, &param, TRUE); \
			result2 = SCPI_ExprNumericListEntryDouble(&scpi_context, &param, index, &val_range, &val_from, &val_to);\
			errCode = SCPI_ErrorPop(&scpi_context); \
			CU_ASSERT_EQUAL(result2, expected_result); \
			if (expected_result == SCPI_EXPR_OK) { \
			CU_ASSERT_EQUAL(val_range, expected_range); \
			CU_ASSERT_DOUBLE_EQUAL(val_from, expected_from, 0.0001); \
			if (expected_range) { \
			CU_ASSERT_DOUBLE_EQUAL(val_to, expected_to, 0.0001); \
			} \
			} \
			CU_ASSERT_EQUAL(errCode, expected_error_code); \
			}

			static void testNumericList(void) {
			TEST_NumericListInt("(1:2,5:6)", 0, TRUE, 1, 2, SCPI_EXPR_OK, 0);
			TEST_NumericListInt("(1:2,5:6)", 1, TRUE, 5, 6, SCPI_EXPR_OK, 0);
			TEST_NumericListInt("(1:2,5:6)", 2, FALSE, 0, 0, SCPI_EXPR_NO_MORE, 0);

			TEST_NumericListInt("(12,5:6)", 0, FALSE, 12, 0, SCPI_EXPR_OK, 0);
			TEST_NumericListInt("(12,5:6)", 1, TRUE, 5, 6, SCPI_EXPR_OK, 0);
			TEST_NumericListInt("(12,5:6)", 2, FALSE, 0, 0, SCPI_EXPR_NO_MORE, 0);

			TEST_NumericListInt("(12,5:6:3)", 0, FALSE, 12, 0, SCPI_EXPR_OK, 0);
			TEST_NumericListInt("(12,5:6:3)", 1, TRUE, 5, 6, SCPI_EXPR_OK, 0);
			TEST_NumericListInt("(12,5:6:3)", 2, FALSE, 0, 0, SCPI_EXPR_ERROR, SCPI_ERROR_EXPRESSION_PARSING_ERROR);

			TEST_NumericListDouble("(1:2,5:6)", 0, TRUE, 1, 2, SCPI_EXPR_OK, 0);
			TEST_NumericListDouble("(1:2,5:6)", 1, TRUE, 5, 6, SCPI_EXPR_OK, 0);
			TEST_NumericListDouble("(1:2,5:6)", 2, FALSE, 0, 0, SCPI_EXPR_NO_MORE, 0);

			TEST_NumericListDouble("(12,5:6)", 0, FALSE, 12, 0, SCPI_EXPR_OK, 0);
			TEST_NumericListDouble("(12,5:6)", 1, TRUE, 5, 6, SCPI_EXPR_OK, 0);
			TEST_NumericListDouble("(12,5:6)", 2, FALSE, 0, 0, SCPI_EXPR_NO_MORE, 0);

			TEST_NumericListDouble("(12,5:6:3)", 0, FALSE, 12, 0, SCPI_EXPR_OK, 0);
			TEST_NumericListDouble("(12,5:6:3)", 1, TRUE, 5, 6, SCPI_EXPR_OK, 0);
			TEST_NumericListDouble("(12,5:6:3)", 2, FALSE, 0, 0, SCPI_EXPR_ERROR, SCPI_ERROR_EXPRESSION_PARSING_ERROR);
			}

			#define NOPAREN(...) __VA_ARGS__

			#define TEST_ChannelList(data, index, val_len, expected_range, expected_dimensions, _expected_from, _expected_to, expected_result, expected_error_code) \
			{ \
			scpi_bool_t result; \
			scpi_expr_result_t result2; \
			int16_t errCode; \
			scpi_parameter_t param; \
			int32_t val_from[val_len], val_to[val_len]; \
			scpi_bool_t val_range; \
			int32_t expected_from[] = {NOPAREN _expected_from}; \
			int32_t expected_to[] = {NOPAREN _expected_to}; \
			size_t val_dimensions; \
			\
			SCPI_CoreCls(&scpi_context); \
			scpi_context.input_count = 0; \
			scpi_context.param_list.lex_state.buffer = data; \
			scpi_context.param_list.lex_state.len = strlen(scpi_context.param_list.lex_state.buffer);\
			scpi_context.param_list.lex_state.pos = scpi_context.param_list.lex_state.buffer; \
			result = SCPI_Parameter(&scpi_context, &param, TRUE); \
			result2 = SCPI_ExprChannelListEntry(&scpi_context, &param, index, &val_range, val_from, val_to, val_len, &val_dimensions);\
			errCode = SCPI_ErrorPop(&scpi_context); \
			CU_ASSERT_EQUAL(result2, expected_result); \
			if (expected_result == SCPI_EXPR_OK) { \
			CU_ASSERT_EQUAL(val_dimensions, expected_dimensions); \
			CU_ASSERT_EQUAL(val_range, expected_range); \
			{ size_t i; for(i = 0; (i < val_len) && (i < val_dimensions); i++) { \
			CU_ASSERT_EQUAL(val_from[i], expected_from[i]); \
			}} \
			if (expected_range) { \
			{ size_t i; for(i = 0; (i < val_len) && (i < val_dimensions); i++) { \
			CU_ASSERT_EQUAL(val_to[i], expected_to[i]); \
			}} \
			} \
			} \
			CU_ASSERT_EQUAL(errCode, expected_error_code); \
			}

			static void testChannelList(void) {
			TEST_ChannelList("(1)", 0, 1, FALSE, 0, (0), (0), SCPI_EXPR_ERROR, SCPI_ERROR_EXPRESSION_PARSING_ERROR);

			TEST_ChannelList("(@1)", 0, 1, FALSE, 1, (1), (0), SCPI_EXPR_OK, 0);
			TEST_ChannelList("(@1)", 1, 1, FALSE, 0, (0), (0), SCPI_EXPR_NO_MORE, 0);

			TEST_ChannelList("(@1,2)", 0, 1, FALSE, 1, (1), (0), SCPI_EXPR_OK, 0);
			TEST_ChannelList("(@1,2)", 1, 1, FALSE, 1, (2), (0), SCPI_EXPR_OK, 0);
			TEST_ChannelList("(@1,2)", 2, 1, FALSE, 0, (0), (0), SCPI_EXPR_NO_MORE, 0);

			TEST_ChannelList("(@1,2:3)", 0, 1, FALSE, 1, (1), (0), SCPI_EXPR_OK, 0);
			TEST_ChannelList("(@1,2:3)", 1, 1, TRUE, 1, (2), (3), SCPI_EXPR_OK, 0);
			TEST_ChannelList("(@1,2:3)", 2, 1, FALSE, 0, (0), (0), SCPI_EXPR_NO_MORE, 0);

			TEST_ChannelList("(@1,2!5:3!6)", 0, 2, FALSE, 1, (1), (0), SCPI_EXPR_OK, 0);
			TEST_ChannelList("(@1,2!5:3!6)", 1, 2, TRUE, 2, (2, 5), (3, 6), SCPI_EXPR_OK, 0);
			TEST_ChannelList("(@1,2!5:3!6)", 2, 2, FALSE, 0, (0), (0), SCPI_EXPR_NO_MORE, 0);

			TEST_ChannelList("(@1,2!5:3!6)", 0, 1, FALSE, 1, (1), (0), SCPI_EXPR_OK, 0);
			TEST_ChannelList("(@1,2!5:3!6)", 1, 1, TRUE, 2, (2), (3), SCPI_EXPR_OK, 0);
			TEST_ChannelList("(@1,2!5:3!6)", 2, 1, FALSE, 0, (0), (0), SCPI_EXPR_NO_MORE, 0);

			TEST_ChannelList("(@1,2!5:3!6!7)", 0, 2, FALSE, 1, (1), (0), SCPI_EXPR_OK, 0);
			TEST_ChannelList("(@1,2!5:3!6!7)", 1, 2, FALSE, 0, (0), (0), SCPI_EXPR_ERROR, SCPI_ERROR_EXPRESSION_PARSING_ERROR);
			TEST_ChannelList("(@1,2!5:3!6!7)", 2, 2, FALSE, 0, (0), (0), SCPI_EXPR_ERROR, SCPI_ERROR_EXPRESSION_PARSING_ERROR);

			TEST_ChannelList("(@1, 2)", 0, 1, FALSE, 1, (1), (0), SCPI_EXPR_OK, 0);
			TEST_ChannelList("(@1, 2)", 1, 1, FALSE, 0, (0), (0), SCPI_EXPR_ERROR, SCPI_ERROR_EXPRESSION_PARSING_ERROR);
			}


			#define TEST_ParamNumber(data, mandatory, expected_special, expected_tag, expected_value, expected_unit, expected_base, expected_result, expected_error_code) \
			{ \
			scpi_number_t value; \
			scpi_bool_t result; \
			int16_t errCode; \
			\
			SCPI_CoreCls(&scpi_context); \
			scpi_context.input_count = 0; \
			scpi_context.param_list.lex_state.buffer = data; \
			scpi_context.param_list.lex_state.len = strlen(scpi_context.param_list.lex_state.buffer);\
			scpi_context.param_list.lex_state.pos = scpi_context.param_list.lex_state.buffer; \
			result = SCPI_ParamNumber(&scpi_context, scpi_special_numbers_def, &value, mandatory);\
			\
			errCode = SCPI_ErrorPop(&scpi_context); \
			CU_ASSERT_EQUAL(result, expected_result); \
			if (expected_result) { \
			CU_ASSERT_EQUAL(value.special, expected_special); \
			if (value.special) CU_ASSERT_EQUAL(value.tag, expected_tag); \
			if (!value.special) CU_ASSERT_DOUBLE_EQUAL(value.value, expected_value, 0.000001);\
			CU_ASSERT_EQUAL(value.unit, expected_unit); \
			CU_ASSERT_EQUAL(value.base, expected_base); \
			} \
			CU_ASSERT_EQUAL(errCode, expected_error_code); \
			}

			static void testParamNumber(void) {
			TEST_ParamNumber("1", TRUE, FALSE, SCPI_NUM_NUMBER, 1, SCPI_UNIT_NONE, 10, TRUE, 0);
			TEST_ParamNumber("#Q20", TRUE, FALSE, SCPI_NUM_NUMBER, 16, SCPI_UNIT_NONE, 8, TRUE, 0);
			TEST_ParamNumber("#H20", TRUE, FALSE, SCPI_NUM_NUMBER, 32, SCPI_UNIT_NONE, 16, TRUE, 0);
			TEST_ParamNumber("#B11", TRUE, FALSE, SCPI_NUM_NUMBER, 3, SCPI_UNIT_NONE, 2, TRUE, 0);
			TEST_ParamNumber("1.2", TRUE, FALSE, SCPI_NUM_NUMBER, 1.2, SCPI_UNIT_NONE, 10, TRUE, 0);
			TEST_ParamNumber("1.2e-1", TRUE, FALSE, SCPI_NUM_NUMBER, 0.12, SCPI_UNIT_NONE, 10, TRUE, 0);
			TEST_ParamNumber("1.2e-1V", TRUE, FALSE, SCPI_NUM_NUMBER, 0.12, SCPI_UNIT_VOLT, 10, TRUE, 0);
			TEST_ParamNumber("1.2mV", TRUE, FALSE, SCPI_NUM_NUMBER, 0.0012, SCPI_UNIT_VOLT, 10, TRUE, 0);
			TEST_ParamNumber("100 OHM", TRUE, FALSE, SCPI_NUM_NUMBER, 100, SCPI_UNIT_OHM, 10, TRUE, 0);
			TEST_ParamNumber("min", TRUE, TRUE, SCPI_NUM_MIN, 0, SCPI_UNIT_NONE, 10, TRUE, 0);
			TEST_ParamNumber("infinity", TRUE, TRUE, SCPI_NUM_INF, 0, SCPI_UNIT_NONE, 10, TRUE, 0);
			TEST_ParamNumber("minc", TRUE, TRUE, SCPI_NUM_NUMBER, 0, SCPI_UNIT_NONE, 10, FALSE, SCPI_ERROR_ILLEGAL_PARAMETER_VALUE);
			}

			int main() {
			unsigned int result;
			CU_pSuite pSuite = NULL;

			/* Initialize the CUnit test registry */
			@@ -365,12 +827,20 @@
			}

			/* Add the tests to the suite */
			if ((NULL == CU_add_test(pSuite, "SCPI_ParamInt", testSCPI_ParamInt))
			if ((NULL == CU_add_test(pSuite, "SCPI_ParamInt32", testSCPI_ParamInt32))
			\|\| (NULL == CU_add_test(pSuite, "SCPI_ParamUInt32", testSCPI_ParamUInt32))
			\|\| (NULL == CU_add_test(pSuite, "SCPI_ParamInt64", testSCPI_ParamInt64))
			\|\| (NULL == CU_add_test(pSuite, "SCPI_ParamUInt64", testSCPI_ParamUInt64))
			\|\| (NULL == CU_add_test(pSuite, "SCPI_ParamFloat", testSCPI_ParamFloat))
			\|\| (NULL == CU_add_test(pSuite, "SCPI_ParamDouble", testSCPI_ParamDouble))
			\|\| (NULL == CU_add_test(pSuite, "SCPI_ParamCharacters", testSCPI_ParamCharacters))
			\|\| (NULL == CU_add_test(pSuite, "Commands handling", testCommandsHandling))
			\|\| (NULL == CU_add_test(pSuite, "Error handling", testErrorHandling))
			\|\| (NULL == CU_add_test(pSuite, "IEEE 488.2 Mandatory commands", testIEEE4882))
			\|\| (NULL == CU_add_test(pSuite, "SCPI_ParamCopyText", testSCPI_ParamCopyText))
			\|\| (NULL == CU_add_test(pSuite, "Commands handling", testCommandsHandling))
			\|\| (NULL == CU_add_test(pSuite, "Error handling", testErrorHandling))
			\|\| (NULL == CU_add_test(pSuite, "IEEE 488.2 Mandatory commands", testIEEE4882))
			\|\| (NULL == CU_add_test(pSuite, "Numeric list", testNumericList))
			\|\| (NULL == CU_add_test(pSuite, "Channel list", testChannelList))
			\|\| (NULL == CU_add_test(pSuite, "SCPI_ParamNumber", testParamNumber))
			) {
			CU_cleanup_registry();
			return CU_get_error();
			@@ -379,7 +849,8 @@
			/* Run all tests using the CUnit Basic interface */
			CU_basic_set_mode(CU_BRM_VERBOSE);
			CU_basic_run_tests();
			result = CU_get_number_of_tests_failed();
			CU_cleanup_registry();
			return CU_get_error();
			return result ? result : CU_get_error();
			}