|
| 1 | +open Binaryen; |
| 2 | +open Frame_work; |
| 3 | + |
| 4 | +suite("Export", () => { |
| 5 | + let create_test_func = (wasm_mod, name) => { |
| 6 | + Function.add_function( |
| 7 | + wasm_mod, |
| 8 | + name, |
| 9 | + Type.none, |
| 10 | + Type.none, |
| 11 | + [||], |
| 12 | + Expression.Nop.make(wasm_mod), |
| 13 | + ); |
| 14 | + }; |
| 15 | + test("AddFunctionExport", () => { |
| 16 | + let wasm_mod = Module.create(); |
| 17 | + let internal_name = "ExportedFunc"; |
| 18 | + let _ = create_test_func(wasm_mod, internal_name); |
| 19 | + let _ = Export.add_function_export(wasm_mod, internal_name, "funcExport"); |
| 20 | + Printf.printf("%s", Module.write_text(wasm_mod)); |
| 21 | + Module.dispose(wasm_mod); |
| 22 | + }); |
| 23 | + test("AddTableExport", () => { |
| 24 | + let wasm_mod = Module.create(); |
| 25 | + let internal_name = "ExportedTable"; |
| 26 | + let _ = Table.add_table(wasm_mod, internal_name, 0, 1, Type.funcref); |
| 27 | + let _ = Export.add_table_export(wasm_mod, internal_name, "tableExport"); |
| 28 | + Printf.printf("%s", Module.write_text(wasm_mod)); |
| 29 | + Module.dispose(wasm_mod); |
| 30 | + }); |
| 31 | + test("AddMemoryExport", () => { |
| 32 | + let wasm_mod = Module.create(); |
| 33 | + let internal_name = "ExportedMemory"; |
| 34 | + // Note: By default memories are exported |
| 35 | + let _ = |
| 36 | + Memory.set_memory( |
| 37 | + wasm_mod, |
| 38 | + 1, |
| 39 | + Memory.unlimited, |
| 40 | + "DefaultMemoryExport", |
| 41 | + [], |
| 42 | + false, |
| 43 | + false, |
| 44 | + internal_name, |
| 45 | + ); |
| 46 | + let _ = Export.add_memory_export(wasm_mod, internal_name, "memoryExport"); |
| 47 | + Printf.printf("%s", Module.write_text(wasm_mod)); |
| 48 | + Module.dispose(wasm_mod); |
| 49 | + }); |
| 50 | + test("AddGlobalExport", () => { |
| 51 | + let wasm_mod = Module.create(); |
| 52 | + let internal_name = "ExportedGlobal"; |
| 53 | + let _ = |
| 54 | + Global.add_global( |
| 55 | + wasm_mod, |
| 56 | + internal_name, |
| 57 | + Type.int32, |
| 58 | + false, |
| 59 | + Expression.Const.make(wasm_mod, Literal.int32(1l)), |
| 60 | + ); |
| 61 | + let _ = Export.add_global_export(wasm_mod, internal_name, "globalExport"); |
| 62 | + Printf.printf("%s", Module.write_text(wasm_mod)); |
| 63 | + Module.dispose(wasm_mod); |
| 64 | + }); |
| 65 | + test("GetNumExports", () => { |
| 66 | + let wasm_mod = Module.create(); |
| 67 | + let internal_name = "ExportedFunc"; |
| 68 | + let _ = create_test_func(wasm_mod, internal_name); |
| 69 | + assert(Export.get_num_exports(wasm_mod) == 0); |
| 70 | + let _ = Export.add_function_export(wasm_mod, internal_name, "funcExport"); |
| 71 | + assert(Export.get_num_exports(wasm_mod) == 1); |
| 72 | + Module.dispose(wasm_mod); |
| 73 | + }); |
| 74 | + test("RemoveExport", () => { |
| 75 | + let wasm_mod = Module.create(); |
| 76 | + let internal_name = "ExportedFunc"; |
| 77 | + let export_name = "funcExport"; |
| 78 | + let _ = create_test_func(wasm_mod, internal_name); |
| 79 | + let _ = Export.add_function_export(wasm_mod, internal_name, export_name); |
| 80 | + assert(Export.get_num_exports(wasm_mod) == 1); |
| 81 | + Export.remove_export(wasm_mod, export_name); |
| 82 | + assert(Export.get_num_exports(wasm_mod) == 0); |
| 83 | + Module.dispose(wasm_mod); |
| 84 | + }); |
| 85 | + test("GetName", () => { |
| 86 | + let wasm_mod = Module.create(); |
| 87 | + let internal_name = "ExportedFunc"; |
| 88 | + let export_name = "funcExport"; |
| 89 | + let _ = create_test_func(wasm_mod, internal_name); |
| 90 | + let test_export = |
| 91 | + Export.add_function_export(wasm_mod, internal_name, export_name); |
| 92 | + assert(Export.get_name(test_export) == export_name); |
| 93 | + Module.dispose(wasm_mod); |
| 94 | + }); |
| 95 | + test("GetExport", () => { |
| 96 | + let wasm_mod = Module.create(); |
| 97 | + let internal_name = "ExportedFunc"; |
| 98 | + let export_name = "funcExport"; |
| 99 | + let _ = create_test_func(wasm_mod, internal_name); |
| 100 | + let _ = Export.add_function_export(wasm_mod, internal_name, export_name); |
| 101 | + let fetched_export = Export.get_export(wasm_mod, export_name); |
| 102 | + assert(Export.get_name(fetched_export) == export_name); |
| 103 | + Module.dispose(wasm_mod); |
| 104 | + }); |
| 105 | + test("GetExportByIndex", () => { |
| 106 | + let wasm_mod = Module.create(); |
| 107 | + let internal_name1 = "ExportedFunc"; |
| 108 | + let export_name1 = "funcExport1"; |
| 109 | + let internal_name2 = "ExportedFunc2"; |
| 110 | + let export_name2 = "funcExport2"; |
| 111 | + let _ = create_test_func(wasm_mod, internal_name1); |
| 112 | + let _ = create_test_func(wasm_mod, internal_name2); |
| 113 | + let _ = |
| 114 | + Export.add_function_export(wasm_mod, internal_name1, export_name1); |
| 115 | + let _ = |
| 116 | + Export.add_function_export(wasm_mod, internal_name2, export_name2); |
| 117 | + let fetched_export1 = Export.get_export_by_index(wasm_mod, 0); |
| 118 | + let fetched_export2 = Export.get_export_by_index(wasm_mod, 1); |
| 119 | + assert(Export.get_name(fetched_export1) == export_name1); |
| 120 | + assert(Export.get_name(fetched_export2) == export_name2); |
| 121 | + Module.dispose(wasm_mod); |
| 122 | + }); |
| 123 | + test("GetValue", () => { |
| 124 | + let wasm_mod = Module.create(); |
| 125 | + let internal_name = "ExportedFunc"; |
| 126 | + let export_name = "funcExport"; |
| 127 | + let _ = create_test_func(wasm_mod, internal_name); |
| 128 | + let test_export = |
| 129 | + Export.add_function_export(wasm_mod, internal_name, export_name); |
| 130 | + assert(Export.get_value(test_export) == internal_name); |
| 131 | + Module.dispose(wasm_mod); |
| 132 | + }); |
| 133 | + test("GetKind", () => { |
| 134 | + let wasm_mod = Module.create(); |
| 135 | + // Function Export |
| 136 | + let _ = create_test_func(wasm_mod, "ExportedFunc"); |
| 137 | + let func_export = |
| 138 | + Export.add_function_export(wasm_mod, "ExportedFunc", "funcExport"); |
| 139 | + assert(Export.export_get_kind(func_export) == Export.external_function); |
| 140 | + // Table Export |
| 141 | + let _ = Table.add_table(wasm_mod, "ExportedTable", 0, 1, Type.funcref); |
| 142 | + let table_export = |
| 143 | + Export.add_table_export(wasm_mod, "ExportedTable", "tableExport"); |
| 144 | + assert(Export.export_get_kind(table_export) == Export.external_table); |
| 145 | + // Memory Export |
| 146 | + let _ = |
| 147 | + Memory.set_memory( |
| 148 | + wasm_mod, |
| 149 | + 1, |
| 150 | + Memory.unlimited, |
| 151 | + "DefaultMemoryExport", |
| 152 | + [], |
| 153 | + false, |
| 154 | + false, |
| 155 | + "ExportedMemory", |
| 156 | + ); |
| 157 | + let memory_export = |
| 158 | + Export.add_memory_export(wasm_mod, "ExportedMemory", "memoryExport"); |
| 159 | + assert(Export.export_get_kind(memory_export) == Export.external_memory); |
| 160 | + // Global Export |
| 161 | + let _ = |
| 162 | + Global.add_global( |
| 163 | + wasm_mod, |
| 164 | + "ExportedGlobal", |
| 165 | + Type.int32, |
| 166 | + false, |
| 167 | + Expression.Const.make(wasm_mod, Literal.int32(1l)), |
| 168 | + ); |
| 169 | + let global_export = |
| 170 | + Export.add_global_export(wasm_mod, "ExportedGlobal", "globalExport"); |
| 171 | + assert(Export.export_get_kind(global_export) == Export.external_global); |
| 172 | + // TODO(#264): Can't test Tag export until tags are implemented |
| 173 | + Module.dispose(wasm_mod); |
| 174 | + }); |
| 175 | +}); |
0 commit comments