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

test_smbclient_tarmode.pl: add test for xF

Browse Source 
Add test for extracting from a file list.

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-02 11:16:13 +02:00 committed by Jim McDonough
parent aaf59c9db6
commit ea04ae30e1
1 changed files with 28 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -16,14 +16,14 @@ test_smbclient_tarmode.pl - Test for smbclient tar backup feature
# c I r #
# c X DONE
# c X r #
# c F #
# c F DONE
# c F r #
# x DONE
# x I DONE
# x I r #
# x X DONE
# x X r #
# x F #
# x F DONE
# x F r #
use v5.16;
@ -145,6 +145,7 @@ my @all_tests = (
[\&test_extraction_normal],
[\&test_extraction_include],
[\&test_extraction_exclude],
[\&test_extraction_list],
);
if($SINGLE_TEST == -1) {
@ -394,6 +395,31 @@ sub test_creation_list {
return check_tar($TAR, \@inc_files);
}
sub test_extraction_list {
say "TEST: extraction -- filelist";
my @inc_files;
my @all_files;
for(qw(file_inc inc/b inc/c inc/dir/foo foo/bar zob)) {
my $f = File->new_remote($_);
$f->set_attr();
push @all_files, $f;
push @inc_files, $f if /inc/;
}
# store
smb_tar('', '-Tc', $TAR, $DIR);
my $err = check_tar($TAR, \@all_files);
return $err if $err > 0;
reset_remote();
my $flist = File->new_local("$TMP/list", file_list(@inc_files));
smb_tar('', '-TxF', $TAR, $flist->localpath);
return check_remote(\@inc_files);
}
#####
# IMPLEMENTATION