X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F110_sort_usage_by_attr_order.t;fp=t%2F110_sort_usage_by_attr_order.t;h=c7677e072852507ef95d91ca7ffa25e252962075;hb=8d396d8a86e6c43b6722273362cab18b0fa622fc;hp=bddaffaa544bd1233b1c2e321cafdbd81ae24331;hpb=fa8dcd6975fc3bd35b2d3099f54c9677538ee1a7;p=gitmo%2FMooseX-Getopt.git

diff --git a/t/110_sort_usage_by_attr_order.t b/t/110_sort_usage_by_attr_order.t
index bddaffa..c7677e0 100644
--- a/t/110_sort_usage_by_attr_order.t
+++ b/t/110_sort_usage_by_attr_order.t
@@ -27,11 +27,11 @@ use Test::More tests => 1;
 my $obj = MyClass->new_with_options();
 
 my $expected = <<"USAGE";
-usage: 110_sort_usage_by_attr_order.t [-?] [long options...]
-\t-? --usage --help  Prints this usage information.
-\t--foo              Documentation for "foo"
-\t--bar              Documentation for "bar"
-\t--baz              Documentation for "baz"
+usage: 110_sort_usage_by_attr_order.t [-?h] [long options...]
+\t-h -? --usage --help  Prints this usage information.
+\t--foo                Documentation for "foo"
+\t--bar                Documentation for "bar"
+\t--baz                Documentation for "baz"
 USAGE
 
 is($obj->usage->text, $expected, 'Usage text has nicely sorted options');