[svk-commit] r2839 - trunk/t/bm

nobody at bestpractical.com nobody at bestpractical.com
Thu May 8 10:57:53 EDT 2008


Author: clsung
Date: Thu May  8 10:57:33 2008
New Revision: 2839

Modified:
   trunk/t/bm/online-offline.t

Log:
- add tests for preserving commit messages between --online/--offline
  - ref: http://task.hm/ECMV

Modified: trunk/t/bm/online-offline.t
==============================================================================
--- trunk/t/bm/online-offline.t	(original)
+++ trunk/t/bm/online-offline.t	Thu May  8 10:57:33 2008
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 use SVK::Test;
-plan tests => 14;
+plan tests => 16;
 our $output;
 
 my ($xd, $svk) = build_test('test');
@@ -67,12 +67,15 @@
    qr|Depot Path: //local/MyProject/feature/foobar|);
 
 append_file ('B/S/Q/qu', "\nappend CBA on local branch feature/foobar\n");
-$svk->commit ('-m', 'commit message','');
+$svk->commit ('-m', 'commit message on local branch','');
 
 # now should do smerge first, then sw to the branch 
 is_output_like ($svk, 'branch', ['--online'],
     qr|U   B/S/Q/qu|);
 
+is_output_like ($svk, 'log', [],
+    qr|commit message on local branch|);
+
 is_output_like ($svk, 'info', [],
    qr|Depot Path: //mirror/MyProject/branches/feature/foobar|);
 
@@ -86,3 +89,7 @@
 
 is_output_like ($svk, 'branch', ['--offline'],
     qr|U   A/Q/qz\nD   A/Q/qu|);
+
+is_output_like ($svk, 'log', [],
+    qr|- changes in remote|);
+


More information about the svk-commit mailing list