forked from svaarala/duktape
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathtest-eval-string.c
More file actions
130 lines (105 loc) · 3.7 KB
/
test-eval-string.c
File metadata and controls
130 lines (105 loc) · 3.7 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
/*===
*** test_string (duk_safe_call)
Hello world!
return value is: 123.000000
result is: 'TESTSTRING'
Hello world!
return value is: 123 (rc=0)
return value is: Error: eval error (rc=1)
return value is: SyntaxError: invalid object literal (line 1, end of input) (rc=1)
top=0
Hello world!
top=0
Hello world!
no result, rc=0
top=0
no result, rc=1
top: 0
==> rc=0, result='undefined'
*** test_lstring (duk_safe_call)
Hello world!
return value is: 123.000000
result is: 'TESTSTRING'
Hello world!
return value is: 123 (rc=0)
return value is: Error: eval error (rc=1)
return value is: SyntaxError: invalid object literal (line 1, end of input) (rc=1)
top=0
Hello world!
top=0
Hello world!
no result, rc=0
top=0
no result, rc=1
top: 0
==> rc=0, result='undefined'
===*/
static duk_ret_t test_string(duk_context *ctx, void *udata) {
duk_int_t rc;
(void) udata;
duk_eval_string(ctx, "print('Hello world!'); 123;");
printf("return value is: %lf\n", duk_get_number(ctx, -1));
duk_pop(ctx);
duk_eval_string(ctx, "'testString'.toUpperCase()");
printf("result is: '%s'\n", duk_get_string(ctx, -1));
duk_pop(ctx);
rc = duk_peval_string(ctx, "print('Hello world!'); 123;");
printf("return value is: %s (rc=%ld)\n", duk_safe_to_string(ctx, -1), (long) rc);
duk_pop(ctx);
rc = duk_peval_string(ctx, "throw new Error('eval error');");
printf("return value is: %s (rc=%ld)\n", duk_safe_to_string(ctx, -1), (long) rc);
duk_pop(ctx);
rc = duk_peval_string(ctx, "throw new Error('eval error'); obj = {");
printf("return value is: %s (rc=%ld)\n", duk_safe_to_string(ctx, -1), (long) rc);
duk_pop(ctx);
/* noresult variants */
printf("top=%ld\n", (long) duk_get_top(ctx));
duk_eval_string_noresult(ctx, "print('Hello world!'); 123;");
printf("top=%ld\n", (long) duk_get_top(ctx));
rc = duk_peval_string_noresult(ctx, "print('Hello world!'); 123;");
printf("no result, rc=%ld\n", (long) rc);
printf("top=%ld\n", (long) duk_get_top(ctx));
rc = duk_peval_string_noresult(ctx, "print('Hello world!'); obj = {");
printf("no result, rc=%ld\n", (long) rc);
printf("top: %ld\n", (long) duk_get_top(ctx));
return 0;
}
static duk_ret_t test_lstring(duk_context *ctx, void *udata) {
duk_int_t rc;
const char *src1 = "print('Hello world!'); 123;@";
const char *src2 = "'testString'.toUpperCase()@";
const char *src3 = "throw new Error('eval error');@";
const char *src4 = "throw new Error('eval error'); obj = {@";
const char *src5 = "print('Hello world!'); obj = {@";
(void) udata;
duk_eval_lstring(ctx, src1, strlen(src1) - 1);
printf("return value is: %lf\n", duk_get_number(ctx, -1));
duk_pop(ctx);
duk_eval_lstring(ctx, src2, strlen(src2) - 1);
printf("result is: '%s'\n", duk_get_string(ctx, -1));
duk_pop(ctx);
rc = duk_peval_lstring(ctx, src1, strlen(src1) - 1);
printf("return value is: %s (rc=%ld)\n", duk_safe_to_string(ctx, -1), (long) rc);
duk_pop(ctx);
rc = duk_peval_lstring(ctx, src3, strlen(src3) - 1);
printf("return value is: %s (rc=%ld)\n", duk_safe_to_string(ctx, -1), (long) rc);
duk_pop(ctx);
rc = duk_peval_lstring(ctx, src4, strlen(src4) - 1);
printf("return value is: %s (rc=%ld)\n", duk_safe_to_string(ctx, -1), (long) rc);
duk_pop(ctx);
/* noresult variants */
printf("top=%ld\n", (long) duk_get_top(ctx));
duk_eval_lstring_noresult(ctx, src1, strlen(src1) - 1);
printf("top=%ld\n", (long) duk_get_top(ctx));
rc = duk_peval_lstring_noresult(ctx, src1, strlen(src1) - 1);
printf("no result, rc=%ld\n", (long) rc);
printf("top=%ld\n", (long) duk_get_top(ctx));
rc = duk_peval_lstring_noresult(ctx, src5, strlen(src5) - 1);
printf("no result, rc=%ld\n", (long) rc);
printf("top: %ld\n", (long) duk_get_top(ctx));
return 0;
}
void test(duk_context *ctx) {
TEST_SAFE_CALL(test_string);
TEST_SAFE_CALL(test_lstring);
}