mirror of https://github.com/svaarala/duktape.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
137 lines
5.2 KiB
137 lines
5.2 KiB
/*===
|
|
*** test_1 (duk_safe_call)
|
|
00: und=1 null=0 noru=1 bool=0 num=0 nan=0 str=0 obj=0 arr=0 fun=0 cfun=0 efun=0 bfun=0 call=0 thr=0 buf=0 dyn=0 fix=0 ptr=0 prim=1 objcoerc=0
|
|
01: und=0 null=1 noru=1 bool=0 num=0 nan=0 str=0 obj=0 arr=0 fun=0 cfun=0 efun=0 bfun=0 call=0 thr=0 buf=0 dyn=0 fix=0 ptr=0 prim=1 objcoerc=0
|
|
02: und=0 null=0 noru=0 bool=1 num=0 nan=0 str=0 obj=0 arr=0 fun=0 cfun=0 efun=0 bfun=0 call=0 thr=0 buf=0 dyn=0 fix=0 ptr=0 prim=1 objcoerc=1
|
|
03: und=0 null=0 noru=0 bool=1 num=0 nan=0 str=0 obj=0 arr=0 fun=0 cfun=0 efun=0 bfun=0 call=0 thr=0 buf=0 dyn=0 fix=0 ptr=0 prim=1 objcoerc=1
|
|
04: und=0 null=0 noru=0 bool=0 num=1 nan=0 str=0 obj=0 arr=0 fun=0 cfun=0 efun=0 bfun=0 call=0 thr=0 buf=0 dyn=0 fix=0 ptr=0 prim=1 objcoerc=1
|
|
05: und=0 null=0 noru=0 bool=0 num=1 nan=0 str=0 obj=0 arr=0 fun=0 cfun=0 efun=0 bfun=0 call=0 thr=0 buf=0 dyn=0 fix=0 ptr=0 prim=1 objcoerc=1
|
|
06: und=0 null=0 noru=0 bool=0 num=1 nan=1 str=0 obj=0 arr=0 fun=0 cfun=0 efun=0 bfun=0 call=0 thr=0 buf=0 dyn=0 fix=0 ptr=0 prim=1 objcoerc=1
|
|
07: und=0 null=0 noru=0 bool=0 num=1 nan=0 str=0 obj=0 arr=0 fun=0 cfun=0 efun=0 bfun=0 call=0 thr=0 buf=0 dyn=0 fix=0 ptr=0 prim=1 objcoerc=1
|
|
08: und=0 null=0 noru=0 bool=0 num=1 nan=0 str=0 obj=0 arr=0 fun=0 cfun=0 efun=0 bfun=0 call=0 thr=0 buf=0 dyn=0 fix=0 ptr=0 prim=1 objcoerc=1
|
|
09: und=0 null=0 noru=0 bool=0 num=0 nan=0 str=1 obj=0 arr=0 fun=0 cfun=0 efun=0 bfun=0 call=0 thr=0 buf=0 dyn=0 fix=0 ptr=0 prim=1 objcoerc=1
|
|
10: und=0 null=0 noru=0 bool=0 num=0 nan=0 str=1 obj=0 arr=0 fun=0 cfun=0 efun=0 bfun=0 call=0 thr=0 buf=0 dyn=0 fix=0 ptr=0 prim=1 objcoerc=1
|
|
11: und=0 null=0 noru=0 bool=0 num=0 nan=0 str=0 obj=1 arr=0 fun=0 cfun=0 efun=0 bfun=0 call=0 thr=0 buf=0 dyn=0 fix=0 ptr=0 prim=0 objcoerc=1
|
|
12: und=0 null=0 noru=0 bool=0 num=0 nan=0 str=0 obj=1 arr=1 fun=0 cfun=0 efun=0 bfun=0 call=0 thr=0 buf=0 dyn=0 fix=0 ptr=0 prim=0 objcoerc=1
|
|
13: und=0 null=0 noru=0 bool=0 num=0 nan=0 str=0 obj=1 arr=0 fun=1 cfun=1 efun=0 bfun=0 call=1 thr=0 buf=0 dyn=0 fix=0 ptr=0 prim=0 objcoerc=1
|
|
14: und=0 null=0 noru=0 bool=0 num=0 nan=0 str=0 obj=1 arr=0 fun=1 cfun=0 efun=1 bfun=0 call=1 thr=0 buf=0 dyn=0 fix=0 ptr=0 prim=0 objcoerc=1
|
|
15: und=0 null=0 noru=0 bool=0 num=0 nan=0 str=0 obj=1 arr=0 fun=1 cfun=0 efun=0 bfun=1 call=1 thr=0 buf=0 dyn=0 fix=0 ptr=0 prim=0 objcoerc=1
|
|
16: und=0 null=0 noru=0 bool=0 num=0 nan=0 str=0 obj=1 arr=0 fun=0 cfun=0 efun=0 bfun=0 call=0 thr=1 buf=0 dyn=0 fix=0 ptr=0 prim=0 objcoerc=1
|
|
17: und=0 null=0 noru=0 bool=0 num=0 nan=0 str=0 obj=0 arr=0 fun=0 cfun=0 efun=0 bfun=0 call=0 thr=0 buf=1 dyn=0 fix=1 ptr=0 prim=1 objcoerc=1
|
|
18: und=0 null=0 noru=0 bool=0 num=0 nan=0 str=0 obj=0 arr=0 fun=0 cfun=0 efun=0 bfun=0 call=0 thr=0 buf=1 dyn=1 fix=0 ptr=0 prim=1 objcoerc=1
|
|
19: und=0 null=0 noru=0 bool=0 num=0 nan=0 str=0 obj=0 arr=0 fun=0 cfun=0 efun=0 bfun=0 call=0 thr=0 buf=0 dyn=0 fix=0 ptr=1 prim=1 objcoerc=1
|
|
==> rc=0, result='undefined'
|
|
===*/
|
|
|
|
#include <math.h>
|
|
|
|
static duk_ret_t my_c_func(duk_context *ctx) {
|
|
return 0;
|
|
}
|
|
|
|
static duk_ret_t test_1(duk_context *ctx) {
|
|
duk_idx_t i, n;
|
|
|
|
/*
|
|
* push test values
|
|
*/
|
|
|
|
/* 0 */
|
|
duk_push_undefined(ctx);
|
|
|
|
/* 1 */
|
|
duk_push_null(ctx);
|
|
|
|
/* 2 */
|
|
duk_push_true(ctx);
|
|
|
|
/* 3 */
|
|
duk_push_false(ctx);
|
|
|
|
/* 4 */
|
|
duk_push_int(ctx, 123);
|
|
|
|
/* 5 */
|
|
duk_push_number(ctx, 123.4);
|
|
|
|
/* 6 */
|
|
duk_push_nan(ctx);
|
|
|
|
/* 7 */
|
|
duk_push_number(ctx, INFINITY);
|
|
|
|
/* 8 */
|
|
duk_push_number(ctx, -INFINITY);
|
|
|
|
/* 9 */
|
|
duk_push_string(ctx, "");
|
|
|
|
/* 10 */
|
|
duk_push_string(ctx, "foo");
|
|
|
|
/* 11 */
|
|
duk_push_object(ctx);
|
|
|
|
/* 12 */
|
|
duk_push_array(ctx);
|
|
|
|
/* 13 */
|
|
duk_push_c_function(ctx, my_c_func, DUK_VARARGS);
|
|
|
|
/* 14 */
|
|
duk_push_string(ctx, "(function() { print('hello'); })");
|
|
duk_eval(ctx);
|
|
|
|
/* 15 */
|
|
duk_push_string(ctx, "escape.bind(null, 'foo')");
|
|
duk_eval(ctx);
|
|
|
|
/* 16 */
|
|
duk_push_thread(ctx);
|
|
|
|
/* 17 */
|
|
duk_push_buffer(ctx, 1024, 0 /*dynamic*/);
|
|
|
|
/* 18 */
|
|
duk_push_buffer(ctx, 1024, 1 /*dynamic*/);
|
|
|
|
/* 19 */
|
|
duk_push_pointer(ctx, (void *) 0xf00);
|
|
|
|
/*
|
|
* call checkers for each
|
|
*/
|
|
|
|
n = duk_get_top(ctx);
|
|
for (i = 0; i < n; i++) {
|
|
printf("%02ld: ", (long) i);
|
|
printf(" und=%d", (int) duk_is_undefined(ctx, i));
|
|
printf(" null=%d", (int) duk_is_null(ctx, i));
|
|
printf(" noru=%d", (int) duk_is_null_or_undefined(ctx, i));
|
|
printf(" bool=%d", (int) duk_is_boolean(ctx, i));
|
|
printf(" num=%d", (int) duk_is_number(ctx, i));
|
|
printf(" nan=%d", (int) duk_is_nan(ctx, i));
|
|
printf(" str=%d", (int) duk_is_string(ctx, i));
|
|
printf(" obj=%d", (int) duk_is_object(ctx, i));
|
|
printf(" arr=%d", (int) duk_is_array(ctx, i));
|
|
printf(" fun=%d", (int) duk_is_function(ctx, i));
|
|
printf(" cfun=%d", (int) duk_is_c_function(ctx, i));
|
|
printf(" efun=%d", (int) duk_is_ecmascript_function(ctx, i));
|
|
printf(" bfun=%d", (int) duk_is_bound_function(ctx, i));
|
|
printf(" call=%d", (int) duk_is_callable(ctx, i));
|
|
printf(" thr=%d", (int) duk_is_thread(ctx, i));
|
|
printf(" buf=%d", (int) duk_is_buffer(ctx, i));
|
|
printf(" dyn=%d", (int) duk_is_dynamic_buffer(ctx, i));
|
|
printf(" fix=%d", (int) duk_is_fixed_buffer(ctx, i));
|
|
printf(" ptr=%d", (int) duk_is_pointer(ctx, i));
|
|
printf(" prim=%d", (int) duk_is_primitive(ctx, i));
|
|
printf(" objcoerc=%d", (int) duk_is_object_coercible(ctx, i));
|
|
printf("\n");
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
void test(duk_context *ctx) {
|
|
TEST_SAFE_CALL(test_1);
|
|
}
|
|
|