add repeated tests for hs_process_table

1 files changed, 149 insertions, 26 deletions

diff --git a/src/tests/hs_process_table_tests.c b/src/tests/hs_process_table_tests.c
index bf6e424..04fc9e4 100644
--- a/src/tests/hs_process_table_tests.c
+++ b/src/tests/hs_process_table_tests.c
@@ -24,6 +24,15 @@
     do { mu_assert("incorrectly set string!", strcmp(string, "") == 0); } while(0);
     
 
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ *
+ * tests for all 16 possible combinations of one table containing one
+ * boolean, integer, number, and string key each.
+ *
+ * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ */
+
+
 TEST(process_none)
 {
     lua_createtable(L, 0, 0);
@@ -37,9 +46,6 @@ TEST(process_none)
 
     return 0;
 }
-
-
-
 TEST(process_bool)
 {
     lua_createtable(L, 0, 0);
@@ -55,8 +61,6 @@ TEST(process_bool)
     
     return 0;
 }
-
-
 TEST(process_int)
 {
     lua_createtable(L, 0, 0);
@@ -73,7 +77,6 @@ TEST(process_int)
     
     return 0;
 }
-
 TEST(process_bool_int)
 {
     lua_createtable(L, 0, 0);
@@ -92,8 +95,6 @@ TEST(process_bool_int)
     
     return 0;
 }
-
-
 TEST(process_number)
 {
     lua_createtable(L, 0, 0);
@@ -109,7 +110,6 @@ TEST(process_number)
     
     return 0;
 }
-
 TEST(process_bool_number)
 {
     lua_createtable(L, 0, 0);
@@ -128,7 +128,6 @@ TEST(process_bool_number)
     
     return 0;
 }
-
 TEST(process_int_number)
 {
     lua_createtable(L, 0, 0);
@@ -148,8 +147,6 @@ TEST(process_int_number)
     
     return 0;
 }
-
-
 TEST(process_bool_int_number)
 {
     lua_createtable(L, 0, 0);
@@ -171,8 +168,6 @@ TEST(process_bool_int_number)
     
     return 0;
 }
-
-
 TEST(process_string)
 {
     lua_createtable(L, 0, 0);
@@ -189,9 +184,6 @@ TEST(process_string)
 
     return 0;
 }
-
-
-
 TEST(process_bool_string)
 {
     lua_createtable(L, 0, 0);
@@ -210,8 +202,6 @@ TEST(process_bool_string)
     
     return 0;
 }
-
-
 TEST(process_int_string)
 {
     lua_createtable(L, 0, 0);
@@ -231,7 +221,6 @@ TEST(process_int_string)
     
     return 0;
 }
-
 TEST(process_bool_int_string)
 {
     lua_createtable(L, 0, 0);
@@ -253,8 +242,6 @@ TEST(process_bool_int_string)
     
     return 0;
 }
-
-
 TEST(process_number_string)
 {
     lua_createtable(L, 0, 0);
@@ -273,7 +260,6 @@ TEST(process_number_string)
     
     return 0;
 }
-
 TEST(process_bool_number_string)
 {
     lua_createtable(L, 0, 0);
@@ -295,7 +281,6 @@ TEST(process_bool_number_string)
     
     return 0;
 }
-
 TEST(process_int_number_string)
 {
     lua_createtable(L, 0, 0);
@@ -318,8 +303,6 @@ TEST(process_int_number_string)
     
     return 0;
 }
-
-
 TEST(process_all)
 {
     lua_createtable(L, 0, 0);
@@ -345,6 +328,141 @@ TEST(process_all)
     return 0;
 }
 
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ *
+ * tests for four keys of the same type
+ *
+ * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ */
+
+TEST(process_four_bools)
+{
+    lua_createtable(L, 0, 4);
+
+    lua_pushboolean(L, true);
+    lua_setfield(L, -2, "b1");
+
+    lua_pushboolean(L, false);
+    lua_setfield(L, -2, "b2");
+
+    lua_pushboolean(L, false);
+    lua_setfield(L, -2, "b3");
+
+    lua_pushboolean(L, true);
+    lua_setfield(L, -2, "b4");
+
+    bool b1, b2, b3, b4;
+    hs_process_table(L, -1,
+		     "b1", HS_BOOL, hs_pt_set_boolean, &b1,
+		     "b2", HS_BOOL, hs_pt_set_boolean, &b2,
+		     "b3", HS_BOOL, hs_pt_set_boolean, &b3,
+		     "b4", HS_BOOL, hs_pt_set_boolean, &b4,
+		     HS_END);
+
+    mu_assert("b1 was not correctly set!", b1 == true);
+    mu_assert("b2 was not correctly set!", b2 == false);
+    mu_assert("b3 was not correctly set!", b3 == false);
+    mu_assert("b4 was not correctly set!", b4 == true);
+    return 0;
+}
+TEST(process_four_ints)
+{
+    lua_createtable(L, 0, 4);
+
+    lua_pushinteger(L, 2);
+    lua_setfield(L, -2, "j1");
+
+    lua_pushinteger(L, 1);
+    lua_setfield(L, -2, "j2");
+
+    lua_pushinteger(L, 3);
+    lua_setfield(L, -2, "j3");
+
+    lua_pushinteger(L, 4);
+    lua_setfield(L, -2, "j4");
+
+    int j1, j2, j3, j4;
+    hs_process_table(L, -1,
+		     "j1", HS_INT, hs_pt_set_integer, &j1,
+		     "j2", HS_INT, hs_pt_set_integer, &j2,
+		     "j3", HS_INT, hs_pt_set_integer, &j3,
+		     "j4", HS_INT, hs_pt_set_integer, &j4,
+		     HS_END);
+
+    mu_assert("j1 was not correctly set!", j1 == 2);
+    mu_assert("j2 was not correctly set!", j2 == 1);
+    mu_assert("j3 was not correctly set!", j3 == 3);
+    mu_assert("j4 was not correctly set!", j4 == 4);
+    return 0;
+}
+TEST(process_four_numbers)
+{
+    lua_createtable(L, 0, 4);
+
+    lua_pushnumber(L, 3.141);
+    lua_setfield(L, -2, "n1");
+
+    lua_pushnumber(L, 2.718);
+    lua_setfield(L, -2, "n2");
+
+    lua_pushnumber(L, 1.618);
+    lua_setfield(L, -2, "n3");
+
+    lua_pushnumber(L, 4.669);
+    lua_setfield(L, -2, "n4");
+
+    lua_Number n1, n2, n3, n4;
+    hs_process_table(L, -1,
+		     "n1", HS_NUM, hs_pt_set_number, &n1,
+		     "n2", HS_NUM, hs_pt_set_number, &n2,
+		     "n3", HS_NUM, hs_pt_set_number, &n3,
+		     "n4", HS_NUM, hs_pt_set_number, &n4,
+		     HS_END);
+
+    mu_assert("n1 was not correctly set!", n1 == 3.141);
+    mu_assert("n2 was not correctly set!", n2 == 2.718);
+    mu_assert("n3 was not correctly set!", n3 == 1.618);
+    mu_assert("n4 was not correctly set!", n4 == 4.669);
+    return 0;
+}
+TEST(process_four_strings)
+{
+    lua_createtable(L, 0, 4);
+
+    lua_pushstring(L, "When meditation is mastered, The mind is unwavering like the Flame of a lamp in a windless place." );
+    lua_setfield(L, -2, "s1");
+
+    lua_pushstring(L, "In the still mind, In the depths of meditation, The Self reveals itself.");
+    lua_setfield(L, -2, "s2");
+
+    lua_pushstring(L, "Beholding the Self By means of the Self, An aspirant knows the Joy and peace of complete fulfillment.");
+    lua_setfield(L, -2, "s3");
+
+    lua_pushstring(L, "Having attained that Abiding joy beyond the senses, Revealed in the stilled mind, He never swerves from the eternal truth.");
+    lua_setfield(L, -2, "s4");
+
+    const char *s1, *s2, *s3, *s4;
+    hs_process_table(L, -1,
+		     "s1", HS_STR, hs_pt_set_string, &s1,
+		     "s2", HS_STR, hs_pt_set_string, &s2,
+		     "s3", HS_STR, hs_pt_set_string, &s3,
+		     "s4", HS_STR, hs_pt_set_string, &s4,
+		     HS_END);
+
+    mu_assert("s1 was not correctly set!",
+	      strcmp(s1, "When meditation is mastered, The mind is unwavering like the Flame of a lamp in a windless place.") == 0);
+    mu_assert("s2 was not correctly set!",
+	      strcmp(s2, "In the still mind, In the depths of meditation, The Self reveals itself.") == 0);
+    mu_assert("s3 was not correctly set!",
+	      strcmp(s3, "Beholding the Self By means of the Self, An aspirant knows the Joy and peace of complete fulfillment.") == 0);
+    mu_assert("s4 was not correctly set!",
+	      strcmp(s4, "Having attained that Abiding joy beyond the senses, Revealed in the stilled mind, He never swerves from the eternal truth.") == 0);
+    return 0;
+}
+
+
+
 /* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  *
  * test suite
@@ -373,4 +491,9 @@ void hs_process_table_tests()
     mu_run_test("process boolean, number, and string", process_bool_number_string);
     mu_run_test("process integer,  number, and string", process_int_number_string);
     mu_run_test("process basic types", process_all);
+
+    mu_run_test("process four booleans", process_four_bools);
+    mu_run_test("process four integers", process_four_ints);
+    mu_run_test("process four numbers", process_four_numbers);
+    mu_run_test("process four strings", process_four_strings);
 }