view release on metacpan or  search on metacpan

misc/t/001-ping-with-payload.t  view on Meta::CPAN

#!/usr/bin/perl
use warnings;
use strict;
use FindBin;
use lib $FindBin::Bin;
use Tester;
Tester->run(\*DATA);

__DATA__
{ "stream" :
 [
  { "action" : "connect" },
  { "action" : "send", "cvname" : "pingresp", "response" : "pingresp",
    "arguments" : { "message_type" : 12, "remaining" : "data" } },
  { "action" : "wait", "for" : "pingresp",
    "result" : { "message_type" : 13 } }
  ],
  "log" :
  [
   "> Connect/at-most-once MQIsdp/3/%testname% ",
   "< ConnAck/at-most-once Connection Accepted ",
   "> PingReq/at-most-once \n  64 61 74 61                                      data",
   [
    {
     "re" : "data",
     "diag" : "pingreq payload is returned in pingresp",
     "log" :
     [
      "< PingResp/at-most-once \n  64 61 74 61                                      data",
      "> Disconnect/at-most-once"
     ]
    },
    {
     "diag" : "pingreq payload is not returned in pingresp",
     "log" :
     [
      "< PingResp/at-most-once",
      "> Disconnect/at-most-once"
     ]
    }
   ]
  ]
 }