From mboxrd@z Thu Jan 1 00:00:00 1970 From: Stefan Schantl To: location@lists.ipfire.org Subject: [PATCH 3/3] perl: Add test for the database_countries() function. Date: Thu, 20 Aug 2020 19:28:56 +0200 Message-ID: <20200820172856.6983-3-stefan.schantl@ipfire.org> In-Reply-To: <20200820172856.6983-1-stefan.schantl@ipfire.org> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============6781642403068981366==" List-Id: --===============6781642403068981366== 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 3ba2d8f..ec7f1e0 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> 7; +use Test::More tests =3D> 8; BEGIN { use_ok('Location') }; =20 ######################### @@ -56,3 +56,6 @@ if(defined($as_number)) { fail("Test 8 - Lookup Autonomous = System Number for add =20 $as_number =3D &Location::lookup_asn($db, "a.b.c.d"); if(defined($as_number)) { fail("Test 9 - Lookup Autonomous System Number for= invalid address.") } + +my @locations =3D &Location::database_countries($db); +ok(@locations !=3D 0, "Test 10 - Get database countries."); --=20 2.20.1 --===============6781642403068981366==--