invalid_deviceid.t (1377B)
1 use strict; 2 use Test; 3 use SL::Test; 4 5 BEGIN { plan tests => 63 } 6 7 # Test that sending invalid device id's results in errors 8 9 my $s = SL::Test::Server->new(); 10 # Don't register 11 my $A = SL::Test::Client->new(1); 12 13 my @device_ids = ('' , 'somebull$hit', 'legit'); 14 my @good_msgs = ('the client sent a device id that was not base64', 15 'the client sent a device id that was not base64', 16 'the client sent an unknown device id' 17 ); 18 my @good_logs = ('/bad device id/', '/bad device id/', "/unknown device 'legit'/"); 19 20 for (0..2) { 21 $A->set_device_id($device_ids[$_]); 22 23 # for messages that send 2 arguments, send an empty 2nd argument 24 my $err = $A->friend_add('', 'err'); 25 ok( $err, $good_msgs[$_] ); 26 ok( $s->readline(), $good_logs[$_]); 27 28 $err = $A->friend_delete('', 'err'); 29 ok( $err, $good_msgs[$_] ); 30 ok( $s->readline(), $good_logs[$_]); 31 32 $err = $A->list_add('', 'err'); 33 ok( $err, $good_msgs[$_] ); 34 ok( $s->readline(), $good_logs[$_]); 35 36 $err = $A->list_join('', 'err'); 37 ok( $err, $good_msgs[$_] ); 38 ok( $s->readline(), $good_logs[$_]); 39 40 $err = $A->list_leave('', 'err'); 41 ok( $err, $good_msgs[$_] ); 42 ok( $s->readline(), $good_logs[$_]); 43 44 # messages that send 1 argument 45 $err = $A->lists_get('err'); 46 ok( $err, $good_msgs[$_] ); 47 ok( $s->readline(), $good_logs[$_]); 48 49 $err = $A->lists_get_other('err'); 50 ok( $err, $good_msgs[$_] ); 51 ok( $s->readline(), $good_logs[$_]); 52 }