diff --git a/src/Model.hs b/src/Model.hs index c7c78c5..88a9b42 100644 --- a/src/Model.hs +++ b/src/Model.hs @@ -98,9 +98,6 @@ update = do [ karenR "K\229rrestaurangen" "karrestaurangen" "21f31565-5c2b-4b47-d2a1-08d558129279" - , karenR "Express Johanneberg" - "johanneberg-express" - "3d519481-1667-4cad-d2a3-08d558129279" , karenR "S.M.A.K." "smak" "3ac68e11-bcee-425e-d2a8-08d558129279" , karenR "L's Kitchen" "ls-kitchen" "c74da2cf-aa1a-4d3a-9ba6-08d5569587a1" , fmap diff --git a/test/Main.hs b/test/Main.hs index 53ade99..de74de3 100644 --- a/test/Main.hs +++ b/test/Main.hs @@ -24,24 +24,6 @@ testFun expected = either main :: IO () main = hspec $ do - describe "hasDate" - $ it "parses a legit date" (hasDate (BL8.pack "2/1") @?= Just (1, 2)) - describe "The Karen Express" $ it - "parses a blob of JSON without error" - ( testFun - [ Menu (T.pack "Express") - (T.pack "Kycklinggryta, persilja, senap & kokt potatis") - , Menu (T.pack "Express - Vegan") - (T.pack "Vegetariska biffar, persiljekr\228m & potatismos") - ] - - $ parse - "Swedish" - (BL8.pack - "{\"data\":{\"dishOccurrencesByTimeRange\":[{\"displayNames\":[{\"name\":\"Kycklinggryta, persilja, senap & kokt potatis\",\"categoryName\":\"Swedish\"},{\"name\":\"Chicken stew, parsley, mustard & boiled potatoes\",\"categoryName\":\"English\"}],\"startDate\":\"9/9/2019 12:00:00 AM\",\"dishType\":{\"name\":\"Express\"},\"dish\":{\"name\":\"Kycklinggryta, aubergin, zucchini, tomat & rostad potatis\"}},{\"displayNames\":[{\"name\":\"Vegetariska biffar, persiljekr\195\164m & potatismos\",\"categoryName\":\"Swedish\"},{\"name\":\"Vegetarian patties, parsley cream & mashed potatoes\",\"categoryName\":\"English\"}],\"startDate\":\"9/9/2019 12:00:00 AM\",\"dishType\":{\"name\":\"Express - Vegan\"},\"dish\":{\"name\":\"Vegetariska biffar, majonn\195\164s & potatispur\195\169\"}}]}}\n" - ) - ) - describe "The Wijkander's" $ it "Parses two blobs of HTML correctly on fridays" $ do