From mboxrd@z Thu Jan 1 00:00:00 1970 From: Stefan Schantl To: location@lists.ipfire.org Subject: [PATCH 3/4] perl: Add test for get_country_name() function. Date: Thu, 10 Sep 2020 17:57:46 +0200 Message-ID: <20200910155747.12553-3-stefan.schantl@ipfire.org> In-Reply-To: <20200910155747.12553-1-stefan.schantl@ipfire.org> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============0608637283739004407==" List-Id: --===============0608637283739004407== 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 a82bbb1..c922a94 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> 10; +use Test::More tests =3D> 11; BEGIN { use_ok('Location') }; =20 ######################### @@ -65,3 +65,6 @@ ok(@locations !=3D 0, "Test 11 - Get database countries."); =20 my $network_flag_anycast =3D &Location::lookup_network_has_flag($db, $addres= s, "LOC_NETWORK_FLAG_ANYCAST"); ok($network_flag_anycast, "Network has Anycast flag."); + +my $country_name =3D &Location::get_country_name($db, "DE"); +ok($country_name eq "Germany", "Test 13 - Got country name: $country_name"); --=20 2.20.1 --===============0608637283739004407==--