From mboxrd@z Thu Jan 1 00:00:00 1970 From: Stefan Schantl To: location@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="===============4319357239240079587==" List-Id: --===============4319357239240079587== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable Signed-off-by: Stefan Schantl --- 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 --===============4319357239240079587==--