[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