salty_test.exs

defmodule SaltyTest do
  use ExUnit.Case
  doctest Salty

  alias Salty.Multipart, as: Multi
  alias Salty.Random, as: Rand

  test "auth" do
    prim = Salty.Auth.primitive()

    input = <<"test input">>
    {:ok, key} = Rand.buf(prim.keybytes())

    {:ok, auth} = prim.auth(input, key)
    :ok = prim.verify(auth, input, key)

    {:ok, auth_multi} = prim
                        |> Multi.init(key)
                        |> Multi.update(input)
                        |> Multi.final()

    :ok = prim
          |> Multi.init(key)
          |> Multi.update(input)
          |> Multi.final_verify(auth_multi)
  end

  test "auth_hmacsha256" do
    input = <<"test input">>

    {:ok, key} = Rand.buf(Salty.Auth.Hmacsha256.keybytes())

    {:ok, auth} = Salty.Auth.Hmacsha256.auth(input, key)
    :ok = Salty.Auth.Hmacsha256.verify(auth, input, key)

    {:ok, auth_multi} = Salty.Auth.Hmacsha256
                        |> Multi.init(key)
                        |> Multi.update(input)
                        |> Multi.final()

    :ok = Salty.Auth.Hmacsha256
          |> Multi.init(key)
          |> Multi.update(input)
          |> Multi.final_verify(auth_multi)
  end

  test "auth_hmacsha512" do
    input = <<"test input">>
    {:ok, key} = Rand.buf(Salty.Auth.Hmacsha512.keybytes())

    {:ok, auth} = Salty.Auth.Hmacsha512.auth(input, key)
    :ok = Salty.Auth.Hmacsha512.verify(auth, input, key)

    {:ok, auth_multi} = Salty.Auth.Hmacsha512
                        |> Multi.init(key)
                        |> Multi.update(input)
                        |> Multi.final()

    :ok = Salty.Auth.Hmacsha512
          |> Multi.init(key)
          |> Multi.update(input)
          |> Multi.final_verify(auth_multi)
  end

  test "auth_hmacsha512256" do
    input = <<"test input">>
    {:ok, key} = Rand.buf(Salty.Auth.Hmacsha512256.keybytes())

    {:ok, auth} = Salty.Auth.Hmacsha512256.auth(input, key)
    :ok = Salty.Auth.Hmacsha512256.verify(auth, input, key)

    {:ok, auth_multi} = Salty.Auth.Hmacsha512256
                        |> Multi.init(key)
                        |> Multi.update(input)
                        |> Multi.final()

    :ok = Salty.Auth.Hmacsha512256
          |> Multi.init(key)
          |> Multi.update(input)
          |> Multi.final_verify(auth_multi)
  end

  test "onetimeauth" do
    prim = Salty.Onetimeauth.primitive()

    input = <<"test input">>
    {:ok, key} = Rand.buf(prim.keybytes())

    {:ok, auth} = prim.auth(input, key)
    :ok = prim.verify(auth, input, key)

    {:ok, auth_multi} = prim
                        |> Multi.init(key)
                        |> Multi.update(input)
                        |> Multi.final()

    :ok = prim
          |> Multi.init(key)
          |> Multi.update(input)
          |> Multi.final_verify(auth_multi)
  end

  test "onetimeauth_poly1305" do
    input = <<"test input">>

    {:ok, key} = Rand.buf(Salty.Onetimeauth.Poly1305.keybytes())

    {:ok, auth} = Salty.Onetimeauth.Poly1305.auth(input, key)
    :ok = Salty.Onetimeauth.Poly1305.verify(auth, input, key)

    {:ok, auth_multi} = Salty.Onetimeauth.Poly1305
                        |> Multi.init(key)
                        |> Multi.update(input)
                        |> Multi.final()

    :ok = Salty.Onetimeauth.Poly1305
          |> Multi.init(key)
          |> Multi.update(input)
          |> Multi.final_verify(auth_multi)
  end

  test "issue#9 ed25519_keypair returns triplet" do
    {:ok, pk, sk} = Salty.Sign.Ed25519.keypair()
    assert Salty.Sign.Ed25519.sk_to_pk(sk) == pk
  end

  test "issue#9 ed25519_seed_keypair returns triplet" do
    {:ok, seed} = Rand.buf(Salty.Sign.Ed25519.seedbytes())
    {:ok, pk, sk} = Salty.Sign.Ed25519.seed_keypair(seed)
    assert Salty.Sign.Ed25519.sk_to_pk(sk) == pk
  end

end