shlist

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

device_add.t (1063B)

      1 use strict;
      2 use Test;
      3 use SL::Test;
      4 
      5 BEGIN { plan tests => 15 }
      6 
      7 my $s = SL::Test::Server->new();
      8 my $A = SL::Test::Client->new();
      9 
     10 # Constructor automatically calls device_add so no need to do it here
     11 my $devid = $A->device_id();
     12 my $length = length($devid);
     13 ok($devid, 'm/^[a-zA-Z0-9+\/=]+$/');
     14 ok($length, 43);
     15 
     16 # Duplicate phone number
     17 my $err = $A->device_add({ phone_number => $A->phnum, os => 'unix' }, 'err');
     18 ok($err, 'the sent phone number already exists');
     19 ok($s->readline(), "/phone number '.*' already exists/");
     20 
     21 # Bad phone number
     22 $err = $A->device_add({ phone_number => '403867530&', os => 'unix' }, 'err');
     23 ok($err, 'the sent phone number is not a number');
     24 ok($s->readline(), "/phone number invalid/");
     25 
     26 # Bad operating system
     27 $err = $A->device_add({ phone_number => 12345, os => 'bados' }, 'err');
     28 ok($err, 'operating system not supported');
     29 ok($s->readline(), "/unknown operating system 'bados'/");
     30 
     31 # Good operating systems
     32 $A->device_add({ phone_number => 678910, os => 'android' });
     33 $A->device_add({ phone_number => 231455, os => 'ios' });