htpasswd

defmodule HtpasswdTest do
  use ExUnit.Case
  alias Apache.Htpasswd, as: H

  @htfile "test/htfile"

  test "check/2" do
    assert H.check("plaintext:plaintext", @htfile) == true
    assert H.check("plaintext:xxx", @htfile) == false
    assert H.check("plaintext:", @htfile) == false

    assert H.check("crypt:crypt", @htfile) == true
    assert H.check("crypt:xxx", @htfile) == false
    assert H.check("crypt:", @htfile) == false

    assert H.check("md5:md5", @htfile) == true
    assert H.check("md5:xxx", @htfile) == false
    assert H.check("md5:", @htfile) == false

    assert H.check("default:default", @htfile) == true
    assert H.check("default:xxx", @htfile) == false
    assert H.check("default:", @htfile) == false

    assert H.check("sha:sha", @htfile) == true
    assert H.check("sha:xxx", @htfile) == false
    assert H.check("sha:", @htfile) == false

    assert H.check("ghost:ghost", @htfile) == false
    assert H.check("ghost:", @htfile) == false
  end

  test "encode/3" do
    plaintext = H.encode("plaintext", "plaintext", :plaintext)
    assert H.check("plaintext:plaintext", plaintext)

    crypt = H.encode("crypt", "crypt", :crypt)
    assert H.check("crypt:crypt", crypt)

    md5 = H.encode("md5", "md5", :md5)
    assert H.check("md5:md5", md5)

    sha = H.encode("sha", "sha", :sha)
    assert H.check("sha:sha", sha)

    default = H.encode("default", "default")
    assert H.check("default:default", default)
  end
  
  test "add/4" do
    tmp_file = Path.join System.tmp_dir!, "htpasswd_test"
    assert {:ok, _str} = H.add("user", "pass", tmp_file, :md5)
    assert H.check("user:pass", tmp_file) == true
  end

  test "rm/3" do
    tmp_file = Path.join System.tmp_dir!, "htpasswd_test"
    assert {:ok, _str} = H.add("newuser", "newpass", tmp_file)
    assert :ok = H.rm("newuser", tmp_file)
  end
    


end