[libcode-tidyall-perl] 96/374: more

[Jonas Smedegaard]

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 5e745d5a1ba6e76b7aab29e1f96ab9bb9421fdfe
Author: Jonathan Swartz <swartz at pobox.com>
Date:   Mon Jul 16 16:32:57 2012 -0700

    more
---
 lib/Code/TidyAll/t/SVN.pm |   12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/lib/Code/TidyAll/t/SVN.pm b/lib/Code/TidyAll/t/SVN.pm
index e4bd7ed..b1bedbf 100644
--- a/lib/Code/TidyAll/t/SVN.pm
+++ b/lib/Code/TidyAll/t/SVN.pm
@@ -63,9 +63,15 @@ sub test_svn_precommit_hook : Tests {
     like( $stderr, qr/UpperText.*needs tidying/ );
 
     write_file( "$work_dir/foo.txt", "ABC" );
-    $stderr =
-      capture_stderr { system( sprintf( 'svn -q commit -m "changed" %s/foo.txt', $work_dir ) ) };
-    ok( $stderr !~ /\S/, "commit ok" );
+    write_file( "$work_dir/bar.dat", "123" );
+    run( sprintf( 'svn -q add %s/bar.dat', $work_dir ) );
+    $stderr = capture_stderr {
+        system(
+            sprintf( 'svn -q commit -m "changed" %s/foo.txt %s/bar.dat', $work_dir, $work_dir ) );
+    };
+    unlike( $stderr, qr/\S/ );
+    $stdout = capture_stdout { system( sprintf( 'svn status %s', $work_dir ) ) };
+    unlike( $stdout, qr/\S/ );
 }
 
 $precommit_hook_template = '#!/usr/bin/perl

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