From 7ec3a1e7c8587153bcc435a8d0123dedc8861a8f Mon Sep 17 00:00:00 2001 From: Stefan Schantl Date: Sat, 17 Sep 2022 15:32:58 +0200 Subject: [PATCH] Add test for get_sets() function. Signed-off-by: Stefan Schantl --- t/IPSet.t | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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'}); -- 2.47.3