forked from rescript-lang/rescript-react
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathReactTestUtils.res
More file actions
133 lines (106 loc) · 4.24 KB
/
ReactTestUtils.res
File metadata and controls
133 lines (106 loc) · 4.24 KB
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
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
type undefined = Js.undefined<unit>
let undefined: undefined = Js.Undefined.empty
@bs.module("react-dom/test-utils")
external reactAct: ((. unit) => undefined) => unit = "act"
let act: (unit => unit) => unit = func => {
let reactFunc = (. ()) => {
func()
undefined
}
reactAct(reactFunc)
}
@bs.module("react-dom/test-utils")
external reactActAsync: ((. unit) => Js.Promise.t<'a>) => Js.Promise.t<unit> = "act"
let actAsync = func => {
let reactFunc = (. ()) => func()
reactActAsync(reactFunc)
}
@bs.module("react-dom/test-utils")
external isElement: 'element => bool = "isElement"
@bs.module("react-dom/test-utils")
external isElementOfType: ('element, React.component<'props>) => bool = "isElementOfType"
@bs.module("react-dom/test-utils")
external isDOMComponent: 'element => bool = "isDOMComponent"
@bs.module("react-dom/test-utils")
external isCompositeComponent: 'element => bool = "isCompositeComponent"
@bs.module("react-dom/test-utils")
external isCompositeComponentWithType: ('element, React.component<'props>) => bool =
"isCompositeComponentWithType"
module Simulate = {
@bs.module("react-dom/test-utils") @bs.scope("Simulate")
external click: Dom.element => unit = "click"
@bs.module("react-dom/test-utils") @bs.scope("Simulate")
external clickWithEvent: (Dom.element, 'event) => unit = "click"
@bs.module("react-dom/test-utils") @bs.scope("Simulate")
external change: Dom.element => unit = "change"
@bs.module("react-dom/test-utils") @bs.scope("Simulate")
external blur: Dom.element => unit = "blur"
@bs.module("react-dom/test-utils") @bs.scope("Simulate")
external changeWithEvent: (Dom.element, 'event) => unit = "change"
let changeWithValue = (element, value) => {
let event = {
"target": {
"value": value,
},
}
changeWithEvent(element, event)
}
let changeWithChecked = (element, value) => {
let event = {
"target": {
"checked": value,
},
}
changeWithEvent(element, event)
}
@bs.module("react-dom/test-utils") @bs.scope("Simulate")
external canPlay: Dom.element => unit = "canPlay"
@bs.module("react-dom/test-utils") @bs.scope("Simulate")
external timeUpdate: Dom.element => unit = "timeUpdate"
@bs.module("react-dom/test-utils") @bs.scope("Simulate")
external ended: Dom.element => unit = "ended"
@bs.module("react-dom/test-utils") @bs.scope("Simulate")
external focus: Dom.element => unit = "focus"
}
@bs.val external document: Dom.document = "document"
@bs.send
external querySelector: (Dom.element, string) => option<Dom.element> = "querySelector"
@bs.send
external querySelectorAll: (Dom.element, string) => Js.Array.array_like<Dom.element> =
"querySelectorAll"
@bs.get external textContent: Dom.element => string = "textContent"
@bs.get external body: Dom.document => option<Dom.element> = "body"
@bs.send
external createElement: (Dom.document, string) => Dom.element = "createElement"
@bs.send external remove: Dom.element => unit = "remove"
@bs.send
external appendChild: (Dom.element, Dom.element) => Dom.element = "appendChild"
let querySelectorAll = (element, string) => Js.Array.from(querySelectorAll(element, string))
module DOM = {
open Belt
@bs.return(nullable) @bs.get
external value: Dom.element => option<string> = "value"
let findBySelector = (element, selector) => querySelector(element, selector)
let findByAllSelector = (element, selector) => querySelectorAll(element, selector)
let findBySelectorAndTextContent = (element, selector, content) =>
querySelectorAll(element, selector)->Array.getBy(node => node->textContent === content)
let findBySelectorAndPartialTextContent = (element, selector, content) =>
querySelectorAll(element, selector)->Array.getBy(node =>
node->textContent->Js.String2.includes(content)
)
}
let prepareContainer = (container: ref<option<Dom.element>>, ()) => {
open Belt
let containerElement = document->createElement("div")
let _ = document->body->Option.map(body => body->appendChild(containerElement))
container := Some(containerElement)
}
let cleanupContainer = (container: ref<option<Dom.element>>, ()) => {
open Belt
let _ = container.contents->Option.map(remove)
container := None
}
let getContainer = container => {
open Belt
container.contents->Option.getExn
}