t/cti/sanitize_number.t

   1 use Test::More tests => 5;
   2
   3 use strict;
   4 use lib 't';
   5 use utf8;
   6
   7 use_ok 'SL::CTI';
   8
   9 {
  10   no warnings 'once';
  11   $::lx_office_conf{cti}->{international_dialing_prefix} = '00';
  12 }
  13
  14 is SL::CTI->sanitize_number(number => '0371 5347 620'),        '03715347620';
  15 is SL::CTI->sanitize_number(number => '0049(0)421-22232 22'),  '00494212223222';
  16 is SL::CTI->sanitize_number(number => '+49(0)421-22232 22'),   '00494212223222';
  17 is SL::CTI->sanitize_number(number => 'Tel: +49 40 809064 0'), '0049408090640';