module Polysemy.Account.Api.Test.AuthForAccountTest where

import Data.UUID (UUID)
import qualified Polysemy.Db as Db
import Polysemy.Db (Query)
import Polysemy.Db (DbError)
import qualified Polysemy.Db.Effect.Store as Store
import Polysemy.Db (QStore)
import Polysemy.Hasql (interpretTable)
import Polysemy.Hasql (interpretStoreDb)
import Polysemy.Hasql.Test.Run (integrationTest)
import Polysemy.Test (UnitTest, assertEq)
import Sqel (Uid (Uid), Uuid, primAs)
import qualified Sqel.Data.Uid as Uid
import Sqel.Query (checkQuery)

import Polysemy.Account.Data.AccountAuth (AccountAuth (AccountAuth))
import Polysemy.Account.Data.AuthForAccount (AuthForAccount (AuthForAccount))
import qualified Polysemy.Account.Db.Dd as Dd
import Polysemy.Account.Db.Interpreter.AuthForAccount (interpretQueryAuthForAccountDb)

test_authForAccount :: UnitTest
test_authForAccount =
  integrationTest "polysemy_account_db" "polysemy-account" $
  interpretTable ts $
  interpretStoreDb ts (checkQuery (primAs @"id") Dd.accountAuth) $
  interpretQueryAuthForAccountDb do
    restop @DbError @(QStore _ _ _) $ restop @DbError @(Query _ _) do
      Store.insert (Uid (u 1) (AccountAuth (u 5) "account 1" "password 1" Nothing))
      Store.insert auth2
      Store.insert auth3
      assertEq target =<< Db.query (AuthForAccount (u 6))
  where
    target :: [Uuid (AccountAuth UUID)]
    target = [auth2, auth3]
    auth2 = Uid (u 2) (AccountAuth (u 6) "account 2" "password 2" Nothing)
    auth3 = Uid (u 3) (AccountAuth (u 6) "account 2" "password 3" Nothing)
    u = Uid.intUUID
    ts = Dd.accountAuthSchema