purescript_linked_in/test/JobsUnifiedTopCard.purs

module Test.JobsUnifiedTopCard where

import Prelude

import Data.Either (Either(..))
import Data.List (List(..), (:))
import Data.List.NonEmpty (NonEmptyList(..))
import Data.Maybe (Maybe(..))
import Data.NonEmpty (NonEmpty(..))
import LinkedIn.DetachedNode (DetachedNode(..))
import LinkedIn.Jobs.JobOffer (JobOffer(..))
import LinkedIn.Output.Types (Output(..))
import LinkedIn.Page.JobOffer (JobOfferPage(..))
import LinkedIn.UI.Basic.Types (JobFlexibility(..))
import LinkedIn.UI.Components.JobsUnifiedTopCard (JobsUnifiedTopCardElement(..), TopCardAction(..), TopCardInsight(..), TopCardInsightContent(..), TopCardPrimaryDescription(..), TopCardSecondaryInsight(..))
import Test.Spec (Spec, describe, it)
import Test.Spec.Assertions (shouldEqual)
import Test.Utils (detachFromFile, getOutputFromFile)
import Type.Proxy (Proxy(..))

type TestCase a = { detached ∷ a DetachedNode , filePath ∷ String , output ∷ Output }

jobOfferPage_3786945580 ∷ TestCase JobOfferPage
jobOfferPage_3786945580 = {
  filePath: "test/examples/job_offer_3786945580.html",
  detached: JobOfferPage (JobsUnifiedTopCardElement {
    actions: (Just (NonEmptyList (NonEmpty (TopCardActionButton
      (DetachedButton {
        classes: ("jobs-apply-button" : "artdeco-button" : "artdeco-button--3" : "artdeco-button--primary" : "ember-view" : Nil),
        content: "Candidature simplifiée",
        role: Nothing
      }))
      ((TopCardActionButton (DetachedButton {
        classes: ("jobs-save-button" : "artdeco-button" : "artdeco-button--3" : "artdeco-button--secondary" : Nil),
        content: "Enregistrer Enregistrer Data Engineer H/F - Secteur Energie chez LINCOLN",
        role: Nothing
      })) : Nil)
    ))),
    header: (DetachedElement {
      classes: ("t-24" : "t-bold" : "job-details-jobs-unified-top-card__job-title" : Nil),
      content: "Data Engineer H/F - Secteur Energie",
      id: Nothing,
      tag: "H1"
    }),
    insights: (Just (NonEmptyList (NonEmpty (TopCardInsight {
        content: (TopCardInsightContentSecondary {
          primary: (DetachedElement {classes: Nil, content: "Sur site", id: Nothing, tag: "SPAN"}),
          secondary: (NonEmptyList (NonEmpty (TopCardSecondaryInsightNested
            (DetachedElement {classes: Nil, content: "Temps plein", id: Nothing, tag: "SPAN"}))
            ((TopCardSecondaryInsightPlain
            (DetachedElement {classes: ("job-details-jobs-unified-top-card__job-insight-view-model-secondary" : Nil), content: "Confirmé", id: Nothing,tag: "SPAN" })) : Nil))
          )
        }),
        icon: DetachedLiIcon "job"
      }) ((TopCardInsight {
          content: (TopCardInsightContentSingle (
            DetachedElement {classes: Nil, content: "201-500 employés · Technologies et services de l’information", id: Nothing, tag: "SPAN" }
          )),
          icon: DetachedLiIcon "company"
        }) : (TopCardInsight {
            content: (TopCardInsightContentSingle (
              DetachedElement {classes: Nil, content: "2 anciens élèves travaillent ici", id: Nothing, tag: "SPAN" }
            )),
            icon: DetachedLiIcon "people"
            }) : (TopCardInsight {
              content: (TopCardInsightContentSingle (
                DetachedElement {classes: Nil, content: "Découvrez comment vous vous positionnez par rapport à 87 candidats. Essai Premium pour 0 EUR", id: Nothing, tag: "SPAN" })),
              icon: (DetachedSvgElement { dataTestIcon: (Just "lightbulb-medium"), id: Nothing, tag: "svg" })
            }) : (TopCardInsight {
              content: (TopCardInsightContentButton (
                DetachedButton {classes: ("job-details-jobs-unified-top-card__job-insight-text-button" : Nil), content: "9 compétences sur 11 correspondent à votre profil, vous pourriez bien convenir pour ce poste", role: Nothing}
              )),
              icon: (DetachedSvgElement { dataTestIcon: (Just "checklist-medium"), id: Nothing, tag: "svg" })
            }) : Nil)))),
    primaryDescription: (TopCardPrimaryDescription {
      link: (DetachedA { content: "LINCOLN", href: "https://www.linkedin.com/company/lincoln-/life" }),
      text: (DetachedText "· Boulogne-Billancourt, Île-de-France, France"),
      tvmText: (Just (NonEmptyList (NonEmpty (
        DetachedElement {classes: ("tvm__text" : "tvm__text--neutral" : Nil), content: "il y a 2 semaines", id: Nothing, tag: "SPAN"})
        ((DetachedElement {classes: ("tvm__text" : "tvm__text--neutral" : Nil), content: "·", id: Nothing, tag: "SPAN"})
          : (DetachedElement {classes: ("tvm__text" : "tvm__text--neutral" : Nil), content: "87 candidats", id: Nothing, tag: "SPAN"})
          : Nil
        ))
      ))
    })
  }),
  output: OutJobOffer (JobOffer {
    companyDomain: (Just "Technologies et services de l’information"),
    companyLink: "https://www.linkedin.com/company/lincoln-/life",
    companyName: "LINCOLN",
    companySize: (Just "201-500 employés"),
    hasSimplifiedApplicationProcess: true,
    location: (Just "Boulogne-Billancourt, Île-de-France, France"),
    flexibility: (Just JobFlexOnSite),
    title: "Data Engineer H/F - Secteur Energie"
  })
}

jobsUnifiedTopCardSpec :: Spec Unit
jobsUnifiedTopCardSpec = do
  describe "Jobs top card parsing" do
    it "reads well as a JobOfferPage DetachedNode" do
      topCard <- detachFromFile (Proxy :: Proxy JobOfferPage) jobOfferPage_3786945580.filePath
      topCard `shouldEqual` Right(jobOfferPage_3786945580.detached)

    it "reads the JobOffer" do
      jobOffer <- getOutputFromFile (Proxy :: Proxy JobOfferPage) jobOfferPage_3786945580.filePath
      jobOffer `shouldEqual` Right (jobOfferPage_3786945580.output)