botTests :: Spec
botTests = do
  describe "Bot reacts to URLs" $ do
    it "Is NoBlips non URLs" $ do
      now <- getCurrentTime
      f <- streamAuto (emitJusts (const Nothing)) (["a"] :: [String])
      s <- streamAuto (urlBot :: RoomBot IO)
                      [InMessage "slug" "Rando message" "#slug-chan" now]
      (fmap TestBlip f) `shouldBe` (fmap TestBlip s)
    it "Non empty for URLs" $ do
       pendingWith "Can't mock a network call."
botTests :: Spec
botTests = do
  describe "Bot reacts to URLs" $ do
    it "Is NoBlips non URLs" $ do
      now <- getCurrentTime
      f <- streamAuto (emitJusts (const Nothing)) (["a"] :: [String])
      s <- streamAuto (urlBot :: RoomBot IO)
                      [InMessage "slug" "Rando message" "#slug-chan" now]
      (fmap TestBlip f) `shouldBe` (fmap TestBlip s)
    it "Non empty for URLs" $ do
       pendingWith "Can't mock a network call."
botTests = do
  describe "Bot reacts to URLs" $ do
    it "Is NoBlips non URLs" $ do
      now <- getCurrentTime
      f <- streamAuto (emitJusts (const Nothing)) (["a"] :: [String])
      s <- streamAuto (urlBot :: RoomBot IO)
                      [InMessage "slug" "Rando message" "#slug-chan" now]
      (fmap TestBlip f) `shouldBe` (fmap TestBlip s)
    it "Non empty for URLs" $ do
       pendingWith "Can't mock a network call."