Fix deleting native pointers (#4570)

JerryScript-DCO-1.0-Signed-off-by: Zoltan Herczeg zherczeg.u-szeged@partner.samsung.com
2021-02-05 19:35:30 +01:00
parent ca6c2194bb
commit b1f73e698a
4 changed files with 179 additions and 49 deletions
@@ -0,0 +1,118 @@
+ /* Copyright JS Foundation and other contributors, http://js.foundation
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+#include "jerryscript.h"
+
+#include "test-common.h"
+
+static int global_int = 4;
+static void *global_p = (void *) &global_int;
+static int global_counter = 0;
+
+static void
+native_free_callback (void *native_p) /**< native pointer */
+{
+  (void) native_p;
+  global_counter++;
+} /* native_free_callback */
+
+static const jerry_object_native_info_t native_info_1 =
+{
+  .free_cb = native_free_callback,
+};
+
+static const jerry_object_native_info_t native_info_2 =
+{
+  .free_cb = NULL,
+};
+
+static void
+check_native_info (jerry_value_t object_value, /**< object value */
+                   const jerry_object_native_info_t *native_info_p, /**< native info */
+                   void *expected_pointer_p) /**< expected pointer */
+{
+  void *native_pointer_p;
+  TEST_ASSERT (jerry_get_object_native_pointer (object_value, &native_pointer_p, native_info_p));
+  TEST_ASSERT (native_pointer_p == expected_pointer_p);
+} /* check_native_info */
+
+int
+main (void)
+{
+  TEST_INIT ();
+  jerry_init (JERRY_INIT_EMPTY);
+
+  jerry_value_t object_value = jerry_create_object ();
+
+  jerry_set_object_native_pointer (object_value, global_p, &native_info_1);
+  jerry_set_object_native_pointer (object_value, NULL, &native_info_2);
+
+  check_native_info (object_value, &native_info_1, global_p);
+  check_native_info (object_value, &native_info_2, NULL);
+
+  jerry_release_value (object_value);
+
+  jerry_gc (JERRY_GC_PRESSURE_HIGH);
+  TEST_ASSERT (global_counter == 1);
+  global_counter = 0;
+
+  object_value = jerry_create_object ();
+
+  jerry_set_object_native_pointer (object_value, global_p, &native_info_1);
+  jerry_set_object_native_pointer (object_value, NULL, &native_info_2);
+
+  TEST_ASSERT (jerry_delete_object_native_pointer (object_value, &native_info_1));
+
+  TEST_ASSERT (!jerry_get_object_native_pointer (object_value, NULL, &native_info_1));
+  check_native_info (object_value, &native_info_2, NULL);
+
+  TEST_ASSERT (!jerry_delete_object_native_pointer (object_value, &native_info_1));
+
+  TEST_ASSERT (!jerry_get_object_native_pointer (object_value, NULL, &native_info_1));
+  check_native_info (object_value, &native_info_2, NULL);
+
+  TEST_ASSERT (jerry_delete_object_native_pointer (object_value, &native_info_2));
+
+  TEST_ASSERT (!jerry_get_object_native_pointer (object_value, NULL, &native_info_1));
+  TEST_ASSERT (!jerry_get_object_native_pointer (object_value, NULL, &native_info_2));
+
+  jerry_set_object_native_pointer (object_value, NULL, &native_info_1);
+
+  check_native_info (object_value, &native_info_1, NULL);
+  TEST_ASSERT (!jerry_get_object_native_pointer (object_value, NULL, &native_info_2));
+
+  jerry_set_object_native_pointer (object_value, global_p, &native_info_2);
+
+  check_native_info (object_value, &native_info_1, NULL);
+  check_native_info (object_value, &native_info_2, global_p);
+
+  jerry_set_object_native_pointer (object_value, global_p, &native_info_1);
+
+  check_native_info (object_value, &native_info_1, global_p);
+  check_native_info (object_value, &native_info_2, global_p);
+
+  TEST_ASSERT (jerry_delete_object_native_pointer (object_value, &native_info_1));
+  TEST_ASSERT (jerry_delete_object_native_pointer (object_value, &native_info_2));
+
+  TEST_ASSERT (!jerry_get_object_native_pointer (object_value, NULL, &native_info_1));
+  TEST_ASSERT (!jerry_get_object_native_pointer (object_value, NULL, &native_info_2));
+
+  jerry_release_value (object_value);
+
+  jerry_cleanup ();
+
+  TEST_ASSERT (global_counter == 0);
+  return 0;
+} /* main */