selftest: create a pcap file for the environment setup

[amitay/samba.git] / selftest / target / Samba.pm

diff --git a/selftest/target/Samba.pm b/selftest/target/Samba.pm
index 70e61080f812c8417bfc81585fe34aac79ec3fb1..26b838981f664f24eb5eb442cf8c5046210311b7 100644 (file)
--- a/selftest/target/Samba.pm
+++ b/selftest/target/Samba.pm
@@ -116,7 +116,10 @@ sub setup_env($$$)
 
        my $setup_name = $ENV_TARGETS{$envname}."::setup_".$envname;
        my $setup_sub = \&$setup_name;
+       my $setup_pcap_file = $self->setup_pcap("env-$ENV{ENVNAME}-setup");
        my $env = &$setup_sub($target, "$path/$envname", @dep_vars);
+       $self->cleanup_pcap($setup_pcap_file, not defined($env));
+       SocketWrapper::setup_pcap(undef);
 
        if (not defined($env)) {
                warn("failed to start up environment '$envname'");