From mboxrd@z Thu Jan 1 00:00:00 1970 From: Stefan Schantl To: location@lists.ipfire.org Subject: [PATCH 3/3] perl: Add test for the lookup_network_has_flag() function Date: Sun, 30 Aug 2020 12:36:02 +0200 Message-ID: <20200830103602.6816-3-stefan.schantl@ipfire.org> In-Reply-To: <20200830103602.6816-1-stefan.schantl@ipfire.org> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============3045027441830302006==" List-Id: --===============3045027441830302006== 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 0d9a1a5..a82bbb1 100644 --- a/src/perl/t/Location.t +++ b/src/perl/t/Location.t @@ -12,7 +12,7 @@ use warnings; my $testdb =3D $ENV{'database'}; my $keyfile =3D $ENV{'keyfile'}; =20 -use Test::More tests =3D> 9; +use Test::More tests =3D> 10; BEGIN { use_ok('Location') }; =20 ######################### @@ -62,3 +62,6 @@ ok($as_name eq "Lightning Wire Labs GmbH", "Test 10 - Get n= ame for AS204867."); =20 my @locations =3D &Location::database_countries($db); ok(@locations !=3D 0, "Test 11 - Get database countries."); + +my $network_flag_anycast =3D &Location::lookup_network_has_flag($db, $addres= s, "LOC_NETWORK_FLAG_ANYCAST"); +ok($network_flag_anycast, "Network has Anycast flag."); --=20 2.20.1 --===============3045027441830302006==--