shlist

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

non_ios.t (556B)

      1 use strict;
      2 use Test;
      3 
      4 BEGIN { plan tests => 3 }
      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 	msg_type => "updated_list",
     14 	payload => { },
     15 	devices => [
     16 		[ "not_ios", "hex" ],
     17 		[ "android", "some_token" ]
     18 	]
     19 };
     20 
     21 my $encoded_json = encode_json($msg);
     22 $socket->write($encoded_json);
     23 
     24 ok($server->readline(), "/sending message type 'updated_list' to 2 device/");
     25 ok($server->readline(), '/hex: not an ios device/');
     26 ok($server->readline(), '/some_token: not an ios device/');
     27 
     28 $server->kill();