[libcode-tidyall-perl] 324/374: Fix test_dirs test to not rely on file ordering

Jonas Smedegaard js at alioth.debian.org
Sun Sep 29 22:26:44 UTC 2013


This is an automated email from the git hooks/post-receive script.

js pushed a commit to branch master
in repository libcode-tidyall-perl.

commit 185949e3f6d3beeeb634c23c868417b3bb229b93
Author: Jonathan Swartz <swartz at pobox.com>
Date:   Thu Oct 11 07:02:30 2012 -0700

    Fix test_dirs test to not rely on file ordering
---
 Changes                     |    3 +++
 lib/Code/TidyAll/t/Basic.pm |    3 ++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 4efdeb3..77caca2 100644
--- a/Changes
+++ b/Changes
@@ -4,6 +4,9 @@ Revision history for Code-TidyAll
 
 0.15  Oct 10, 2012
 
+* Fixes
+  - Fix test_dirs test to not rely on file ordering
+
 0.14  Oct 10, 2012
 
 * Improvements
diff --git a/lib/Code/TidyAll/t/Basic.pm b/lib/Code/TidyAll/t/Basic.pm
index 5648df3..8815380 100644
--- a/lib/Code/TidyAll/t/Basic.pm
+++ b/lib/Code/TidyAll/t/Basic.pm
@@ -308,7 +308,8 @@ sub test_dirs : Tests {
             $ct->process_file("$root_dir/a");
         };
         if ($recursive) {
-            is( $output,                          "[tidied]  a/bar.txt\n[tidied]  a/foo.txt\n" );
+            like( $output, qr/\[tidied\]  a\/foo.txt/ );
+            like( $output, qr/\[tidied\]  a\/bar.txt/ );
             is( read_file("$root_dir/a/foo.txt"), "IH" );
             is( read_file("$root_dir/a/bar.txt"), "HI" );
             is( read_file("$root_dir/a/bar.pl"),  "hi" );

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcode-tidyall-perl.git



More information about the Pkg-perl-cvs-commits mailing list