attachmentVideo :: TestTree
attachmentVideo = parseTest "Video attachment" videoVal
                $ standardMessaging (Just 1524463431537)
                                    Nothing
                                    contnt
  where contnt = CMMessage $ Message "mid.$cAAFSt2aYrFJpI8x3ci8RnJfhPTsQ"
                                     (Just 2869)
                                     msgContent
                                     []
        msgContent = MAttachment $ MessageAttachment [att]
        att = CAMultimedia $ MultimediaAttachment VIDEO
                           $ CallbackMultimediaPayload "https://video-ort2-2.xx.fbcdn.net/v/t42.3356-2/31126804_1758684374210244_6397927484334269799_n.mp4/video-1524463431.mp4?_nc_cat=0&vabr=88639&oh=b5ccd0dbf1547bbf3b1c9fcaf4007cd3&oe=5ADF020B"
attachmentVideo :: TestTree
attachmentVideo = parseTest "Video attachment" videoVal
                $ standardMessaging (Just 1524463431537)
                                    Nothing
                                    contnt
  where contnt = CMMessage $ Message "mid.$cAAFSt2aYrFJpI8x3ci8RnJfhPTsQ"
                                     (Just 2869)
                                     msgContent
                                     []
        msgContent = MAttachment $ MessageAttachment [att]
        att = CAMultimedia $ MultimediaAttachment VIDEO
                           $ CallbackMultimediaPayload "https://video-ort2-2.xx.fbcdn.net/v/t42.3356-2/31126804_1758684374210244_6397927484334269799_n.mp4/video-1524463431.mp4?_nc_cat=0&vabr=88639&oh=b5ccd0dbf1547bbf3b1c9fcaf4007cd3&oe=5ADF020B"
attachmentVideo = parseTest "Video attachment" videoVal
                $ standardMessaging (Just 1524463431537)
                                    Nothing
                                    contnt
  where contnt = CMMessage $ Message "mid.$cAAFSt2aYrFJpI8x3ci8RnJfhPTsQ"
                                     (Just 2869)
                                     msgContent
                                     []
        msgContent = MAttachment $ MessageAttachment [att]
        att = CAMultimedia $ MultimediaAttachment VIDEO
                           $ CallbackMultimediaPayload "https://video-ort2-2.xx.fbcdn.net/v/t42.3356-2/31126804_1758684374210244_6397927484334269799_n.mp4/video-1524463431.mp4?_nc_cat=0&vabr=88639&oh=b5ccd0dbf1547bbf3b1c9fcaf4007cd3&oe=5ADF020B"