testParseBody = parseCheck "with body" "CONNECTED\n\nABC1\NUL" $
    StompFrame "CONNECTED" [] (Just . (fmap c2w) $ "ABC1")
testParseBody = parseCheck "with body" "CONNECTED\n\nABC1\NUL" $
    StompFrame "CONNECTED" [] (Just . (fmap c2w) $ "ABC1")
testParseBody = parseCheck "with body" "CONNECTED\n\nABC1\NUL" $
    StompFrame "CONNECTED" [] (Just . (fmap c2w) $ "ABC1")