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;
    };
  }))
]