add some units

__tests__/Elements/ATest.re

@@ -0,0 +1,14 @@
+open Jest;
+
+open Rembrandt.Elements;
+
+describe("Elements: A", () =>
+  Expect.(
+    test("<a /> should create node with url", () =>
+      (<a href="url" />).attributes
+      |> List.filter(((_, value)) => value !== "")
+      |> expect
+      |> toEqual([("href", "url")])
+    )
+  )
+);

__tests__/Elements/DivTest.re

@@ -0,0 +1,30 @@
+open Jest;
+
+open Rembrandt.Elements;
+
+describe("Elements: div", () => {
+  open Expect;
+
+  let filterEmpty = List.filter(((_, value)) => value !== "");
+
+  test("<div /> should create node with class", () =>
+    (<div _class="class-value" />).attributes
+    |> filterEmpty
+    |> expect
+    |> toEqual([("class", "class-value")])
+  );
+
+  test("<div /> should create node with id", () =>
+    (<div id="id-value" />).attributes
+    |> filterEmpty
+    |> expect
+    |> toEqual([("id", "id-value")])
+  );
+
+  test("<div /> should create node with class & id", () =>
+    (<div id="id-value" _class="class-value" />).attributes
+    |> filterEmpty
+    |> expect
+    |> toEqual([("id", "id-value"), ("class", "class-value")])
+  );
+});

__tests__/Elements/TextTest.re

@@ -0,0 +1,12 @@
+open Jest;
+
+open Rembrandt.Elements;
+
+describe("Elements: Text", () => {
+  open Expect;
+
+  test("text should contains string from argument", () => {
+    text("example text").text |> expect |> toEqual("example text");
+  });
+
+});

bsconfig.json

@@ -10,6 +10,10 @@
       "dir": "__tests__",
       "type": "dev"
     },
+    {
+      "dir": "__tests__/Elements",
+      "type": "dev"
+    },
     {
       "dir": "examples",
       "type": "dev"

package-scripts.js

@@ -17,7 +17,7 @@ module.exports = {
       examples: examples.map(buildExample).join(' && '),
     },
     test: {
-      default: 'jest __tests__',
+      default: 'jest __tests__ __tests__/**/*.bs.js',
       e2e: {
         script: `node cypress/server/main.js & ./node_modules/.bin/cypress run --spec 'cypress/integration/**'`
       }

src/Elements/A.re

@@ -0,0 +1,27 @@
+open ElementFactory;
+open ElementsTypes;
+open Dom;
+
+let a =
+    (
+      ~id="",
+      ~_class="",
+      ~style="",
+      ~key="",
+      ~href="",
+      ~onClick: eventHandler=defaultHandler,
+      ~children,
+      _rest,
+    )
+    : node =>
+  generateNode(
+    ~name=A,
+    ~id,
+    ~_class,
+    ~style,
+    ~key,
+    ~href,
+    ~onClick,
+    ~children,
+    (),
+  );

src/Elements/ElementFactory.re

@@ -15,6 +15,7 @@ let generateNode =
       ~value="",
       ~action="",
       ~method="",
+      ~href="",
       ~onClick,
       ~onChange=defaultHandler,
       ~onInput=defaultHandler,
@@ -35,6 +36,7 @@ let generateNode =
       ("key", key),
       ("type", _type),
       ("value", value),
+      ("href", href),
       ("method", method),
       ("action", action),
     ],

src/Elements/ElementsTypes.re

@@ -6,7 +6,8 @@ type nodeName =
   | SPAN
   | Button
   | Input
-  | Form;
+  | Form
+  | A;
 
 type attributes = list((string, string));
 

src/Rembrandt.re

@@ -6,6 +6,7 @@ module Elements = {
   let input = Input.input;
   let text = Text.text;
   let form = FormElement.form;
+  let a = A.a;
 }
 
 module Commands = {