Dump environment during 'make test'

diff --git a/selftest/gdb_run b/selftest/gdb_run
index 8ad101ed60a68b47d3b1c67763092eabfd24570a..a4c9b3ecfdae1b6a8d2b3d4a9f25634c07c34c77 100755 (executable)
--- a/selftest/gdb_run
+++ b/selftest/gdb_run
@@ -10,6 +10,7 @@ fi
 
 TMPFILE=$TMPDIR/gdb_run.$$
 cat << EOF  > $TMPFILE
+break torture_modifyuser
 run
 bt
 EOF

diff --git a/selftest/selftest.pl b/selftest/selftest.pl
index 668afbe65355df57eb4201365646f3efeb36f9cd..5537a6b1097c87f08ddb1e726a801016df43527e 100755 (executable)
--- a/selftest/selftest.pl
+++ b/selftest/selftest.pl
@@ -228,6 +228,15 @@ sub expand_environment_strings($)
 sub run_testsuite($$$$$)
 {
        my ($envname, $name, $cmd, $i, $totalsuites) = @_;
+
+               print "starting test as:\n";
+               print "$cmd\n";
+               print "ENVIRONMENT:\n";
+               while ((my $key,my $value) = each %ENV) {
+                       print "export $key=$value\n";
+               }
+               print "\n\n";
+
        my $pcap_file = setup_pcap($name);
 
        Subunit::start_testsuite($name);

diff --git a/selftest/target/Samba4.pm b/selftest/target/Samba4.pm
index 67ef3399035aa986608614be2474948f8589bf44..c55b82824f368af11815053b19c0b41d9647c764 100644 (file)
--- a/selftest/target/Samba4.pm
+++ b/selftest/target/Samba4.pm
@@ -715,6 +715,8 @@ sub provision_raw_step2($$$)
        my ($self, $ctx, $ret) = @_;
 
        my $provision_cmd = join(" ", @{$ctx->{provision_options}});
+       print "\nAbount to provision using command:\n";
+       print "$provision_cmd\n";
        (system($provision_cmd) == 0) or die("Unable to provision: \n$provision_cmd\n");
 
        return $ret;