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
19 static void
compare_str(jerry_value_t value,const jerry_char_t * str_p,size_t str_len)20 compare_str (jerry_value_t value, const jerry_char_t *str_p, size_t str_len)
21 {
22 jerry_size_t size = jerry_get_string_size (value);
23 TEST_ASSERT (str_len == size);
24 JERRY_VLA (jerry_char_t, str_buff, size);
25 jerry_string_to_utf8_char_buffer (value, str_buff, size);
26 TEST_ASSERT (!memcmp (str_p, str_buff, str_len));
27 } /* compare_str */
28
29 int
main(void)30 main (void)
31 {
32 TEST_INIT ();
33
34 jerry_init (JERRY_INIT_EMPTY);
35
36 jerry_value_t obj_val = jerry_create_object ();
37 obj_val = jerry_create_error_from_value (obj_val, true);
38 jerry_value_t err_val = jerry_acquire_value (obj_val);
39
40 obj_val = jerry_get_value_from_error (err_val, true);
41
42 TEST_ASSERT (obj_val != err_val);
43 jerry_release_value (err_val);
44 jerry_release_value (obj_val);
45
46 const jerry_char_t pterodactylus[] = "Pterodactylus";
47 const size_t pterodactylus_size = sizeof (pterodactylus) - 1;
48
49 jerry_value_t str = jerry_create_string (pterodactylus);
50 jerry_value_t error = jerry_create_error_from_value (str, true);
51 str = jerry_get_value_from_error (error, true);
52
53 compare_str (str, pterodactylus, pterodactylus_size);
54 jerry_release_value (str);
55
56 str = jerry_create_string (pterodactylus);
57 error = jerry_create_error_from_value (str, false);
58 jerry_release_value (str);
59 str = jerry_get_value_from_error (error, true);
60
61 compare_str (str, pterodactylus, pterodactylus_size);
62 jerry_release_value (str);
63
64 str = jerry_create_string (pterodactylus);
65 error = jerry_create_abort_from_value (str, true);
66 str = jerry_get_value_from_error (error, true);
67
68 compare_str (str, pterodactylus, pterodactylus_size);
69 jerry_release_value (str);
70
71 str = jerry_create_string (pterodactylus);
72 error = jerry_create_abort_from_value (str, false);
73 jerry_release_value (str);
74 str = jerry_get_value_from_error (error, true);
75
76 compare_str (str, pterodactylus, pterodactylus_size);
77 jerry_release_value (str);
78
79 str = jerry_create_string (pterodactylus);
80 error = jerry_create_error_from_value (str, true);
81 error = jerry_create_abort_from_value (error, true);
82 TEST_ASSERT (jerry_value_is_abort (error));
83 str = jerry_get_value_from_error (error, true);
84
85 compare_str (str, pterodactylus, pterodactylus_size);
86 jerry_release_value (str);
87
88 str = jerry_create_string (pterodactylus);
89 error = jerry_create_error_from_value (str, true);
90 jerry_value_t error2 = jerry_create_abort_from_value (error, false);
91 TEST_ASSERT (jerry_value_is_abort (error2));
92 jerry_release_value (error);
93 str = jerry_get_value_from_error (error2, true);
94
95 compare_str (str, pterodactylus, pterodactylus_size);
96 jerry_release_value (str);
97
98 double test_num = 3.1415926;
99 jerry_value_t num = jerry_create_number (test_num);
100 jerry_value_t num2 = jerry_create_error_from_value (num, false);
101 TEST_ASSERT (jerry_value_is_error (num2));
102 jerry_release_value (num);
103 num2 = jerry_get_value_from_error (num2, true);
104 TEST_ASSERT (jerry_get_number_value (num2) == test_num);
105 jerry_release_value (num2);
106
107 num = jerry_create_number (test_num);
108 num2 = jerry_create_error_from_value (num, true);
109 TEST_ASSERT (jerry_value_is_error (num2));
110 num2 = jerry_get_value_from_error (num2, true);
111 TEST_ASSERT (jerry_get_number_value (num2) == test_num);
112 jerry_release_value (num2);
113
114 num = jerry_create_number (test_num);
115 num2 = jerry_create_error_from_value (num, false);
116 TEST_ASSERT (jerry_value_is_error (num2));
117 jerry_release_value (num);
118 jerry_value_t num3 = jerry_create_error_from_value (num2, false);
119 TEST_ASSERT (jerry_value_is_error (num3));
120 jerry_release_value (num2);
121 num2 = jerry_get_value_from_error (num3, true);
122 TEST_ASSERT (jerry_get_number_value (num2) == test_num);
123 jerry_release_value (num2);
124
125 num = jerry_create_number (test_num);
126 num2 = jerry_create_error_from_value (num, true);
127 TEST_ASSERT (jerry_value_is_error (num2));
128 num3 = jerry_create_error_from_value (num2, true);
129 TEST_ASSERT (jerry_value_is_error (num3));
130 num2 = jerry_get_value_from_error (num3, true);
131 TEST_ASSERT (jerry_get_number_value (num2) == test_num);
132 jerry_release_value (num2);
133
134 num = jerry_create_number (test_num);
135 error = jerry_create_abort_from_value (num, true);
136 TEST_ASSERT (jerry_value_is_abort (error));
137 num2 = jerry_create_error_from_value (error, true);
138 TEST_ASSERT (jerry_value_is_error (num2));
139 num = jerry_get_value_from_error (num2, true);
140 TEST_ASSERT (jerry_get_number_value (num) == test_num);
141 jerry_release_value (num);
142
143 num = jerry_create_number (test_num);
144 error = jerry_create_abort_from_value (num, false);
145 jerry_release_value (num);
146 TEST_ASSERT (jerry_value_is_abort (error));
147 num2 = jerry_create_error_from_value (error, true);
148 TEST_ASSERT (jerry_value_is_error (num2));
149 num = jerry_get_value_from_error (num2, true);
150 TEST_ASSERT (jerry_get_number_value (num) == test_num);
151 jerry_release_value (num);
152
153 num = jerry_create_number (test_num);
154 error = jerry_create_abort_from_value (num, true);
155 TEST_ASSERT (jerry_value_is_abort (error));
156 num2 = jerry_create_error_from_value (error, false);
157 jerry_release_value (error);
158 TEST_ASSERT (jerry_value_is_error (num2));
159 num = jerry_get_value_from_error (num2, true);
160 TEST_ASSERT (jerry_get_number_value (num) == test_num);
161 jerry_release_value (num);
162
163 num = jerry_create_number (test_num);
164 error = jerry_create_abort_from_value (num, false);
165 jerry_release_value (num);
166 TEST_ASSERT (jerry_value_is_abort (error));
167 num2 = jerry_create_error_from_value (error, false);
168 jerry_release_value (error);
169 TEST_ASSERT (jerry_value_is_error (num2));
170 num = jerry_get_value_from_error (num2, true);
171 TEST_ASSERT (jerry_get_number_value (num) == test_num);
172 jerry_release_value (num);
173
174 jerry_value_t value = jerry_create_number (42);
175 value = jerry_get_value_from_error (value, true);
176 jerry_release_value (value);
177
178 value = jerry_create_number (42);
179 jerry_value_t value2 = jerry_get_value_from_error (value, false);
180 jerry_release_value (value);
181 jerry_release_value (value2);
182
183 value = jerry_create_number (42);
184 error = jerry_create_error_from_value (value, true);
185 error = jerry_create_error_from_value (error, true);
186 jerry_release_value (error);
187
188 value = jerry_create_number (42);
189 error = jerry_create_abort_from_value (value, true);
190 error = jerry_create_abort_from_value (error, true);
191 jerry_release_value (error);
192
193 value = jerry_create_number (42);
194 error = jerry_create_error_from_value (value, true);
195 error2 = jerry_create_error_from_value (error, false);
196 jerry_release_value (error);
197 jerry_release_value (error2);
198
199 value = jerry_create_number (42);
200 error = jerry_create_abort_from_value (value, true);
201 error2 = jerry_create_abort_from_value (error, false);
202 jerry_release_value (error);
203 jerry_release_value (error2);
204
205 jerry_cleanup ();
206 } /* main */
207