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

diff --git a/t/109_help_flag.t b/t/109_help_flag.t
index eb75961..b5a0833 100644
--- a/t/109_help_flag.t
+++ b/t/109_help_flag.t
@@ -19,7 +19,7 @@
 # Update: since 0.41, usage info is printed to stdout, not stderr.
 
 use strict; use warnings;
-use Test::More tests => 18;
+use Test::More tests => 22;
 use Test::Trap;
 
 {
@@ -42,7 +42,7 @@ ok($obj->meta->has_attribute('usage'), 'class has usage attribute');
 isa_ok($obj->usage, 'Getopt::Long::Descriptive::Usage');
 my $usage_text = $obj->usage->text;
 
-foreach my $args ( ['--help'], ['--usage'], ['--?'], ['-?'] )
+foreach my $args ( ['--help'], ['--usage'], ['--?'], ['-?'], ['-h'] )
 {
     local @ARGV = @$args;
     note "Setting \@ARGV to @$args";