Add a new test

src/LinkedIn/Profile/WorkExperience.purs

@@ -28,6 +28,7 @@ data WorkExperience = WorkExperience {
 }
 
 derive instance Generic WorkExperience _
+derive instance Eq WorkExperience
 instance Show WorkExperience where
   show = genericShow
 

test/Utils.purs

@@ -0,0 +1,14 @@
+module Test.Utils where
+
+import Prelude
+
+import Data.Date (Month)
+import Data.Int (toNumber)
+import Data.Maybe (fromJust)
+import LinkedIn.UIElements.Parser (toYear)
+import LinkedIn.UIElements.Types (MonthYear(..))
+import Partial.Unsafe (unsafePartial)
+
+toMonthYear' :: Month -> Int -> MonthYear
+toMonthYear' m y = MonthYear m y' where
+  y' = unsafePartial $ fromJust $ toYear $ toNumber y