selftest: Add a group 'Samba Users'

Signed-off-by: Andreas Schneider <asn@samba.org>
Reviewed-by: Günther Deschner <gd@samba.org>

diff --git a/selftest/target/Samba4.pm b/selftest/target/Samba4.pm
index b7e870f04527205f4dab05912bb7d746e1f093e0..01ab6e8b4ddabf33ecea119794e2140fdb68632c 100755 (executable)
--- a/selftest/target/Samba4.pm
+++ b/selftest/target/Samba4.pm
@@ -996,6 +996,21 @@ servicePrincipalName: http/testupnspn.$ctx->{dnsname}
                }
        }
 
+       my $group_array = ["Samba Users"];
+
+       foreach my $group (@{$group_array}) {
+               my $samba_tool_cmd = "";
+
+               $samba_tool_cmd .= "KRB5_CONFIG=\"$ret->{KRB5_CONFIG}\" ";
+               $samba_tool_cmd .= "KRB5CCNAME=\"$ret->{KRB5_CCACHE}\" ";
+               $samba_tool_cmd .= Samba::bindir_path($self, "samba-tool")
+                   . " group add --configfile=$ctx->{smb_conf} \"$group\"";
+               unless (system($samba_tool_cmd) == 0) {
+                       warn("Unable to create group: $group\n$samba_tool_cmd\n");
+                       return undef;
+               }
+       }
+
        my $ldbmodify = "";
        $ldbmodify .= "KRB5_CONFIG=\"$ret->{KRB5_CONFIG}\" ";
        $ldbmodify .= "KRB5CCNAME=\"$ret->{KRB5_CCACHE}\" ";