From: Stefan Schantl <stefan.schantl@ipfire.org>
Date: Wed, 2 Oct 2019 17:25:51 +0000 (+0200)
Subject: perl: Testsuite: Add tests for lookup_asn()
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=18806c972caf2a552e5690b2f2f085ac7e4ed46c;p=people%2Fsennis%2Flibloc.git

perl: Testsuite: Add tests for lookup_asn()

Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
---

diff --git a/src/perl/t/Location.t b/src/perl/t/Location.t
index 55a18f3..fd43946 100644
--- a/src/perl/t/Location.t
+++ b/src/perl/t/Location.t
@@ -11,7 +11,7 @@ use warnings;
 # Where to find the test database.
 my $testdb = $ENV{'database'};
 
-use Test::More tests => 5;
+use Test::More tests => 6;
 BEGIN { use_ok('Location') };
 
 #########################
@@ -42,3 +42,12 @@ if(defined($country_code)) { fail("Test 5 - Lookup country code for address not
 
 $country_code = &Location::lookup_country_code($db, "a.b.c.d");
 if(defined($country_code)) { fail("Test 6 - Lookup country code for invalid address.") }
+
+my $as_number = &Location::lookup_asn($db, $address);
+ok($as_number eq "204867", "Test 7 - Lookup Autonomous System Number for $address.");
+
+$as_number = &Location::lookup_asn($db, "1.1.1.1");
+if(defined($as_number)) { fail("Test 8 - Lookup Autonomous System Number for address not in Database.") }
+
+$as_number = &Location::lookup_asn($db, "a.b.c.d");
+if(defined($as_number)) { fail("Test 9 - Lookup Autonomous System Number for invalid address.") }