sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2024-12-22 13:34:15 +03:00
Code
a81f2396a4
samba-mirror/source4/script/tests/SocketWrapper.pm

67 lines
1.0 KiB
Perl
Raw Normal View History

r21707: Finally merge my (long-living) perlselftest branch. This changes the main selftest code to be in perl rather than in shell script. The selftest script is now no longer a black box but a regular executable that takes --help. This adds the following features: * "make test TESTS=foo" will run only the tests that match the regex "foo" * ability to deal with expected failures. the suite will not warn about tests that fail and are known to fail, but will warn about other failing tests and tests that are succeeding tests but incorrectly marked as failing. * ability to print a summary with all failures at the end of the run It also opens up the way to the following features, which I hope to implement later: * "environments", for example having a complete domains with DCs and domain members in a testenvironment * only set up smbd if necessary (not when running LOCAL tests, for example) * different mktestsetup scripts per target. except for the mktestsetup script, we can use the same infrastructure for samba 3 or windows. (This used to be commit 38f867880beb40c691e9713f854426031310629c)
2007-03-06 00:28:55 +03:00
#!/usr/bin/perl
# Bootstrap Samba and run a number of tests against it.
# Copyright (C) 2005-2007 Jelmer Vernooij <jelmer@samba.org>
# Published under the GNU GPL, v3 or later.
package SocketWrapper;
use Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(setup_dir setup_pcap set_default_iface);
use strict;
use FindBin qw($RealBin);
r22360: print out the name of the PCAP file and move setup and cleanup of pcap files into functions metze (This used to be commit dea42ce55965d22ff82279cacd8939b1e133ff1e)
2007-04-19 12:04:35 +04:00
sub setup_dir($$)
r21707: Finally merge my (long-living) perlselftest branch. This changes the main selftest code to be in perl rather than in shell script. The selftest script is now no longer a black box but a regular executable that takes --help. This adds the following features: * "make test TESTS=foo" will run only the tests that match the regex "foo" * ability to deal with expected failures. the suite will not warn about tests that fail and are known to fail, but will warn about other failing tests and tests that are succeeding tests but incorrectly marked as failing. * ability to print a summary with all failures at the end of the run It also opens up the way to the following features, which I hope to implement later: * "environments", for example having a complete domains with DCs and domain members in a testenvironment * only set up smbd if necessary (not when running LOCAL tests, for example) * different mktestsetup scripts per target. except for the mktestsetup script, we can use the same infrastructure for samba 3 or windows. (This used to be commit 38f867880beb40c691e9713f854426031310629c)
2007-03-06 00:28:55 +03:00
{
r22360: print out the name of the PCAP file and move setup and cleanup of pcap files into functions metze (This used to be commit dea42ce55965d22ff82279cacd8939b1e133ff1e)
2007-04-19 12:04:35 +04:00
my ($dir, $pcap) = @_;
my $pcap_dir = undef;
r21790: Setup the socket_wrapper_dir when we set the environment variable. Andrew Bartlett (This used to be commit 5c07dbd2487c5c23355ad0e3db6e9f9caf8ce145)
2007-03-12 03:24:03 +03:00
if (defined($dir)) {
if ( -d $dir ) {
unlink <$dir/*>;
} else {
mkdir($dir);
}
r22360: print out the name of the PCAP file and move setup and cleanup of pcap files into functions metze (This used to be commit dea42ce55965d22ff82279cacd8939b1e133ff1e)
2007-04-19 12:04:35 +04:00
if ($pcap) {
$pcap_dir = $dir."/pcap";
if ( -d $pcap_dir ) {
unlink <$pcap_dir/*>;
} else {
mkdir($pcap_dir);
}
}
r21790: Setup the socket_wrapper_dir when we set the environment variable. Andrew Bartlett (This used to be commit 5c07dbd2487c5c23355ad0e3db6e9f9caf8ce145)
2007-03-12 03:24:03 +03:00
}
r22374: fix perl warnings metze (This used to be commit e8dd140a03eb8ee5f444551a05d313864801c50e)
2007-04-19 18:51:46 +04:00
if (defined($pcap_dir)) {
$ENV{SOCKET_WRAPPER_PCAP_DIR} = $pcap_dir;
} else {
delete $ENV{SOCKET_WRAPPER_PCAP_DIR};
}
if (defined($dir)) {
$ENV{SOCKET_WRAPPER_DIR} = $dir;
} else {
delete $ENV{SOCKET_WRAPPER_DIR};
}
r21707: Finally merge my (long-living) perlselftest branch. This changes the main selftest code to be in perl rather than in shell script. The selftest script is now no longer a black box but a regular executable that takes --help. This adds the following features: * "make test TESTS=foo" will run only the tests that match the regex "foo" * ability to deal with expected failures. the suite will not warn about tests that fail and are known to fail, but will warn about other failing tests and tests that are succeeding tests but incorrectly marked as failing. * ability to print a summary with all failures at the end of the run It also opens up the way to the following features, which I hope to implement later: * "environments", for example having a complete domains with DCs and domain members in a testenvironment * only set up smbd if necessary (not when running LOCAL tests, for example) * different mktestsetup scripts per target. except for the mktestsetup script, we can use the same infrastructure for samba 3 or windows. (This used to be commit 38f867880beb40c691e9713f854426031310629c)
2007-03-06 00:28:55 +03:00
return $dir;
}
sub setup_pcap($)
{
my ($pcap_file) = @_;
r22077: Import only necessary test variables, more refactoring. (This used to be commit 150bb2238ea91ead3bdde0a34ff801b79bc83ec3)
2007-04-04 18:24:44 +04:00
$ENV{SOCKET_WRAPPER_PCAP_FILE} = $pcap_file;
r21707: Finally merge my (long-living) perlselftest branch. This changes the main selftest code to be in perl rather than in shell script. The selftest script is now no longer a black box but a regular executable that takes --help. This adds the following features: * "make test TESTS=foo" will run only the tests that match the regex "foo" * ability to deal with expected failures. the suite will not warn about tests that fail and are known to fail, but will warn about other failing tests and tests that are succeeding tests but incorrectly marked as failing. * ability to print a summary with all failures at the end of the run It also opens up the way to the following features, which I hope to implement later: * "environments", for example having a complete domains with DCs and domain members in a testenvironment * only set up smbd if necessary (not when running LOCAL tests, for example) * different mktestsetup scripts per target. except for the mktestsetup script, we can use the same infrastructure for samba 3 or windows. (This used to be commit 38f867880beb40c691e9713f854426031310629c)
2007-03-06 00:28:55 +03:00
}
sub set_default_iface($)
{
my ($i) = @_;
$ENV{SOCKET_WRAPPER_DEFAULT_IFACE} = $i;
}
1;
Copy Permalink