From mboxrd@z Thu Jan  1 00:00:00 1970
From: Stefan Schantl <stefan.schantl@ipfire.org>
To: location@lists.ipfire.org
Subject: [PATCHv2] perl: Testsuite: Add tests for lookup_asn()
Date: Wed, 02 Oct 2019 19:25:51 +0200
Message-ID: <20191002172551.12455-1-stefan.schantl@ipfire.org>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============1633352695480169654=="
List-Id: <location.lists.ipfire.org>

--===============1633352695480169654==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable

Signed-off-by: Stefan Schantl <stefan.schantl(a)ipfire.org>
---
 src/perl/t/Location.t | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

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 =3D $ENV{'database'};
=20
-use Test::More tests =3D> 5;
+use Test::More tests =3D> 6;
 BEGIN { use_ok('Location') };
=20
 #########################
@@ -42,3 +42,12 @@ if(defined($country_code)) { fail("Test 5 - Lookup country=
 code for address not
=20
 $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.") }
+
+my $as_number =3D &Location::lookup_asn($db, $address);
+ok($as_number eq "204867", "Test 7 - Lookup Autonomous System Number for $ad=
dress.");
+
+$as_number =3D &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 =3D &Location::lookup_asn($db, "a.b.c.d");
+if(defined($as_number)) { fail("Test 9 - Lookup Autonomous System Number for=
 invalid address.") }
--=20
2.20.1


--===============1633352695480169654==--