Permalink
Browse files

Fix test for dodgy 4+4 format (OFCOM fixed their data)

  • Loading branch information...
1 parent dd9e3e0 commit 7753fac55eb833e31ac168af23787d48fb0c6392 @DrHyde DrHyde committed Jul 2, 2010
Showing with 4 additions and 5 deletions.
  1. +4 −5 t/01_uk_data.t
View
@@ -145,13 +145,12 @@ print 'ok '.(++$test)." 03 numbers have right type\n";
print 'not ' unless($number->format() eq '+44 3031231234');
print 'ok '.(++$test)." 03 numbers are formatted right\n";
-# Unknown format: 4+4 (r: 169772; t: BT)
-# Unknown format: 4+4 (r: 169773; t: BT)
+# Unknown format: 5+4 (r: 169772; t: BT)
# Unknown format: Mixed 4+5 & 4+6 (r: 176888; t: BT)
-print 'not ' unless(Number::Phone->new('+4416977200')->format() eq
- '+44 1697 7200');
-print 'ok '.(++$test)." 4+4 format works\n";
+print 'not ' unless(Number::Phone->new('+44169772200')->format() eq
+ '+44 16977 2200');
+print 'ok '.(++$test)." 5+4 format works\n";
print 'not ' unless(Number::Phone->new('+44176888000')->format() eq
'+44 1768 88000');
print 'ok '.(++$test)." 4+5 (mixed) format works\n";

0 comments on commit 7753fac

Please sign in to comment.