From mboxrd@z Thu Jan 1 00:00:00 1970
From: Stefan Schantl <stefan.schantl@ipfire.org>
To: development@lists.ipfire.org
Subject: [PATCH] perl: Testsuite: Add test for lookup_asn()
Date: Tue, 01 Oct 2019 08:24:29 +0200
Message-ID: <20191001062429.4931-1-stefan.schantl@ipfire.org>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============4148397448775898246=="
List-Id: <development.lists.ipfire.org>
--===============4148397448775898246==
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 | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/src/perl/t/Location.t b/src/perl/t/Location.t
index aef15c3..af5e258 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 "../../testdata/test.db";
=20
-use Test::More tests =3D> 5;
+use Test::More tests =3D> 6;
BEGIN { use_ok('Location') };
=20
#########################
@@ -36,3 +36,6 @@ 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");
+
+my $as_number =3D &Location::lookup_asn($db, $address);
+ok($as_number eq "204867", "Test 5 - Lookup Autonomous System for $address");
--=20
2.20.1
--===============4148397448775898246==--