Add test for JobsUnifiedTopCard

src/LinkedIn/JobsUnifiedTopCard.purs

@@ -8,7 +8,6 @@ import Data.Generic.Rep (class Generic)
 import Data.List.Types (NonEmptyList(..))
 import Data.Maybe (Maybe(..))
 import Data.Show.Generic (genericShow)
-import Debug (trace)
 import LinkedIn (DetachedNode(..))
 import LinkedIn.Types (ParseError(..), Parser)
 import LinkedIn.Utils (detachNonEmptyTextChild, parseDetachedNode, queryAndDetachMany, queryAndDetachOne, queryManyAndParse, queryOneAndParse)

test/JobsUnifiedTopCard.purs

@@ -0,0 +1,161 @@
+module Test.JobsUnifiedTopCard where
+
+import LinkedIn.JobsUnifiedTopCard
+import Prelude
+
+import Data.Date (Month(..))
+import Data.Either (Either(..))
+import Data.List (List(..), (:))
+import Data.List.NonEmpty (NonEmptyList(..))
+import Data.List.NonEmpty as NEL
+import Data.Maybe (Maybe(..), isJust)
+import Data.NonEmpty (NonEmpty(..))
+import Effect (Effect)
+import LinkedIn (DetachedNode(..), LinkedInUIElement(..), getJobsUnifiedTopCard)
+import LinkedIn.Profile.WorkExperience (WorkExperience(..))
+import LinkedIn.Profile.WorkExperience as PWE
+import LinkedIn.Types (ParseError(..))
+import LinkedIn.UIElements.Types (Duration(..), TimeSpan(..))
+import Node.JsDom (jsDomFromFile)
+import Partial.Unsafe (unsafePartial)
+import Test.Assert (assert, assertEqual)
+import Test.Utils (toMonthYear')
+
+testJobsUnifiedTopCard :: Effect Unit
+testJobsUnifiedTopCard = do
+  dom <- jsDomFromFile "test/examples/job_offer.html"
+  topCard <- getJobsUnifiedTopCard dom
+  assert $ isJust topCard
+  headCard <- unsafePartial $ parseHeadCard topCard
+  assertEqual {
+    actual: headCard,
+    expected:  Right (JobsUnifiedTopCardElement {
+      actions: (Just (NonEmptyList
+        (NonEmpty (TopCardActionApplyButton (DetachedElement {
+          classes: ("jobs-apply-button" : "artdeco-button" : "artdeco-button--3" : "artdeco-button--primary" : "ember-view" : Nil),
+          content: "Candidature simplifiée",
+          id: (Just "ember115"),
+          tag: "BUTTON"
+        })) ((TopCardActionApplyButton (DetachedElement {
+          classes: ("jobs-save-button" : "artdeco-button" : "artdeco-button--3" : "artdeco-button--secondary" : Nil),
+          content: "Enregistrer Enregistrer Data Engineer H/F - Secteur Energie chez LINCOLN",
+          id: Nothing,
+          tag: "BUTTON"
+        })) : 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: (Just "undefined"),
+                tag: "SPAN"
+              })) : Nil))) }),
+            icon: (DetachedElement {
+              classes: ("" : Nil),
+              content: "",
+              id: Nothing,
+              tag: "LI-ICON"
+            })
+        }) ((TopCardInsight {
+          content: (TopCardInsightContentSingle (DetachedElement {
+            classes: ("" : Nil),
+            content: "201-500 employés · Technologies et services de l’information",
+            id: (Just "undefined"),
+            tag: "SPAN" })),
+          icon: (DetachedElement {
+            classes: ("" : Nil),
+            content: "",
+            id: Nothing,
+            tag: "LI-ICON" })
+        }) : (TopCardInsight {
+            content: (TopCardInsightContentSingle (DetachedElement {
+              classes: ("" : Nil),
+              content: "2 anciens élèves travaillent ici",
+              id: (Just "undefined"),
+              tag: "SPAN" })),
+            icon: (DetachedElement {
+              classes: ("" : Nil),
+              content: "",
+              id: Nothing,
+              tag: "LI-ICON" })
+            }) : (TopCardInsight {
+              content: (TopCardInsightContentSingle (DetachedElement {
+                classes: ("" : Nil),
+                content: "Découvrez comment vous vous positionnez par rapport à 87 candidats. Essai Premium pour 0 EUR",
+                id: (Just "undefined"),
+                tag: "SPAN" })),
+              icon: (DetachedElement {
+                classes: ("" : Nil),
+                content: "",
+                id: Nothing,
+                tag: "svg"
+              })
+            }) : (TopCardInsight {
+              content: (TopCardInsightContentButton (DetachedElement {
+                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",
+                id: (Just "undefined"),
+                tag: "BUTTON" })),
+              icon: (DetachedElement {
+                classes: ("" : Nil),
+                content: "",
+                id: Nothing,
+                tag: "svg"
+              })
+            }) : Nil)))),
+      primaryDescription: (Just (TopCardPrimaryDescription {
+        link: (DetachedElement {
+          classes: ("app-aware-link" : Nil),
+          content: "LINCOLN",
+          id: Nothing,
+          tag: "A" }),
+        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
+          ))
+        ))
+      }))
+    })
+  }
+
+
+parseHeadCard ∷ Partial => Maybe (NonEmptyList LinkedInUIElement) → Effect (Either ParseError JobsUnifiedTopCardElement)
+parseHeadCard (Just l) = do
+  parsed <- (\(LinkedInUIElement _ n) -> parseJobsUnifiedTopCardElement n) $ NEL.head l
+  pure $ parsed
+

test/Main.purs

@@ -3,9 +3,10 @@ module Test.Main where
 import Prelude
 
 import Effect (Effect)
-
 import Test.ArtDecoCard (testArtDecoCard)
+import Test.JobsUnifiedTopCard (testJobsUnifiedTopCard)
 
 main :: Effect Unit
 main = do
   testArtDecoCard
+  testJobsUnifiedTopCard