attachmentFallback :: TestTree
attachmentFallback = parseTest "Fallback attachment" fallbackVal
                   $ standardMessaging (Just 1484828179384)
                                       Nothing
                                       contnt
  where contnt = CMMessage $ Message "mid.1484828179384:02c39cc697"
                                     (Just 5322)
                                     msgContent
                                     []
        msgContent = MAttachment $ MessageAttachment [att]
        att = CAFallback $ Fallback (Just "Check us out!")
                                    (Just "https://www.facebook.com/Thisisus/")
                                    Nothing
attachmentFallback :: TestTree
attachmentFallback = parseTest "Fallback attachment" fallbackVal
                   $ standardMessaging (Just 1484828179384)
                                       Nothing
                                       contnt
  where contnt = CMMessage $ Message "mid.1484828179384:02c39cc697"
                                     (Just 5322)
                                     msgContent
                                     []
        msgContent = MAttachment $ MessageAttachment [att]
        att = CAFallback $ Fallback (Just "Check us out!")
                                    (Just "https://www.facebook.com/Thisisus/")
                                    Nothing
attachmentFallback = parseTest "Fallback attachment" fallbackVal
                   $ standardMessaging (Just 1484828179384)
                                       Nothing
                                       contnt
  where contnt = CMMessage $ Message "mid.1484828179384:02c39cc697"
                                     (Just 5322)
                                     msgContent
                                     []
        msgContent = MAttachment $ MessageAttachment [att]
        att = CAFallback $ Fallback (Just "Check us out!")
                                    (Just "https://www.facebook.com/Thisisus/")
                                    Nothing