From 946f433041a60fbcc537a6ebba1a2a96b8ae4394 Mon Sep 17 00:00:00 2001 From: Stefan Schantl Date: Wed, 2 Oct 2019 19:07:53 +0200 Subject: [PATCH] perl: Testsuite: Add tests for invalid address and address not in the database. Signed-off-by: Stefan Schantl Signed-off-by: Michael Tremer --- 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 my $country_code = &Location::lookup_country_code($db, $address); ok($country_code eq "DE", "Test 4 - Lookup country code for $address"); + +$country_code = &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 = &Location::lookup_country_code($db, "a.b.c.d"); +if(defined($country_code)) { fail("Test 6 - Lookup country code for invalid address.") } -- 2.47.2