view release on metacpan or  search on metacpan

t/bin/ndproc.t  view on Meta::CPAN

    name => $test,
    pre => sub { copy("_menu.a.json", "$test.got") },
    cmd => [ @cmd, '--module', 'Remove', '--path', '[1]{Edit}[3..5]', '--dump-blame', "$test.blame.got", "$test.got" ],
    test => sub { files_eq_or_diff("$test.blame.exp", "$test.blame.got", $test) },
    clean => [ "$test.blame.got", "$test.got" ],
);

$test = "blame_embed";
run_ok(
    name => $test,
    pre => sub { copy("_menu.a.json", "$test.got") },
    cmd => [ @cmd, '--module', 'Remove', '--path', '[1]{Edit}[3..5]', '--embed-blame', '[1]{Edit}[3]{_blame_}', "$test.got" ],
    test => sub { files_eq_or_diff("$test.exp", "$test.got", $test) },
);

$test = "ifmt_yaml";
run_ok(
    name => $test,
    pre => sub { copy("$test.data", "$test.got") },
    cmd => [ @cmd, '--ifmt', 'yaml', '--module', 'Merge', '--source', "$test.merge", "$test.got" ],
    test => sub { files_eq_or_diff("$test.exp", "$test.got", $test) },
);

$test = "ifmt_yaml_ofmt_yaml";
run_ok(
    name => $test,
    pre => sub { copy("$test.data", "$test.got") },
    cmd => [ @cmd, '--ifmt', 'yaml', '--ofmt', 'yaml', '--module', 'Merge', '--source', "$test.merge", "$test.got" ],
    test => sub { files_eq_or_diff("$test.exp", "$test.got", $test) },
);

$test = "list_modules";
run_ok(
    name => $test,
    cmd => [ @cmd, qw/-l --list-modules/ ],
    stdout => qr/^\w+\s+[\d\.]+\s+\S/m,
);

$test = "module_disabled_0";
run_ok(
    name => $test,
    pre => sub { copy("_cfg.alpha.json", "$test.got") },
    cmd => [ @cmd, '--rules', "$test.rules.json", '--disable-module', 'Insert', "$test.got" ],
    test => sub { files_eq_or_diff("$test.exp", "$test.got", $test) },
);
$test = "module_disabled_1";
run_ok(
    name => $test,
    pre => sub { copy("_cfg.alpha.json", "$test.got") },
    cmd => [ @cmd, '--rules', "$test.rules.json", '--disable-module', 'Remove', "$test.got" ],
    test => sub { files_eq_or_diff("$test.exp", "$test.got", $test) },
);
$test = "module_disabled_1";
run_ok(
    name => $test,
    pre => sub { copy("_cfg.alpha.json", "$test.got") },
    cmd => [ @cmd, '--rules', "$test.rules.json", '--disable-module', 'Insert', '--disable-module', 'Remove', "$test.got" ],
    test => sub { files_eq_or_diff("_cfg.alpha.json", "$test.got", $test) },
);

$test = "module_not_exists";
run_ok(
    name => $test,
    cmd => [ @cmd, qw/--module NoTeXiStS/ ],
    stderr => qr/ FATAL] Unknown module specified 'NoTeXiStS'/,
    exit => 1
);

$test = "module_unsupported_opt";
run_ok(
    name => $test,
    cmd => [ @cmd, qw/--module Remove --unsupported-opt-test/ ],
    stderr => qr/Unknown option: unsupported-opt-test/,
    exit => 1
);

$test = "multiargs";
run_ok(
    name => $test,
    pre => sub {
        copy("_menu.a.json", "$test.a.got") and
        copy("_menu.b.json", "$test.b.got")
    },
    cmd => [ @cmd, '--module', 'Remove', '--path', '[1]{Edit}[3..5]', "$test.a.got", "$test.b.got" ],
    test => sub {
        files_eq_or_diff("$test.a.exp", "$test.a.got", $test) and
        files_eq_or_diff("$test.b.exp", "$test.b.got", $test)
    },
    clean => [ "$test.a.got", "$test.b.got" ],
);

$test = "rules";
run_ok(
    name => $test,
    pre => sub { copy("_menu.a.json", "$test.got") },
    cmd => [ @cmd, '--rules', "$test.rules.json", "$test.got" ],
    test => sub { files_eq_or_diff("$test.exp", "$test.got", $test) },
);

$test = "rules_builtin";
run_ok(
    name => $test,
    pre => sub { copy("$test.json", "$test.got") },
    cmd => [ @cmd, '--builtin-rules', '[3]{builtin}{rules}', "$test.got" ],
    test => sub { files_eq_or_diff("$test.exp", "$test.got", $test) },
);

$test = "rules_builtin_dump";
run_ok(
    name => $test,
    cmd => [ @cmd, '--builtin-rules', '[3]{builtin}{rules}', '--dump-rules', "$test.got", "$test.json" ],
    test => sub { files_eq_or_diff("$test.exp", "$test.got", $test) },
);

$test = "rules_builtin_format_json";
run_ok(
    name => $test,
    pre => sub { copy("$test.json", "$test.got") },
    cmd => [ @cmd, '--builtin-format', 'JSON', '--builtin-rules', '[3]{builtin}{rules}', "$test.got" ],
    test => sub { files_eq_or_diff("$test.exp", "$test.got", $test) },
);