From: Stefan Schantl <stefan.schantl@ipfire.org>
Date: Sat, 17 Sep 2022 13:32:58 +0000 (+0200)
Subject: Add test for get_sets() function.
X-Git-Url: http://git.ipfire.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=7ec3a1e7c8587153bcc435a8d0123dedc8861a8f;p=people%2Fstevee%2Fperl-ipset.git

Add test for get_sets() function.

Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
---

diff --git a/t/IPSet.t b/t/IPSet.t
index 2904b10..01778b7 100644
--- a/t/IPSet.t
+++ b/t/IPSet.t
@@ -8,7 +8,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 14;
+use Test::More tests => 15;
 BEGIN { use_ok('IPSet') };
 
 #########################
@@ -67,5 +67,10 @@ ok($data->{maxelem} eq $testset{'maxelem'}, "Grabbed maxelem equals $testset{'ma
 ok($data->{entries} == 0, "$testset{'name'} should not have any elements now.");
 ok($data->{references} == 0, "$testset{'name'} should not be referenced!");
 
+# Get all known sets.
+my @sets = &IPSet::get_sets($session);
+my $sets_count = @sets;
+ok($sets_count ge 1, "At least one set exists yet!");
+
 # CLEANUP: Delete the remaining set.
 &IPSet::delete_set($session, $testset{'name'});