view release on metacpan or  search on metacpan

t/25-plugins-ext.t  view on Meta::CPAN

#########################################################################
#
# Serż Minus (Sergey Lepenkov), <abalama@cpan.org>
#
# Copyright (C) 1998-2022 D&D Corporation. All Rights Reserved
#
# This is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
#########################################################################
use strict;
use warnings;
use Test::More;
plan skip_all => "Currently a developer-only test" unless -d '.svn' || -d ".git";
plan skip_all => "TEST_NET environment variable required" unless $ENV{TEST_NET};
plan tests => 23;

use File::Spec;
use CTK;
use CTK::Util qw/fsave randchars preparedir/;

use constant {
        FILEMASK    => 'test%d.tmp',
        FILENAME    => 'test.tmp',
        TESTURL_FTP => 'ftp://anonymous:anonymous@192.168.200.8/mbutiny/test?Passive=1&Timeout=10',
        TESTURL_SFTP=> 'sftp://guest@192.168.123.8/home/guest/Public?timeout=10',
    };

my $ctk = CTK->new(
        plugins     => [qw/log file archive ftp sftp/],
        #verbose     => 1,
        #debug       => 1,
        #log         => 1,
    );
ok($ctk->logger_init(file => "error.log"), "Logger initialize");

ok($ctk->status, "CTK with plugins is ok");
note($ctk->error) unless $ctk->status;

# Create dirs
my $src = File::Spec->catdir("src", "src");
my $dst = File::Spec->catdir("src", "dst");
ok(preparedir($src), "Prepare $src");
ok(preparedir($dst), "Prepare $dst");

# Create 3 files with 10 lines
$ctk->debug(sprintf("Creating temp files in \"%s\"...", $src));
foreach my $i (1..3) {
    my @pool;
    for (1..10) { push @pool, sprintf("%02d %s", $_, randchars( 80 )) };
    ok(fsave(File::Spec->catfile($src, sprintf(FILEMASK, $i)), join("\n", @pool)), "Save random file N$i");
}

# Copy files from src to dst
{
    my $cnt = $ctk->fcopy(
            dirsrc => $src,
            dirdst => $dst,
            mask  => qr/tmp$/,
            format => "[FILE]",
        );
    is($cnt, 3, "Copy 3 .tmp files from src to dst by mask");
}

# Copy files from src to dst (uniq)
{
    my $cnt = $ctk->fcopy(
            dirsrc => $src,
            dirdst => $dst,
            glob  => "*.tmp",
            format => "[FILE]",
            uniq => 1,
        );
    is($cnt, 0, "Copy 0 .tmp files from src to dst by mask (uniq)");
}

# Move files from src to dst (uniq)
{
    my $cnt = $ctk->fmove(
            dirsrc => $src,
            dirdst => $dst,
            glob   => "*.tmp",
            format => "[FILE]",
            uniq => 1,
        );