-
-
Notifications
You must be signed in to change notification settings - Fork 115
/
wasi_args.re
61 lines (56 loc) 路 1.42 KB
/
wasi_args.re
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
open Grain_tests.TestFramework;
open Grain_tests.Runner;
describe("wasi args and env", ({test, testSkip}) => {
let test_or_skip =
Sys.backend_type == Other("js_of_ocaml") ? testSkip : test;
let assertRun = makeRunner(test_or_skip);
let print_wasi_info = {|
from "wasi/process" include Process
from "array" include Array
from "string" include String
match (Process.argv()) {
Ok(args) => print(Array.slice(1, args)),
_ => print("Error reading args")
}
match (Process.env()) {
Ok(env) => print(env),
_ => print("Error reading env")
}
|};
assertRun(
~extra_args=[|"--", "a", "b"|],
"print_args1",
print_wasi_info,
"[> \"a\", \"b\"]\n[> ]\n",
);
assertRun(
~extra_args=[|"a", "b"|],
"print_args2",
print_wasi_info,
"[> ]\n[> ]\n",
);
assertRun(
~extra_args=[|"--env=FOO=bar", "a", "b"|],
"print_args3",
print_wasi_info,
"[> ]\n[> \"FOO=bar\"]\n",
);
assertRun(
~extra_args=[|"--env", "FOO=bar", "BAR=baz", "BAZ"|],
"print_args4",
print_wasi_info,
"[> ]\n[> \"FOO=bar\", \"BAR=baz\", \"BAZ=\"]\n",
);
assertRun(
~extra_args=[|"--env", "FOO=bar", "--", "a", "b"|],
"print_args5",
print_wasi_info,
"[> \"a\", \"b\"]\n[> \"FOO=bar\"]\n",
);
assertRun(
~extra_args=[|"--", "a", "b", "--env", "FOO=bar"|],
"print_args6",
print_wasi_info,
"[> \"a\", \"b\", \"--env\", \"FOO=bar\"]\n[> ]\n",
);
});