view release on metacpan or  search on metacpan

t/App-DWG-Sort/04-run.t  view on Meta::CPAN

17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
# XXX Hack for missing abs2rel on Windows.
if ($OSNAME eq 'MSWin32') {
        $script =~ s/\\/\//msg;
}
my $right_ret = <<"END";
Usage: $script [-h] [--version] directory
        -h              Print help.
        --version       Print version.
        directory       Directory with DWG files.
END
stderr_is(
        sub {
                App::DWG::Sort->new->run;
                return;
        },
        $right_ret,
        'Run help.',
);