1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
#!/usr/bin/perl
use v5.14;
use warnings;
use Test2::V0;
use Commandable::Finder::Packages;
package MyTest::Command::one {
use constant COMMAND_NAME => "one";
use constant COMMAND_DESC => "the one command";
use constant COMMAND_ARGS => (
{ name => "arg", description => "the argument" }
);
sub run {}
}
package MyTest::Command::two {
use constant COMMAND_NAME => "two";
use constant COMMAND_DESC => "the two command";
use constant COMMAND_OPTS => (
{ name => "simple" },
{ name => "bool", mode => "bool" },
{ name => "multi", multi => 1 },
);
sub run {}
}
package MyTest::Command::nothing {
sub foo {} # not a command
}
my $finder = Commandable::Finder::Packages->new(
base => "MyTest::Command",
);
# find_commands
{
is( [ sort map { $_->name } $finder->find_commands ],
[qw( help one two )],
'$finder->find_commands' );
}
# a single command
{
my $one = $finder->find_command( "one" );
is( { map { $_, $one->$_ } qw( name description package ) },
{ name => "one", description => "the one command",
package => "MyTest::Command::one", },
'$finder->find_command' );
is( scalar $one->arguments, 1, '$one has an argument' );
my ( $arg ) = $one->arguments;
is( { map { $_ => $arg->$_ } qw( name description ) },
{
name => "arg",
description => "the argument",
},
'metadata of argument to one'
);
is( $one->package, "MyTest::Command::one", '$one->package' );
is( $one->code, \&MyTest::Command::one::run, '$one->code' );
}
# command options
{
my $two = $finder->find_command( "two" );
my %opts = $two->options;
is( { map { my $opt = $opts{$_}; $_ => { map { $_ => $opt->$_ } qw( mode negatable ) } } keys %opts },
{
simple => { mode => "set", negatable => F() },
bool => { mode => "bool", negatable => T() },
multi => { mode => "multi_value", negatable => F() },
},
'metadata of options to two' );
}
done_testing;
|
