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(..))

jobsUnifiedTopCardSpec :: Spec Unit
jobsUnifiedTopCardSpec = do
  describe "Jobs top card parsing" do
    it "reads well as a JobOfferPage DetachedNode" do
      topCard <- detachFromFile (Proxy :: Proxy JobOfferPage) "test/examples/job_offer.html"

      topCard `shouldEqual` Right(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
            ))
          ))
        })
      }))

    it "reads the JobOffer" do
      jobOffer <- getOutputFromFile (Proxy :: Proxy JobOfferPage) "test/examples/job_offer.html"

      jobOffer `shouldEqual` Right (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"
      }))