wasmer-napi 0.701.0

NAPI library for Wasmer WebAssembly runtime
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

#include <stdio.h>

#include "napi_test_helpers.h"

int main(void) {
  napi_env env = napi_wasm_init_env();
  CHECK_OR_FAIL(env != NULL, "napi_wasm_init_env returned NULL");

  // ---- Test napi_create_symbol with description ----
  {
    napi_value description;
    NAPI_CALL(env,
              napi_create_string_utf8(env, "my_symbol", NAPI_AUTO_LENGTH,
                                      &description));
    napi_value sym;
    NAPI_CALL(env, napi_create_symbol(env, description, &sym));

    // typeof should be napi_symbol
    napi_valuetype vtype;
    NAPI_CALL(env, napi_typeof(env, sym, &vtype));
    CHECK_OR_FAIL(vtype == napi_symbol,
                  "symbol with description: expected napi_symbol");
  }

  // ---- Test napi_create_symbol without description (NULL) ----
  {
    napi_value sym;
    NAPI_CALL(env, napi_create_symbol(env, NULL, &sym));

    napi_valuetype vtype;
    NAPI_CALL(env, napi_typeof(env, sym, &vtype));
    CHECK_OR_FAIL(vtype == napi_symbol,
                  "symbol without description: expected napi_symbol");
  }

  // ---- Test two symbols are not strict_equals ----
  {
    napi_value desc;
    NAPI_CALL(env,
              napi_create_string_utf8(env, "same_desc", NAPI_AUTO_LENGTH,
                                      &desc));

    napi_value sym1, sym2;
    NAPI_CALL(env, napi_create_symbol(env, desc, &sym1));
    NAPI_CALL(env, napi_create_symbol(env, desc, &sym2));

    bool is_equal;
    NAPI_CALL(env, napi_strict_equals(env, sym1, sym2, &is_equal));
    CHECK_OR_FAIL(!is_equal,
                  "two symbols with same description should not be equal");
  }

  // ---- Test a symbol is strict_equals to itself ----
  {
    napi_value desc;
    NAPI_CALL(env,
              napi_create_string_utf8(env, "self", NAPI_AUTO_LENGTH, &desc));

    napi_value sym;
    NAPI_CALL(env, napi_create_symbol(env, desc, &sym));

    bool is_equal;
    NAPI_CALL(env, napi_strict_equals(env, sym, sym, &is_equal));
    CHECK_OR_FAIL(is_equal,
                  "a symbol should be strict_equals to itself");
  }

  // ---- Test symbol is not equal to string with same content ----
  {
    napi_value desc;
    NAPI_CALL(env,
              napi_create_string_utf8(env, "test", NAPI_AUTO_LENGTH, &desc));

    napi_value sym;
    NAPI_CALL(env, napi_create_symbol(env, desc, &sym));

    napi_value str;
    NAPI_CALL(env,
              napi_create_string_utf8(env, "test", NAPI_AUTO_LENGTH, &str));

    bool is_equal;
    NAPI_CALL(env, napi_strict_equals(env, sym, str, &is_equal));
    CHECK_OR_FAIL(!is_equal,
                  "symbol should not be strict_equals to string");
  }

  // ---- Test symbol can be used as object property key ----
  {
    napi_value desc;
    NAPI_CALL(env,
              napi_create_string_utf8(env, "prop_key", NAPI_AUTO_LENGTH,
                                      &desc));

    napi_value sym;
    NAPI_CALL(env, napi_create_symbol(env, desc, &sym));

    napi_value obj;
    NAPI_CALL(env, napi_create_object(env, &obj));

    napi_value val;
    NAPI_CALL(env, napi_create_int32(env, 99, &val));
    NAPI_CALL(env, napi_set_property(env, obj, sym, val));

    napi_value got;
    NAPI_CALL(env, napi_get_property(env, obj, sym, &got));
    int32_t result;
    NAPI_CALL(env, napi_get_value_int32(env, got, &result));
    CHECK_OR_FAIL(result == 99,
                  "symbol property: expected value 99");
  }

  return PrintSuccess("TEST_SYMBOL");
}