[number-phone-ro.git] / t / network.t

#!/usr/bin/perl
use strict;
use warnings;

use Test::More;
BEGIN { plan skip_all => '$ENV{RELEASE_TESTING} is false' unless $ENV{RELEASE_TESTING} }
BEGIN { plan tests => 4 }

use Number::Phone::RO;

my $nr = Number::Phone::RO->new("0767254626");

like $nr->operator, qr/COSMOTE/, 'operator (ported number)';
like $nr->operator_ported, qr/ROMTELECOM/, 'operator_ported (ported number)';

$nr = Number::Phone::RO->new("0773928513");

is $nr->operator, $nr->operator_ported, 'operator eq operator_ported (unported number)';

$nr = Number::Phone::RO->new("0111111111");

ok !$nr->operator, "operator (invalid number)";
Commit	Line	Data
910b926d MG	1	#!/usr/bin/perl
	2	use strict;
	3	use warnings;
	4
	5	use Test::More;
	6	BEGIN { plan skip_all => '$ENV{RELEASE_TESTING} is false' unless $ENV{RELEASE_TESTING} }
	7	BEGIN { plan tests => 4 }
	8
	9	use Number::Phone::RO;
	10
	11	my $nr = Number::Phone::RO->new("0767254626");
	12
	13	like $nr->operator, qr/COSMOTE/, 'operator (ported number)';
	14	like $nr->operator_ported, qr/ROMTELECOM/, 'operator_ported (ported number)';
	15
	16	$nr = Number::Phone::RO->new("0773928513");
	17
	18	is $nr->operator, $nr->operator_ported, 'operator eq operator_ported (unported number)';
	19
	20	$nr = Number::Phone::RO->new("0111111111");
	21
	22	ok !$nr->operator, "operator (invalid number)";