1/* Copyright JS Foundation and other contributors, http://js.foundation
2 *
3 * Licensed under the Apache License, Version 2.0 (the "License");
4 * you may not use this file except in compliance with the License.
5 * You may obtain a copy of the License at
6 *
7 *     http://www.apache.org/licenses/LICENSE-2.0
8 *
9 * Unless required by applicable law or agreed to in writing, software
10 * distributed under the License is distributed on an "AS IS" BASIS
11 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
12 * See the License for the specific language governing permissions and
13 * limitations under the License.
14 */
15
16#include "jerryscript.h"
17#include "test-common.h"
18#include "jerryscript-port.h"
19#include "jerryscript-port-default.h"
20#include <gtest/gtest.h>
21
22static void
23compare_str (jerry_value_t value, const jerry_char_t *str_p, size_t str_len)
24{
25  jerry_size_t size = jerry_get_string_size (value);
26  TEST_ASSERT (str_len == size);
27  JERRY_VLA (jerry_char_t, str_buff, size);
28  jerry_string_to_utf8_char_buffer (value, str_buff, size);
29  TEST_ASSERT (!memcmp (str_p, str_buff, str_len));
30} /* compare_str */
31class ApiSetAndClearErrorFlagTest : public testing::Test{
32public:
33    static void SetUpTestCase()
34    {
35        GTEST_LOG_(INFO) << "ApiSetAndClearErrorFlagTest SetUpTestCase";
36    }
37
38    static void TearDownTestCase()
39    {
40        GTEST_LOG_(INFO) << "ApiSetAndClearErrorFlagTest TearDownTestCase";
41    }
42
43    void SetUp() override {}
44    void TearDown() override {}
45
46};
47
48static constexpr size_t JERRY_SCRIPT_MEM_SIZE = 50 * 1024 * 1024;
49static void* context_alloc_fn(size_t size, void* cb_data)
50{
51    (void)cb_data;
52    size_t newSize = size > JERRY_SCRIPT_MEM_SIZE ? JERRY_SCRIPT_MEM_SIZE : size;
53    return malloc(newSize);
54}
55
56HWTEST_F(ApiSetAndClearErrorFlagTest, Test001, testing::ext::TestSize.Level1)
57{
58  jerry_context_t* ctx_p = jerry_create_context(1024 * 1024 * 50, context_alloc_fn, NULL);
59  jerry_port_default_set_current_context(ctx_p);
60
61  TEST_INIT ();
62
63  jerry_init (JERRY_INIT_EMPTY);
64
65  jerry_value_t obj_val = jerry_create_object ();
66  obj_val = jerry_create_error_from_value (obj_val, true);
67  jerry_value_t err_val = jerry_acquire_value (obj_val);
68
69  obj_val = jerry_get_value_from_error (err_val, true);
70
71  TEST_ASSERT (obj_val != err_val);
72  jerry_release_value (err_val);
73  jerry_release_value (obj_val);
74
75  const jerry_char_t pterodactylus[] = "Pterodactylus";
76  const size_t pterodactylus_size = sizeof (pterodactylus) - 1;
77
78  jerry_value_t str = jerry_create_string (pterodactylus);
79  jerry_value_t error = jerry_create_error_from_value (str, true);
80  str = jerry_get_value_from_error (error, true);
81
82  compare_str (str, pterodactylus, pterodactylus_size);
83  jerry_release_value (str);
84
85  str = jerry_create_string (pterodactylus);
86  error = jerry_create_error_from_value (str, false);
87  jerry_release_value (str);
88  str = jerry_get_value_from_error (error, true);
89
90  compare_str (str, pterodactylus, pterodactylus_size);
91  jerry_release_value (str);
92
93  str = jerry_create_string (pterodactylus);
94  error = jerry_create_abort_from_value (str, true);
95  str = jerry_get_value_from_error (error, true);
96
97  compare_str (str, pterodactylus, pterodactylus_size);
98  jerry_release_value (str);
99
100  str = jerry_create_string (pterodactylus);
101  error = jerry_create_abort_from_value (str, false);
102  jerry_release_value (str);
103  str = jerry_get_value_from_error (error, true);
104
105  compare_str (str, pterodactylus, pterodactylus_size);
106  jerry_release_value (str);
107
108  str = jerry_create_string (pterodactylus);
109  error = jerry_create_error_from_value (str, true);
110  error = jerry_create_abort_from_value (error, true);
111  TEST_ASSERT (jerry_value_is_abort (error));
112  str = jerry_get_value_from_error (error, true);
113
114  compare_str (str, pterodactylus, pterodactylus_size);
115  jerry_release_value (str);
116
117  str = jerry_create_string (pterodactylus);
118  error = jerry_create_error_from_value (str, true);
119  jerry_value_t error2 = jerry_create_abort_from_value (error, false);
120  TEST_ASSERT (jerry_value_is_abort (error2));
121  jerry_release_value (error);
122  str = jerry_get_value_from_error (error2, true);
123
124  compare_str (str, pterodactylus, pterodactylus_size);
125  jerry_release_value (str);
126
127  double test_num = 3.1415926;
128  jerry_value_t num = jerry_create_number (test_num);
129  jerry_value_t num2 = jerry_create_error_from_value (num, false);
130  TEST_ASSERT (jerry_value_is_error (num2));
131  jerry_release_value (num);
132  num2 = jerry_get_value_from_error (num2, true);
133  TEST_ASSERT (jerry_get_number_value (num2) == test_num);
134  jerry_release_value (num2);
135
136  num = jerry_create_number (test_num);
137  num2 = jerry_create_error_from_value (num, true);
138  TEST_ASSERT (jerry_value_is_error (num2));
139  num2 = jerry_get_value_from_error (num2, true);
140  TEST_ASSERT (jerry_get_number_value (num2) == test_num);
141  jerry_release_value (num2);
142
143  num = jerry_create_number (test_num);
144  num2 = jerry_create_error_from_value (num, false);
145  TEST_ASSERT (jerry_value_is_error (num2));
146  jerry_release_value (num);
147  jerry_value_t num3 = jerry_create_error_from_value (num2, false);
148  TEST_ASSERT (jerry_value_is_error (num3));
149  jerry_release_value (num2);
150  num2 = jerry_get_value_from_error (num3, true);
151  TEST_ASSERT (jerry_get_number_value (num2) == test_num);
152  jerry_release_value (num2);
153
154  num = jerry_create_number (test_num);
155  num2 = jerry_create_error_from_value (num, true);
156  TEST_ASSERT (jerry_value_is_error (num2));
157  num3 = jerry_create_error_from_value (num2, true);
158  TEST_ASSERT (jerry_value_is_error (num3));
159  num2 = jerry_get_value_from_error (num3, true);
160  TEST_ASSERT (jerry_get_number_value (num2) == test_num);
161  jerry_release_value (num2);
162
163  num = jerry_create_number (test_num);
164  error = jerry_create_abort_from_value (num, true);
165  TEST_ASSERT (jerry_value_is_abort (error));
166  num2 = jerry_create_error_from_value (error, true);
167  TEST_ASSERT (jerry_value_is_error (num2));
168  num = jerry_get_value_from_error (num2, true);
169  TEST_ASSERT (jerry_get_number_value (num) == test_num);
170  jerry_release_value (num);
171
172  num = jerry_create_number (test_num);
173  error = jerry_create_abort_from_value (num, false);
174  jerry_release_value (num);
175  TEST_ASSERT (jerry_value_is_abort (error));
176  num2 = jerry_create_error_from_value (error, true);
177  TEST_ASSERT (jerry_value_is_error (num2));
178  num = jerry_get_value_from_error (num2, true);
179  TEST_ASSERT (jerry_get_number_value (num) == test_num);
180  jerry_release_value (num);
181
182  num = jerry_create_number (test_num);
183  error = jerry_create_abort_from_value (num, true);
184  TEST_ASSERT (jerry_value_is_abort (error));
185  num2 = jerry_create_error_from_value (error, false);
186  jerry_release_value (error);
187  TEST_ASSERT (jerry_value_is_error (num2));
188  num = jerry_get_value_from_error (num2, true);
189  TEST_ASSERT (jerry_get_number_value (num) == test_num);
190  jerry_release_value (num);
191
192  num = jerry_create_number (test_num);
193  error = jerry_create_abort_from_value (num, false);
194  jerry_release_value (num);
195  TEST_ASSERT (jerry_value_is_abort (error));
196  num2 = jerry_create_error_from_value (error, false);
197  jerry_release_value (error);
198  TEST_ASSERT (jerry_value_is_error (num2));
199  num = jerry_get_value_from_error (num2, true);
200  TEST_ASSERT (jerry_get_number_value (num) == test_num);
201  jerry_release_value (num);
202
203  jerry_value_t value = jerry_create_number (42);
204  value = jerry_get_value_from_error (value, true);
205  jerry_release_value (value);
206
207  value = jerry_create_number (42);
208  jerry_value_t value2 = jerry_get_value_from_error (value, false);
209  jerry_release_value (value);
210  jerry_release_value (value2);
211
212  value = jerry_create_number (42);
213  error = jerry_create_error_from_value (value, true);
214  error = jerry_create_error_from_value (error, true);
215  jerry_release_value (error);
216
217  value = jerry_create_number (42);
218  error = jerry_create_abort_from_value (value, true);
219  error = jerry_create_abort_from_value (error, true);
220  jerry_release_value (error);
221
222  value = jerry_create_number (42);
223  error = jerry_create_error_from_value (value, true);
224  error2 = jerry_create_error_from_value (error, false);
225  jerry_release_value (error);
226  jerry_release_value (error2);
227
228  value = jerry_create_number (42);
229  error = jerry_create_abort_from_value (value, true);
230  error2 = jerry_create_abort_from_value (error, false);
231  jerry_release_value (error);
232  jerry_release_value (error2);
233
234  jerry_cleanup ();
235  free(ctx_p);
236}
237