Permalink
Browse files

Test for 074 numbers

  • Loading branch information...
DrHyde committed May 20, 2011
1 parent 38ab50c commit dfecd25d462ed455f580768954d53548332196f8
Showing with 8 additions and 0 deletions.
  1. +8 −0 t/01_uk_data.t
View
@@ -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";

0 comments on commit dfecd25

Please sign in to comment.