Merge branch 'moosex-app-cmd' into moosex-app-cmd--dzil

ingydotnet · Jan 28, 2011 · 4fe02c2 · 4fe02c2
2 parents 2af9572 + 09a853e
commit 4fe02c2
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/t/output.t b/t/output.t
@@ -4,6 +4,7 @@ use warnings;
 
 use Test::More;
 use App::Cmd::Tester qw(test_app);
+use Lingua::EN::Numbers::Ordinate qw(ordinate);
 use List::MoreUtils qw(any);
 
 use App::Git::HomeSync;
@@ -58,7 +59,13 @@ sub check_action {
             # There should be a regex that matches in sequence with the
             # output
             if ( $regex ) {
-                like $line, $regex, qq{Correct command};
+                like(
+                    $line, $regex,
+                    (   sprintf '%s command matches: %s',
+                        ordinate( $i + 1 ),
+                        $regex
+                    )
+                );
             }
             else {
                 fail qq{Too many lines were printed};

diff --git a/tmp/depends b/tmp/depends
@@ -20,3 +20,4 @@ IO::All 0.39
 Git::PurePerl 0.47
 File::Path
 List::MoreUtils 0.25_02
+Lingua::EN::Numbers::Ordinate