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: add test for "newer than" (N flag)

Browse Source 
add test for the N FILE flag which makes smbclient only backup files
newer or as new as FILE.

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-06-27 20:30:44 +02:00 committed by Jim McDonough
parent 2ef7909dd0
commit e70b6dead7
1 changed files with 45 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -110,6 +110,7 @@ run_test(
[\&test_creation_incremental, 'tarmode inc'],
[\&test_creation_reset, '-a'],
[\&test_creation_reset, 'tarmode reset'],
[\&test_creation_newer],
);
#####
@ -117,6 +118,43 @@ run_test(
# TEST DEFINITIONS
# each test must return the number of error
sub test_creation_newer {
say "TEST: creation -- backup files newer than a file";
my %files;
my $dt = 3000;
# create oldest file at - DT
my $oldest_file = "oldest";
my $oldest_md5 = create_file(localpath($oldest_file));
set_attr(remotepath($oldest_file));
set_time(localpath($oldest_file), time - $dt);
# create limit file
my $limit_file = "$TMP/limit";
create_file($limit_file);
# create newA file at + DT
my $newA_file = "newA";
my $newA_md5 = create_file(localpath($newA_file));
set_attr(remotepath($newA_file));
set_time(localpath($newA_file), time + $dt);
# create newB file at + DT
my $newB_file = "newB";
my $newB_md5 = create_file(localpath($newB_file));
set_attr(remotepath($newB_file));
set_time(localpath($newB_file), time + $dt);
# get files newer than limit_file
$files{"./$DIR/$newA_file"} = $newA_md5;
$files{"./$DIR/$newB_file"} = $newB_md5;
smb_tar('', '-TcN', $limit_file, $TAR, $DIR);
return check_tar($TAR, \%files);
}
sub test_creation_reset {
my ($mode) = @_;
@ -322,6 +360,7 @@ sub smb_client {
if($DEBUG) {
$cmd =~ s{\\([/+-])}{$1}g;
say $cmd;
say $out;
}
if($err) {
@ -456,5 +495,10 @@ sub get_file {
sub random {
my ($min, $max) = @_;
($min, $max) = ($max, $min) if($min > $max);
$min + int(rand($max - $min));
$min + int(rand($max - $min));
}
sub set_time {
my ($fn, $t) = @_;
utime $t, $t, $fn;
}