From mboxrd@z Thu Jan 1 00:00:00 1970 From: Stefan Schantl To: location@lists.ipfire.org Subject: [PATCH 4/4] perl: Add test for get_continent_code() function. Date: Thu, 10 Sep 2020 17:57:47 +0200 Message-ID: <20200910155747.12553-4-stefan.schantl@ipfire.org> In-Reply-To: <20200910155747.12553-1-stefan.schantl@ipfire.org> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============6515493795748915593==" List-Id: --===============6515493795748915593== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable Signed-off-by: Stefan Schantl --- src/perl/t/Location.t | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/perl/t/Location.t b/src/perl/t/Location.t index c922a94..e256aec 100644 --- a/src/perl/t/Location.t +++ b/src/perl/t/Location.t @@ -12,7 +12,7 @@ use warnings; my $testdb =3D $ENV{'database'}; my $keyfile =3D $ENV{'keyfile'}; =20 -use Test::More tests =3D> 11; +use Test::More tests =3D> 12; BEGIN { use_ok('Location') }; =20 ######################### @@ -68,3 +68,6 @@ ok($network_flag_anycast, "Network has Anycast flag."); =20 my $country_name =3D &Location::get_country_name($db, "DE"); ok($country_name eq "Germany", "Test 13 - Got country name: $country_name"); + +my $continent_code =3D &Location::get_continent_code($db, "DE"); +ok($continent_code eq "EU", "Test 14 - Got continent code $continent_code fo= r country code 'DE'"); --=20 2.20.1 --===============6515493795748915593==--