2 # The usage information prints the 'documentation' value for all Getopt
3 # attributes, except the order is not deterministic (rather, it uses the order
4 # in which the attributes are stored in the metaclass 'attributes' hash).
5 # Let's sort them by insertion order, which should lead to nicer output:
6 # If MooseX::Getopt is applied early, the help options will be on top
7 # the help options will always be on top (assuming this role is applied
8 # early), followed by options added by parent classes and roles, and then
9 # options added by this class.
12 use warnings FATAL => 'all';
13 use Test::More tests => 2;
18 use strict; use warnings FATAL => 'all';
20 with 'MooseX::Getopt';
23 is => 'ro', isa => 'Str',
25 documentation => 'Documentation for "' . $_ . '"',
26 ) foreach qw(foo bar baz);
29 my $obj = MyClass->new_with_options();
31 my $expected = <<"USAGE";
32 usage: 110_sort_usage_by_attr_order.t [-?h] [long options...]
33 \t-h -? --usage --help Prints this usage information.
34 \t--foo Documentation for "foo"
35 \t--bar Documentation for "bar"
36 \t--baz Documentation for "baz"
39 is($obj->usage->text, $expected, 'Usage text has nicely sorted options');