[prev in list] [next in list] [prev in thread] [next in thread] 

List:       svk-commit
Subject:    [svk-commit] r3057 - trunk/t
From:       nobody () bestpractical ! com
Date:       2008-08-04 16:13:57
Message-ID: 20080804161358.089BE4D823B () diesel ! bestpractical ! com
[Download RAW message or body]

Author: clkao
Date: Mon Aug  4 12:13:57 2008
New Revision: 3057

Modified:
   trunk/t/12copy.t

Log:
fix bad regex in previous commit to test file.

Modified: trunk/t/12copy.t
==============================================================================
--- trunk/t/12copy.t	(original)
+++ trunk/t/12copy.t	Mon Aug  4 12:13:57 2008
@@ -192,9 +192,10 @@
 
 is_output($svk, 'copy', ["$copath/A", "$copath/B", "$copath/me"],
 	  [__"t/checkout/copy/me is not a directory."]);
-	  
+
+my $dir = __("mkdir t/checkout/copy/me-cocopied:");
 is_output($svk, 'copy', [-p => "$copath/me", "$copath/me-cocopied/fnord/orz"],
-	  [qr{@{[__("mkdir t/checkout/copy/me-cocopied:")]} File exists.*},
+	  [qr{\Q$dir\E File exists.*},
 	  ]);
 
 is_output($svk, 'copy', [-p => "$copath/me", "$copath/nonexist2/fnord2/me"],
_______________________________________________
svk-commit mailing list
svk-commit@bestpractical.com
http://lists.bestpractical.com/cgi-bin/mailman/listinfo/svk-commit
[prev in list] [next in list] [prev in thread] [next in thread]