Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Test for 074 numbers

  • Loading branch information...
commit dfecd25d462ed455f580768954d53548332196f8 1 parent 38ab50c
@DrHyde DrHyde authored
Showing with 8 additions and 0 deletions.
  1. +8 −0 t/01_uk_data.t
View
8 t/01_uk_data.t
@@ -158,6 +158,14 @@ print 'not ' unless(Number::Phone->new('+441768881000')->format() eq
'+44 1768 881000');
print 'ok '.(++$test)." 4+6 (mixed) format works\n";
+$number = Number::Phone->new('+447400000000');
+print 'not ' unless($number->is_mobile());
+print 'ok '.(++$test)." 074 mobiles correctly identified\n";
+print 'not ' unless($number->operator() eq 'Hutchison 3G UK Ltd');
+print 'ok '.(++$test)." 074 mobiles have right operator\n";
+print 'not ' unless($number->format() eq '+44 7400000000');
+print 'ok '.(++$test)." 074 mobiles have right operator\n";
+
$number = Number::Phone->new('+447500000000');
print 'not ' unless($number->is_mobile());
print 'ok '.(++$test)." 075 mobiles correctly identified\n";
Please sign in to comment.
Something went wrong with that request. Please try again.