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.
 
 
 
 
 
 

124 lines
4.7 KiB

/*===
*** test_1 (duk_safe_call)
object with own properties only, enum with get_value=0
key: '1'
key: 'foo'
key: 'bar'
key: 'quux'
key: '2'
object with own properties only, enum with get_value=1
key: '1', value: '1'
key: 'foo', value: '2'
key: 'bar', value: '3'
key: 'quux', value: '4'
key: '2', value: '5'
object with inherited, enumerable properties, enum with get_value=1
key: 'foo', value: 'bar'
key: 'parent', value: 'inherited'
object with own non-enumerable properties, enum with get_value=1, don't enum inherited properties
- enum only enumerable own properties
key: 'enumerable_prop', value: '123'
- enum all own properties
key: 'enumerable_prop', value: '123'
key: 'nonenumerable_prop', value: '234'
object with string and array index keys, enum with get_value=1
- enum array indices only, not sorted
key: '999', value: 'val2'
key: '1', value: 'val3'
key: '123', value: 'val4'
key: '234', value: 'val5'
key: '2', value: 'val6'
- enum array indices only, sorted
key: '1', value: 'val3'
key: '2', value: 'val6'
key: '123', value: 'val4'
key: '234', value: 'val5'
key: '999', value: 'val2'
final top: 0
==> rc=0, result='undefined'
===*/
/* basic enum success cases */
static duk_ret_t test_1(duk_context *ctx) {
duk_set_top(ctx, 0);
printf("object with own properties only, enum with get_value=0\n");
duk_eval_string(ctx, "({ 1: 1, foo: 2, bar: 3, quux: 4, 2: 5 })");
duk_enum(ctx, -1, 0 /*enum_flags*/); /* [ obj enum ] */
while (duk_next(ctx, -1 /*enum_index*/, 0 /*get_value*/)) {
printf("key: '%s'\n", duk_get_string(ctx, -1));
duk_pop(ctx);
}
duk_pop_2(ctx);
printf("object with own properties only, enum with get_value=1\n");
duk_eval_string(ctx, "({ 1: 1, foo: 2, bar: 3, quux: 4, 2: 5 })");
duk_enum(ctx, -1, 0 /*enum_flags*/); /* [ obj enum ] */
while (duk_next(ctx, -1 /*enum_index*/, 1 /*get_value*/)) {
printf("key: '%s', value: '%s'\n", duk_get_string(ctx, -2), duk_to_string(ctx, -1));
duk_pop_2(ctx);
}
duk_pop(ctx);
duk_pop(ctx);
printf("object with inherited, enumerable properties, enum with get_value=1\n");
duk_eval_string(ctx, "(function () { var o = Object.create({ parent: 'inherited' }); o.foo = 'bar'; return o; })()");
duk_enum(ctx, -1, 0 /*enum_flags*/); /* [ obj enum ] */
while (duk_next(ctx, -1 /*enum_index*/, 1 /*get_value*/)) {
printf("key: '%s', value: '%s'\n", duk_get_string(ctx, -2), duk_to_string(ctx, -1));
duk_pop_2(ctx);
}
duk_pop(ctx);
duk_pop(ctx);
printf("object with own non-enumerable properties, enum with get_value=1, don't enum inherited properties\n");
duk_eval_string(ctx, "(function () { var o = Object.create({ parent: 'inherited' }); "
"Object.defineProperty(o, 'enumerable_prop', { value: 123, writable: true, enumerable: true, configurable: true}); "
"Object.defineProperty(o, 'nonenumerable_prop', { value: 234, writable: true, enumerable: false, configurable: true}); "
" return o; })()");
printf("- enum only enumerable own properties\n");
duk_enum(ctx, -1, DUK_ENUM_OWN_PROPERTIES_ONLY /*enum_flags*/); /* [ obj enum ] */
while (duk_next(ctx, -1 /*enum_index*/, 1 /*get_value*/)) {
printf("key: '%s', value: '%s'\n", duk_get_string(ctx, -2), duk_to_string(ctx, -1));
duk_pop_2(ctx);
}
duk_pop(ctx);
printf("- enum all own properties\n");
duk_enum(ctx, -1, DUK_ENUM_OWN_PROPERTIES_ONLY | DUK_ENUM_INCLUDE_NONENUMERABLE /*enum_flags*/); /* [ obj enum ] */
while (duk_next(ctx, -1 /*enum_index*/, 1 /*get_value*/)) {
printf("key: '%s', value: '%s'\n", duk_get_string(ctx, -2), duk_to_string(ctx, -1));
duk_pop_2(ctx);
}
duk_pop(ctx);
duk_pop(ctx);
printf("object with string and array index keys, enum with get_value=1\n");
duk_eval_string(ctx, "({ foo: 'val1', 999: 'val2', 1: 'val3', 123: 'val4', 234: 'val5', 2: 'val6', bar: 'val7' })");
printf("- enum array indices only, not sorted\n");
duk_enum(ctx, -1, DUK_ENUM_ARRAY_INDICES_ONLY /*enum_flags*/); /* [ obj enum ] */
while (duk_next(ctx, -1 /*enum_index*/, 1 /*get_value*/)) {
printf("key: '%s', value: '%s'\n", duk_get_string(ctx, -2), duk_to_string(ctx, -1));
duk_pop_2(ctx);
}
duk_pop(ctx);
printf("- enum array indices only, sorted\n");
duk_enum(ctx, -1, DUK_ENUM_ARRAY_INDICES_ONLY | DUK_ENUM_SORT_ARRAY_INDICES /*enum_flags*/); /* [ obj enum ] */
while (duk_next(ctx, -1 /*enum_index*/, 1 /*get_value*/)) {
printf("key: '%s', value: '%s'\n", duk_get_string(ctx, -2), duk_to_string(ctx, -1));
duk_pop_2(ctx);
}
duk_pop(ctx);
duk_pop(ctx);
/* XXX: there is no test for DUK_ENUM_INCLUDE_INTERNAL now,
* this is a bit difficult because internal properties are
* not exposed or stable.
*/
printf("final top: %ld\n", (long) duk_get_top(ctx));
return 0;
}
void test(duk_context *ctx) {
TEST_SAFE_CALL(test_1);
}