Add initial rsync tests

Author: ferki

ChangeLog

@@ -23,6 +23,7 @@ Revision history for Rex
  [REVISION]
  - Use author tests to check tidiness of bin files
  - Use Symbol to manipulate Perl symbols
+ - Add initial rsync tests
 
 1.11.0 2020-06-05 Ferenc Erki <[email protected]>
  [BUG FIXES]

t/rsync.t

@@ -0,0 +1,77 @@
+use strict;
+use warnings;
+use autodie;
+
+use Cwd qw(getcwd);
+use File::Find;
+use File::Spec::Functions qw(catfile rel2abs);
+use File::Temp qw(tempdir);
+use Test::More;
+
+use Rex::Commands::Rsync;
+use Rex::Task;
+
+if ( $^O =~ m/^MSWin/ ) {
+  plan skip_all => 'No rsync support on Windows';
+}
+else {
+  plan tests => 1;
+}
+
+sub setup {
+  my $target_dir = tempdir( CLEANUP => 1 );
+
+  ok( -d $target_dir, "$target_dir is a directory" );
+
+  opendir( my $DIR, $target_dir );
+  my @contents = readdir $DIR;
+  closedir $DIR;
+
+  my @empty = qw(. ..);
+
+  is_deeply( \@contents, \@empty, "$target_dir is empty" );
+
+  return $target_dir;
+}
+
+sub test_results {
+  my $target_dir = shift;
+
+  my @expected;
+  find(
+    {
+      wanted => sub {
+        s/t//;
+        push @expected, $_;
+      },
+      no_chdir => 1
+    },
+    't/sync'
+  );
+
+  my @result;
+  find(
+    {
+      wanted => sub {
+        s/$target_dir//;
+        push @result, $_ if length($_);
+      },
+      no_chdir => 1
+    },
+    $target_dir
+  );
+
+  is_deeply( \@result, \@expected, 'synced dir matches' );
+}
+
+subtest 'local rsync' => sub {
+  my $target_dir = setup();
+  my $cwd        = getcwd;
+
+  my $task = Rex::Task->new( name => 'local_rsync' );
+  isa_ok( $task, 'Rex::Task', 'create task object' );
+
+  sync catfile( $cwd, 't/sync' ), $target_dir;
+
+  test_results($target_dir);
+};