Move test bindings to a dedicate module

Author: jihchi

src/App.res

@@ -28,7 +28,11 @@ let make = () => {
       <a className="App-link" href="https://reactjs.org" target="_blank" rel="noopener noreferrer">
         {React.string("Learn React")}
       </a>
-      <a className="App-link" href="https://rescript-lang.org/" target="_blank" rel="noopener noreferrer">
+      <a
+        className="App-link"
+        href="https://rescript-lang.org/"
+        target="_blank"
+        rel="noopener noreferrer">
         {React.string("Learn ReScript")}
       </a>
     </header>

src/__tests__/App.test.res

@@ -1,23 +1,9 @@
-type assertions
-type result
+open TestBindings.Mocha
+open TestBindings.Chai
+open TestBindings.ReactTestingLibrary
 
-@module("@testing-library/react") external render: React.element => result = "render"
-
-@module("@testing-library/react") external getNodeText: Dom.element => string = "getNodeText"
-
-@module("@testing-library/react") @val external screen: result = "screen"
-
-@send external getByText: (result, string) => Dom.element = "getByText"
-
-@module("chai") external chaiAssert: assertions = "assert"
-
-@send external equal: (assertions, 'a, 'a) => unit = "equal"
-
-@val external it: (string, @uncurry (unit => unit)) => unit = "it"
-
-it("renders learn react link", () => {
+it("renders learn React and ReScript link", () => {
   let _ = render(<App />)
-  let actual = screen->getByText("Learn React")->getNodeText
-  let expected = "Learn React"
-  chaiAssert->equal(actual, expected)
+  screen->getByText("Learn React")->isOk
+  screen->getByText("Learn ReScript")->isOk
 })

src/__tests__/TestBindings.res

@@ -0,0 +1,14 @@
+module ReactTestingLibrary = {
+  type renderResult
+  @module("@testing-library/react") external render: React.element => renderResult = "render"
+  @module("@testing-library/react") @val external screen: renderResult = "screen"
+  @send external getByText: (renderResult, string) => Dom.element = "getByText"
+}
+
+module Chai = {
+  @module("chai") @scope("assert") external isOk: 'a => unit = "isOk"
+}
+
+module Mocha = {
+  @val external it: (string, @uncurry (unit => unit)) => unit = "it"
+}