this repo has no description
Add bin package and fix node tests
+40
-12
+1
-1
bin/dune
+1
-1
bin/dune
+30
js_top_worker-bin.opam
+30
js_top_worker-bin.opam
···
1
+
version: "0.0.1"
2
+
opam-version: "2.0"
3
+
maintainer: "jon@recoil.org"
4
+
authors: "various"
5
+
license: "ISC"
6
+
homepage: "https://github.com/jonludlam/js_top_worker"
7
+
bug-reports: "https://github.com/jonludlam/js_top_worker/issues"
8
+
depends: [
9
+
"eio"
10
+
"eio_main"
11
+
"bos"
12
+
"opam-format"
13
+
"findlib"
14
+
"logs"
15
+
"fmt"
16
+
"ocaml"
17
+
"dune" {>= "2.9.1"}
18
+
"js_of_ocaml" {>= "3.11.0"}
19
+
"astring"
20
+
"js_top_worker" {= version}
21
+
"js_top_worker-rpc" {= version}
22
+
]
23
+
build : [
24
+
["dune" "subst"] {pinned}
25
+
["dune" "build" "-p" name "-j" jobs]
26
+
]
27
+
synopsis: "JS Toplevel worker web"
28
+
description: """
29
+
An OCaml toplevel designed to run as a web worker
30
+
"""
+9
-11
test/node/node_test.ml
+9
-11
test/node/node_test.ml
···
1
1
(* Unix worker *)
2
2
open Js_top_worker
3
+
open Js_top_worker_rpc.Toplevel_api_gen
3
4
open Impl
4
5
5
6
let capture : (unit -> 'a) -> unit -> Impl.captured * 'a =
···
73
74
let _ =
74
75
let rpc = start_server () in
75
76
let ( let* ) = IdlM.ErrM.bind in
76
-
let init =
77
+
let init_config =
77
78
Js_top_worker_rpc.Toplevel_api_gen.
78
79
{ stdlib_dcs = None; findlib_requires = [ "stringext" ]; execute = false }
79
80
in
80
81
let x =
81
-
let* _ = Client.init rpc init in
82
-
let* o = Client.setup rpc () in
82
+
let open Client in
83
+
let* _ = init rpc init_config in
84
+
let* o = setup rpc () in
83
85
Logs.info (fun m ->
84
86
m "setup output: %s" (Option.value ~default:"" o.stdout));
85
-
let* _ =
86
-
Client.query_errors rpc (Some "c1") [] false "typ xxxx = int;;\n"
87
-
in
87
+
let* _ = query_errors rpc (Some "c1") [] false "typ xxxx = int;;\n" in
88
88
let* o1 =
89
-
Client.query_errors rpc (Some "c2") [ "c1" ] false "type yyy = xxx;;\n"
89
+
query_errors rpc (Some "c2") [ "c1" ] false "type yyy = xxx;;\n"
90
90
in
91
91
Logs.info (fun m -> m "Number of errors: %d" (List.length o1));
92
-
let* _ =
93
-
Client.query_errors rpc (Some "c1") [] false "type xxx = int;;\n"
94
-
in
92
+
let* _ = query_errors rpc (Some "c1") [] false "type xxx = int;;\n" in
95
93
let* o2 =
96
-
Client.query_errors rpc (Some "c2") [ "c1" ] false "type yyy = xxx;;\n"
94
+
query_errors rpc (Some "c2") [ "c1" ] false "type yyy = xxx;;\n"
97
95
in
98
96
Logs.info (fun m -> m "Number of errors1: %d" (List.length o1));
99
97
Logs.info (fun m -> m "Number of errors2: %d" (List.length o2));