[svk-commit] r2238 - in branches/2.0-releng/t: .

nobody at bestpractical.com nobody at bestpractical.com
Wed Dec 13 03:47:51 EST 2006


Author: clkao
Date: Wed Dec 13 03:47:51 2006
New Revision: 2238

Modified:
   branches/2.0-releng/t/75hook.t
   branches/2.0-releng/t/mirror/sync-failed-hook.t

Log:
Tweak the expected output for hook failure on commit to pass
tests for svn trunk as well.


Modified: branches/2.0-releng/t/75hook.t
==============================================================================
--- branches/2.0-releng/t/75hook.t	(original)
+++ branches/2.0-releng/t/75hook.t	Wed Dec 13 03:47:51 2006
@@ -19,7 +19,7 @@
 
 my $hook = "$srepospath/hooks/pre-commit".($^O eq 'MSWin32' ? '.bat' : '');
 open FH, '>', $hook or die "$hook: $!";
-print FH ($^O eq 'MSWin32' ? '@echo off' : "#!$^X") . "\nexit 1\n";
+print FH ($^O eq 'MSWin32' ? '@echo off' : "#!$^X") . "\nwarn \"foo\\n\";\nexit 1\n";
 close FH;
 chmod (0755, $hook);
 
@@ -38,8 +38,8 @@
 is_output ($svk, 'ci', ['-m', 'test commit', $copath],
 	   ['Commit into mirrored path: merging back directly.',
 	    "Merging back to mirror source $uri/A.",
-	    "A repository hook failed: 'pre-commit' hook failed with error output:",
-	    '',
+	    qr"A repository hook failed: 'pre-commit' hook failed .* error output.*:",
+	    'foo', ''
 	   ]);
 
 1;

Modified: branches/2.0-releng/t/mirror/sync-failed-hook.t
==============================================================================
--- branches/2.0-releng/t/mirror/sync-failed-hook.t	(original)
+++ branches/2.0-releng/t/mirror/sync-failed-hook.t	Wed Dec 13 03:47:51 2006
@@ -44,7 +44,7 @@
 is_output($svk, 'sync', ['//m'],
 	  ["Syncing $uri",
 	   'Retrieving log information from 2 to 2',
-	   "A repository hook failed: 'pre-commit' hook failed with error output:",
+	   qr"A repository hook failed: 'pre-commit' hook failed .* error output.*:",
 	   'hate']);
 
 __DATA__


More information about the svk-commit mailing list