Add unit tests for String parser

src/LinkedIn/UIElements/Types.purs

@@ -41,6 +41,7 @@ data UIString =
   | UIStringPlain String
   | UIStringDotSeparated UIString UIString
 
+derive instance Eq UIString
 derive instance Generic UIString _
 instance Show UIString where
   show (UIStringDotSeparated ui1 ui2) = "(UIStringDotSeparated " <> show ui1 <> show ui2 <> ")"

test/Main.purs

@@ -5,8 +5,10 @@ import Prelude
 import Effect (Effect)
 import Test.ArtDecoCard (testArtDecoCard)
 import Test.JobsUnifiedTopCard (testJobsUnifiedTopCard)
+import Test.UIStringParser (testUIStringParser)
 
 main :: Effect Unit
 main = do
   testArtDecoCard
   testJobsUnifiedTopCard
+  testUIStringParser

test/UIStringParser.purs

@@ -0,0 +1,99 @@
+module Test.UIStringParser
+  ( testUIStringParser
+  )
+  where
+
+import Data.Date (Month(..))
+import Data.Either (Either(..))
+import Effect (Effect)
+import LinkedIn.UIElements.Parser (durationP, monthYearP, timeSpanP, uiStringP)
+import LinkedIn.UIElements.Types (Duration(..), MonthYear, TimeSpan(..), UIString(..))
+import Parsing (runParser, ParseError)
+import Prelude (Unit, discard)
+import Test.Assert (assertEqual)
+import Test.Utils (toMonthYear')
+
+runMonthYear ∷ String → Either ParseError MonthYear
+runMonthYear s = runParser s monthYearP
+
+runTimeSpan ∷ String → Either ParseError TimeSpan
+runTimeSpan s = runParser s timeSpanP
+
+runDuration ∷ String → Either ParseError Duration
+runDuration s = runParser s durationP
+
+runUIString ∷ String → Either ParseError UIString
+runUIString s = runParser s uiStringP
+
+testMonthYearParser ∷ Effect Unit
+testMonthYearParser = do 
+  assertEqual {
+    actual:  runMonthYear "fév. 2004",
+    expected: Right(toMonthYear' February 2004)
+  }
+  assertEqual {
+    actual:  runMonthYear "juin 2012",
+    expected: Right(toMonthYear' June 2012)
+  }
+
+testTimeSpanParser ∷ Effect Unit
+testTimeSpanParser = do 
+  assertEqual {
+    actual:  runTimeSpan "juin 2012 - aujourd’hui",
+    expected: Right(TimeSpanToToday (toMonthYear' June 2012))
+  }
+  assertEqual {
+    actual:  runTimeSpan "juin 2012 - mai 2021",
+    expected: Right(TimeSpanBounded (toMonthYear' June 2012) (toMonthYear' May 2021))
+  }
+
+testDurationParser ∷ Effect Unit
+testDurationParser = do 
+  assertEqual {
+    actual: runDuration "2 ans 3 mois",
+    expected: Right(YearsMonth 2 3)
+  }
+  assertEqual {
+    actual: runDuration "1 an 3 mois",
+    expected: Right(YearsMonth 1 3)
+  }
+  assertEqual {
+    actual: runDuration "3 mois",
+    expected: Right(Months 3)
+  }
+  assertEqual {
+    actual: runDuration "3 ans",
+    expected: Right(Years 3)
+  }
+  assertEqual {
+    actual: runDuration "1 an",
+    expected: Right(Years 1)
+  }
+
+testUIParserDuration ∷ Effect Unit
+testUIParserDuration = do
+  assertEqual {
+    actual: runUIString "2 ans 3 mois",
+    expected: Right(UIStringDuration (YearsMonth 2 3))
+  }
+
+testUIParserDotSeparated ∷ Effect Unit
+testUIParserDotSeparated = do
+  assertEqual {
+    actual: runUIString "2 ans 3 mois · some text",
+    expected: Right(UIStringDotSeparated (UIStringDuration (YearsMonth 2 3)) (UIStringPlain "some text"))
+  }
+
+  assertEqual {
+    actual: runUIString "· Boulogne-Billancourt, Île-de-France, France",
+    expected: Right(UIStringDotSeparated (UIStringPlain "") (UIStringPlain "Boulogne-Billancourt, Île-de-France, France"))
+  }
+
+testUIStringParser :: Effect Unit
+testUIStringParser = do
+  testMonthYearParser
+  testTimeSpanParser
+  testDurationParser
+
+  testUIParserDuration
+  testUIParserDotSeparated