shlist

share and manage lists between multiple people
Log | Files | Refs

bad_msg.t (314B)

      1 use strict;
      2 use Test;
      3 
      4 BEGIN { plan tests => 1 }
      5 
      6 use APND;
      7 use JSON::XS;
      8 
      9 my $server = APND::Server->new();
     10 my $socket = APND::Socket->new();
     11 
     12 my $msg = {
     13 };
     14 
     15 my $encoded_json = encode_json($msg);
     16 $socket->write($encoded_json);
     17 
     18 ok($server->readline(), "/sending message type '' to 0 device/");
     19 
     20 $server->kill();