more unindent tests

mojolicious · Jan 25, 2014 · 2a7e4e1 · 2a7e4e1
1 parent 912902f
commit 2a7e4e1
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/lib/Mojo/Util.pm b/lib/Mojo/Util.pm
@@ -635,7 +635,7 @@ Trim whitespace characters from both ends of string.
 
   my $unindented = unindent $str;
 
-Unindent multiline text.
+Unindent multiline string.
 
 =head2 unquote
 

diff --git a/lib/Mojolicious/Command.pm b/lib/Mojolicious/Command.pm
@@ -50,8 +50,8 @@ sub create_rel_dir {
 sub extract_usage {
   my $self = shift;
 
-  open my $fh, '>', \my $output;
-  pod2usage -exitval => 'noexit', -input => (caller)[1], -output => $fh;
+  open my $handle, '>', \my $output;
+  pod2usage -exitval => 'noexit', -input => (caller)[1], -output => $handle;
   $output =~ s/^.*\n//;
   $output =~ s/\n$//;
 

diff --git a/t/mojo/util.t b/t/mojo/util.t
@@ -97,6 +97,8 @@ is unindent(" test\n  123\n 456\n"), "test\n 123\n456\n",
   'right unindented result';
 is unindent("\ttest\n\t\t123\n\t456\n"), "test\n\t123\n456\n",
   'right unindented result';
+is unindent("\t \ttest\n\t \t\t123\n\t \t456\n"), "test\n\t123\n456\n",
+  'right unindented result';
 is unindent("\n\n\n test\n  123\n 456\n"), "\n\n\ntest\n 123\n456\n",
   'right unindented result';
 is unindent("   test\n    123\n   456\n"), "test\n 123\n456\n",