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 2904b10818c48ecf84cace2adaa1dbf891e5634a..01778b7398b32acb16d8c43015c31b12e3dc8099 100644 (file)
--- 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'});