purescript_linked_in/test/Utils.purs

module Test.Utils where

import Prelude

import Control.Monad.Except (runExceptT)
import Data.Date (Month)
import Data.Either (Either(..))
import Data.Int (toNumber)
import Data.Maybe (fromJust)
import Data.Traversable (class Traversable, traverse)
import Effect.Aff (Aff)
import Effect.Class (liftEffect)
import LinkedIn.CanBeQueried (class CanBeQueried)
import LinkedIn.DetachedNode (DetachedNode)
import LinkedIn.Extractible (class Extractible)
import LinkedIn.Output (Output, OutputError, detachNodes, run)
import LinkedIn.UI.Basic.Parser (toYear)
import LinkedIn.UI.Basic.Types (MonthYear(..))
import LinkedIn.UI.Elements.Parser (toUIElement)
import LinkedIn.UI.Elements.Types (UIElement)
import Node.JsDom (jsDomFromFile, jsDomParse)
import Partial.Unsafe (unsafePartial)
import Type.Proxy (Proxy)
import Web.DOM (Document)

toMonthYear' :: Month -> Int -> MonthYear
toMonthYear' m y = MonthYear m y' where
  y' = unsafePartial $ fromJust $ toYear $ toNumber y

fromDetachedToUI ∷ ∀ t. Traversable t ⇒ t DetachedNode → Either String (t UIElement)
fromDetachedToUI el = case traverse toUIElement el of
  Left _ -> Left "error on conversion to UI element"
  Right ui -> Right ui

detachFromFile :: forall t.
  Traversable t
  => CanBeQueried Document t
  => Proxy t
  -> String
  -> Aff (Either OutputError (t DetachedNode))
detachFromFile proxy filePath = do
  dom <- liftEffect $ jsDomFromFile filePath
  liftEffect $ runExceptT $ detachNodes proxy dom

detachFromString :: forall t.
  Traversable t
  => CanBeQueried Document t
  => Proxy t
  -> String
  -> Aff (Either OutputError (t DetachedNode))
detachFromString proxy string = do
  dom <- liftEffect $ jsDomParse string
  liftEffect $ runExceptT $ detachNodes proxy dom

getOutputFromFile :: forall t.
  Traversable t
  => Extractible t
  => CanBeQueried Document t
  => Proxy t
  -> String
  -> Aff (Either OutputError Output)
getOutputFromFile proxy string = do
  dom <- liftEffect $ jsDomFromFile string
  liftEffect $ runExceptT $ run proxy dom