view release on metacpan or  search on metacpan

t/aion/run/runs-run.t  view on Meta::CPAN

use common::sense; use open qw/:std :utf8/;  use Carp qw//; use Cwd qw//; use File::Basename qw//; use File::Find qw//; use File::Slurper qw//; use File::Spec qw//; use File::Path qw//; use Scalar::Util qw//;  use Test::More 0.98;  use String::Diff q...
# # NAME
# 
# Aion::Run::RunsRun - список скриптов с аннотацией `#@run`
# 
# # SYNOPSIS
# 
# Файл etc/annotation/run.ann:
#@> etc/annotation/run.ann
#>> Aion::Run::RunRun#run,3=run:run „Executes Perl code in the context of the current project”
#>> Aion::Run::RunsRun#list,5=run:runs „List of scripts”
#@< EOF
# 
subtest 'SYNOPSIS' => sub { 
use common::sense;
use Aion::Format qw/trappout coloring/;
use Aion::Run::RunsRun;

my $len = 4;
my $len2 = 6;

my $list = coloring "#yellow%s#r\n", "run";
$list .= coloring "  #green%-${len}s #{bold red}%-${len2}s #{bold black}%s#r\n", "run", "code", "„Executes Perl code in the context of the current project”";
$list .= coloring "  #green%-${len}s #{bold red}%-${len2}s #{bold black}%s#r\n", "runs", "[mask]", "„List of scripts”";

local ($::_g0 = do {trappout { Aion::Run::RunsRun->new->list }}, $::_e0 = "$list"); ::ok $::_g0 eq $::_e0, 'trappout { Aion::Run::RunsRun->new->list } # => $list' or ::diag ::_string_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

# 
# # DESCRIPTION
# 
# Печатает на стандартный вывод список сценариев из файла **etc/annotation/run.ann**.
# 
# Для этого загружает файлы, чтобы получить из них описание аргументов.
# 
# Поменять файл можно в конфиге `Aion::Run::Runner#INI`.
# 
# # FEATURES
# 
# ## mask
# 
# Маска для фильтра по скриптам.
# 
::done_testing; }; subtest 'mask' => sub { 
my $len = 4;
my $len2 = 6;

my $list = coloring "#yellow%s#r\n", "run";
$list .= coloring "  #green%-${len}s #{bold red}%-${len2}s #{bold black}%s#r\n", "runs", "[mask]", "„List of scripts”";

local ($::_g0 = do {trappout { Aion::Run::RunsRun->new(mask => 'runs')->list }}, $::_e0 = "$list"); ::ok $::_g0 eq $::_e0, 'trappout { Aion::Run::RunsRun->new(mask => \'runs\')->list } # => $list' or ::diag ::_string_diff($::_g0, $::_e0); undef $::_g...

# 
# # SUBROUTINES
# 
# ## list ()
# 
# Выводит список сценариев на `STDOUT`.
# 
# # AUTHOR
# 
# Yaroslav O. Kosmina <darviarush@mail.ru>