From mboxrd@z Thu Jan 1 00:00:00 1970 From: Stefan Schantl To: location@lists.ipfire.org Subject: [PATCH 2/2] perl: Testsuite: Add tests for invalid address and address not in the database. Date: Wed, 02 Oct 2019 19:07:53 +0200 Message-ID: <20191002170753.6738-2-stefan.schantl@ipfire.org> In-Reply-To: <20191002170753.6738-1-stefan.schantl@ipfire.org> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============4026919802920007487==" List-Id: --===============4026919802920007487== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable Signed-off-by: Stefan Schantl --- src/perl/t/Location.t | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/perl/t/Location.t b/src/perl/t/Location.t index b583af4..55a18f3 100644 --- a/src/perl/t/Location.t +++ b/src/perl/t/Location.t @@ -36,3 +36,9 @@ ok($description eq "This is a geo location database", "Test= 3 - Get Database Des =20 my $country_code =3D &Location::lookup_country_code($db, $address); ok($country_code eq "DE", "Test 4 - Lookup country code for $address"); + +$country_code =3D &Location::lookup_country_code($db, "1.1.1.1"); +if(defined($country_code)) { fail("Test 5 - Lookup country code for address = not in Database."); } + +$country_code =3D &Location::lookup_country_code($db, "a.b.c.d"); +if(defined($country_code)) { fail("Test 6 - Lookup country code for invalid = address.") } --=20 2.20.1 --===============4026919802920007487==--