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.
89 lines
1.8 KiB
89 lines
1.8 KiB
/*===
|
|
*** test_1 (duk_safe_call)
|
|
string: foo (7)
|
|
string: foo
|
|
string: (0)
|
|
string:
|
|
==> rc=0, result='undefined'
|
|
*** test_2 (duk_safe_call)
|
|
==> rc=1, result='TypeError: not string'
|
|
*** test_3 (duk_safe_call)
|
|
==> rc=1, result='TypeError: not string'
|
|
*** test_4 (duk_safe_call)
|
|
==> rc=1, result='TypeError: not string'
|
|
===*/
|
|
|
|
static void dump_string(const char *p) {
|
|
printf("string:%s%s\n", (strlen(p) == 0 ? "" : " "), p);
|
|
}
|
|
|
|
static void dump_string_size(const char *p, duk_size_t sz) {
|
|
printf("string:%s%s (%ld)\n", (strlen(p) == 0 ? "" : " "), p, (long) sz);
|
|
}
|
|
|
|
static duk_ret_t test_1(duk_context *ctx) {
|
|
const char *p;
|
|
duk_size_t sz;
|
|
|
|
duk_set_top(ctx, 0);
|
|
duk_push_lstring(ctx, "foo\0bar", 7);
|
|
duk_push_string(ctx, "");
|
|
|
|
sz = (duk_size_t) 0xdeadbeef;
|
|
p = duk_require_lstring(ctx, 0, &sz);
|
|
dump_string_size(p, sz);
|
|
|
|
sz = (duk_size_t) 0xdeadbeef;
|
|
p = duk_require_lstring(ctx, 0, NULL);
|
|
dump_string(p);
|
|
|
|
sz = (duk_size_t) 0xdeadbeef;
|
|
p = duk_require_lstring(ctx, 1, &sz);
|
|
dump_string_size(p, sz);
|
|
|
|
sz = (duk_size_t) 0xdeadbeef;
|
|
p = duk_require_lstring(ctx, 1, NULL);
|
|
dump_string(p);
|
|
return 0;
|
|
}
|
|
|
|
static duk_ret_t test_2(duk_context *ctx) {
|
|
const char *p;
|
|
duk_size_t sz;
|
|
|
|
duk_set_top(ctx, 0);
|
|
duk_push_null(ctx);
|
|
|
|
p = duk_require_lstring(ctx, 0, &sz);
|
|
printf("string: %s (%ld)\n", p, (long) sz);
|
|
return 0;
|
|
}
|
|
|
|
static duk_ret_t test_3(duk_context *ctx) {
|
|
const char *p;
|
|
duk_size_t sz;
|
|
|
|
duk_set_top(ctx, 0);
|
|
|
|
p = duk_require_lstring(ctx, 0, &sz);
|
|
printf("string: %s (%ld)\n", p, (long) sz);
|
|
return 0;
|
|
}
|
|
|
|
static duk_ret_t test_4(duk_context *ctx) {
|
|
const char *p;
|
|
duk_size_t sz;
|
|
|
|
duk_set_top(ctx, 0);
|
|
|
|
p = duk_require_lstring(ctx, DUK_INVALID_INDEX, &sz);
|
|
printf("string: %s (%ld)\n", p, (long) sz);
|
|
return 0;
|
|
}
|
|
|
|
void test(duk_context *ctx) {
|
|
TEST_SAFE_CALL(test_1);
|
|
TEST_SAFE_CALL(test_2);
|
|
TEST_SAFE_CALL(test_3);
|
|
TEST_SAFE_CALL(test_4);
|
|
}
|
|
|