nixite/testing/html.test.nix

let
  html = import ../nixite/html.nix;
  it = import ./it.nix;
in
  with html; [
    (it "makes a p tag" {
      actual = tag "p" {} "Hello";
      expected = {
        tag = "p";
        attrs = {};
        child = "Hello";
        __toString = toHTML;
      };
    })

    (it "concatinates classes" {
      actual = toString (tag "p" {class = ["class1" "class2"];} "Hello");
      expected = ''<p class="class1 class2">Hello</p>'';
    })

    (it "applies style" (let
      page = tag "html" {} [(tag "head" {} ["foo"])];
    in {
      actual = addToHead page ["bar"];
      expected = {
        tag = "html";
        attrs = {};
        child = [(tag "head" {} ["foo" "bar"])];
        __toString = toHTML;
      };
    }))
  ]