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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
#!/usr/bin/perl
use v5.14;
use warnings;
use Test2::V0;
use Commandable::Invocation;
use Commandable::Finder::SubAttributes;
BEGIN {
Commandable::Finder::SubAttributes::HAVE_ATTRIBUTE_STORAGE or
plan skip_all => "Attribute::Storage is not available";
}
package MyTest::Commands {
use Commandable::Finder::SubAttributes ':attrs';
our $globalopt
:GlobalOption("global=");
sub command_one
:Command_description("the one command")
:Command_arg("arg", "the argument")
{
# command
}
sub command_two
:Command_description("the two command")
:Command_opt("simple")
:Command_opt("bool!")
:Command_opt("multi@")
{
# command
}
sub command_with_hyphen
:Command_description("command with hyphenated name")
{
# command
}
}
my $finder = Commandable::Finder::SubAttributes->new(
package => "MyTest::Commands",
);
# find_commands
{
is( [ sort map { $_->name } $finder->find_commands ],
[qw( help one two with-hyphen )],
'$finder->find_commmands' );
}
# a single command
{
my $one = $finder->find_command( "one" );
is( { map { $_, $one->$_ } qw( name description package code ) },
{
name => "one",
description => "the one command",
package => "MyTest::Commands",
code => \&MyTest::Commands::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'
);
}
# 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 => "set", negatable => T() },
multi => { mode => "multi_value", negatable => F() },
},
'metadata of options to two' );
}
# global options
{
# TODO: we don't really have a way to query about these, so we'll just
# have to invoke them to observe side-effects
$finder->handle_global_options( Commandable::Invocation->new( "--global=1234" ) );
is( $MyTest::Commands::globalopt, 1234,
'->handle_global_options set the value of $globalopt' );
}
done_testing;
|
