]>
iEval git - number-phone-ro.git/blob - t/network.t
6 BEGIN { plan skip_all
=> '$ENV{RELEASE_TESTING} is false' unless $ENV{RELEASE_TESTING
} }
7 BEGIN { plan tests
=> 4 }
11 my $nr = Number
::Phone
::RO
->new("0767254626");
13 like
$nr->operator, qr/COSMOTE/, 'operator (ported number)';
14 like
$nr->operator_ported, qr/ROMTELECOM/, 'operator_ported (ported number)';
16 $nr = Number
::Phone
::RO
->new("0773928513");
18 is
$nr->operator, $nr->operator_ported, 'operator eq operator_ported (unported number)';
20 $nr = Number
::Phone
::RO
->new("0111111111");
22 ok
!$nr->operator, "operator (invalid number)";
This page took 0.040098 seconds and 4 git commands to generate.