attachmentTemplate :: TestTree
attachmentTemplate = parseTest "Template attachment" templateVal
                   $ standardMessaging (Just 1497895209689)
                                       Nothing
                                       contnt
  where contnt = CMMessage $ Message "mid.$cAAD2N5dYXFdi8shS2VcwYMKB82oI"
                                     (Just 126384)
                                     msgContent
                                     []
        msgContent = MAttachment $ MessageAttachment [att]
        att = CATemplate $ TemplateAttachment (Just "<SOME_TITLE>")
                                              Nothing
                                              (Just "https://www.example.com/")
                                              $ CallbackTemplate (Just True) [e]
        e = GenericElement "<ELEMENT_TITLE>"
                           (Just " ")
                           (Just "https://www.example.com/some_image.jpg")
                           (Just $ DefaultAction "http://www.example.com/" FULL False Nothing SHOW)
                           Nothing
                           []
attachmentTemplate :: TestTree
attachmentTemplate = parseTest "Template attachment" templateVal
                   $ standardMessaging (Just 1497895209689)
                                       Nothing
                                       contnt
  where contnt = CMMessage $ Message "mid.$cAAD2N5dYXFdi8shS2VcwYMKB82oI"
                                     (Just 126384)
                                     msgContent
                                     []
        msgContent = MAttachment $ MessageAttachment [att]
        att = CATemplate $ TemplateAttachment (Just "<SOME_TITLE>")
                                              Nothing
                                              (Just "https://www.example.com/")
                                              $ CallbackTemplate (Just True) [e]
        e = GenericElement "<ELEMENT_TITLE>"
                           (Just " ")
                           (Just "https://www.example.com/some_image.jpg")
                           (Just $ DefaultAction "http://www.example.com/" FULL False Nothing SHOW)
                           Nothing
                           []
attachmentTemplate = parseTest "Template attachment" templateVal
                   $ standardMessaging (Just 1497895209689)
                                       Nothing
                                       contnt
  where contnt = CMMessage $ Message "mid.$cAAD2N5dYXFdi8shS2VcwYMKB82oI"
                                     (Just 126384)
                                     msgContent
                                     []
        msgContent = MAttachment $ MessageAttachment [att]
        att = CATemplate $ TemplateAttachment (Just "<SOME_TITLE>")
                                              Nothing
                                              (Just "https://www.example.com/")
                                              $ CallbackTemplate (Just True) [e]
        e = GenericElement "<ELEMENT_TITLE>"
                           (Just " ")
                           (Just "https://www.example.com/some_image.jpg")
                           (Just $ DefaultAction "http://www.example.com/" FULL False Nothing SHOW)
                           Nothing
                           []