sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-02-10 13:57:47 +03:00
Code

test_smbclient_tarmode.pl: let --test run multiple tests

Browse Source 
Signed-off-by: Aurélien Aptel <aurelien.aptel@gmail.com>
Reviewed-by: David Disseldorp <ddiss@samba.org>
Reviewed-by: Jim McDonough <jmcd@samba.org>
This commit is contained in:
Aurélien Aptel 2013-07-16 14:46:02 +02:00 committed by Jim McDonough
parent 45bee9901b
commit 363601e277
1 changed files with 45 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
source3/script/tests/test_smbclient_tarmode.pl
View File

@ -70,7 +70,7 @@ our $LOCALPATH = '/media/data/smb-test';
our $TMP = File::Temp->newdir();
our $BIN = 'smbclient';
my $SINGLE_TEST = -1;
my $SELECTED_TEST = '';
my $LIST_TEST = 0;
my @SMBARGS = ();
@ -129,7 +129,10 @@ my @TESTS = (
list tests
--test N
only run test number N
--test A-B
--test A,B,D-F
only run certain tests (accept list and intervals of numbers)
=cut
@ -142,7 +145,7 @@ GetOptions('u|user=s' => \$USER,
'l|local-path=s' => \$LOCALPATH,
'b|bin=s' => \$BIN,
'test=i' => \$SINGLE_TEST,
'test=s' => \$SELECTED_TEST,
'list' => \$LIST_TEST,
'clean' => \$CLEAN,
@ -197,12 +200,14 @@ if ($CLEAN) {
# RUN TESTS
if ($SINGLE_TEST == -1) {
my @selection = parse_test_string($SELECTED_TEST);
if ($SELECTED_TEST eq '') {
run_test(@TESTS);
} elsif (0 <= $SINGLE_TEST && $SINGLE_TEST < @TESTS) {
run_test($TESTS[$SINGLE_TEST]);
} elsif (@selection > 0) {
run_test(@selection);
} else {
die "Test number is invalid\n";
die "Test selection '$SELECTED_TEST' is invalid\n";
}
#################################
@ -637,6 +642,39 @@ sub run_test {
reset_env();
}
sub parse_test_string {
my $s = shift;
my @tests = ();
if (!length($s)) {
return ();
}
for (split /,/, $s) {
when (/^\d+$/) {
if ($_ >= @TESTS) {
return ();
}
push @tests, $TESTS[$_];
}
when (/^(\d+)-(\d+)$/) {
my ($min, $max) = sort ($1, $2);
if ($max >= @TESTS) {
return ();
}
for ($min..$max) {
push @tests, $TESTS[$_];
}
}
default {
return ();
}
}
return @tests;
}
sub print_res {
my $err = shift;
if ($err) {